Reply-to: "Jean-Pierre Lacoste"<jpl.fspi@wanadoo.fr> 
From: "Jean-Pierre Lacoste"<jpl.fspi@wanadoo.fr> 
References: <81pj2c$qdj$1@news.x-echo.com><OFp0ySaO$GA.246@cppssbbsa04>
Subject: Re: transformation franc-euro dans excel
Date: Sun, 28 Nov 1999 14:26:19 +0100
Lines: 43
Organization: FSPI
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.00.2014.211
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2014.211
Message-ID: 
Newsgroups: microsoft.public.fr.excel
NNTP-Posting-Host: pau-9-114.abo.wanadoo.fr 164.138.183.114
Path: cppssbbsa01.microsoft.com!cppssbbsa04
Xref: cppssbbsa01.microsoft.com microsoft.public.fr.excel:18503

Je pourrais te proposer une fonction de conversion qui int&eacute;gre la gestion de
l'arrondi sur la deuxième d&eacute;cimale :

function FrancsVersEuros(valCellule) As double

    Const valEuro = 6.55957
    dim valEnEuro As double, _
        PartieEntière As double, _
        Reste As double, _
        Correctif As double

    if Not IsNumeric(valCellule) then
        FrancsVersEuros = "#NA!"
        Exit function
    end if
    valEnEuro = valCellule / valEuro
    PartieEntière = Int(valEnEuro * 100) / 100
    Reste = valEnEuro - PartieEntière
    Correctif = Int((Reste * 1000) / 5)
    FrancsVersEuros = PartieEntiè<alain.martineau3@libertysurf.fr>re + Correctif / 100
end function



=====================================
Jean-Pierre LACOSTE - FSPI
Email : jpl.fspi@wanadoo.fr
Site web : http://pro.wanadoo.fr/jpl.fspi/
=====================================

alain martineau  a &eacute;crit dans le message :
81pj2c$qdj$1@news.x-echo.com...
| J'ai de grands tableaux excel exprim&eacute;s en francs que je voudrais convert
| ir en euros. Je cherche une macro qui me permette de le faire rapidement
|  Merci
|
| =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
| Article poste via Voila News - http://www.news.voila.fr
| Le : Sat Nov 27 22:39:24 1999 depuis l'IP : 213.36.42.179