From: "J@C" Newsgroups: microsoft.public.fr.excel Subject: Re: transformation franc-euro dans excel Date: Sat, 27 Nov 1999 23:21:39 +0100 Organization: Cybercable Paris NewsServer Lines: 47 Message-ID: <81pl6v$1o8l2$1@oceanite.cybercable.fr> References: <81pj2c$qdj$1@news.x-echo.com> NNTP-Posting-Host: s189.paris-79.cybercable.fr X-Trace: oceanite.cybercable.fr 943740959 1843874 212.198.79.189 (27 Nov 1999 22:15:59 GMT) X-Complaints-to: usenet@oceanite.cybercable.fr NNTP-Posting-Date: 27 Nov 1999 22:15:59 GMT X-Priority: 3 X-MSMail-Priority: Normal X-Newsreader: Microsoft Outlook Express 5.00.2314.1300 X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2314.1300 Path: cppssbbsa01.microsoft.com!news-out.cwix.com!newsfeed.cwix.com!newsfeeds.belnet.be!news.belnet.be!isdnet!oceanite.cybercable.fr!not-for-mail Xref: cppssbbsa01.microsoft.com microsoft.public.fr.excel:18483 Attention, la transformation n'est pas toujours aussi simple qu'elle paraît Il ne suffit généralement pas de diviser toutes les cellules par 6.55957; en effet si en A1 on a 25F et A2 on a 50F et en A3 on a =A1+A2, alors si on divise tout par 6.55957, on aboutira à 3.8 Euros en A1 (c'est bien), 7.6 Euros en A2 (c'est encore bien), puis en A3 on aura 3.8+7.6 = 11.4 que l'on, va diviser par 6.55957 soit 1.74 Euros, ce qui est franchement n'importe quoi. Je vois deux solutions : 1) soit on n'a plus besoin des formules et on ne s'intéresse qu'aux chiffres, il faut bloquer le calcul automatique avant de faire la conversion : Sub Euro() application.Calculation = xlManual for each cel In activesheet.Usedrange if cel <> "" then cel.value = cel.value / 6.55957 next cel application.Calculation = xlAutomatic end Sub 2) soit on veut garder les formules et on ne fait le calcul que sur les cellules ne contenant que des constantes numériques (et non des formules) : Sub Euro() for each cel In activesheet.Usedrange.Specialcells(xlCelltypeConstants, 1) cel.value = cel.value / 6.55957 next cel end Sub ATTENTION, si dans une cellule on a saisi =5+7 au lieu de 12 ou même =12, le contenu ne sera pas converti ! Le calcul ci-dessus ne fait pas les arrondis liés au calcul de l'Euro. bons comptes ! J@C alain martineau a écrit dans le message : 81pj2c$qdj$1@news.x-echo.com... > J'ai de grands tableaux excel exprimé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