Bonjour Cher Charly, re Amigo José, re Blafi, re le Fil
Pause Ménache lol et vive Alonzo José !! lol
Et oui le ridicul ne tue pas mon cher ami, heureusement, sinon je serai mort au moins un bon millier de fois
Bon moi j'ai essayé de retesté et testé, et finalement j'avais une erreur à cause de la String '6.55957' qui pouvait passer parfois pour '6,55957' et comme Formula voulait un point, même avec les paramètres régionaux FR, je ne sais pas vraiment pourquoi, un coup ça passait un coup ça passait plus...
Bon du coup j'ai tout refait avec au choix Calculs par VBA ou Calculs par Formula, je pense que l'on peut placer le UserForm et le Module dans un Perso.xls sans souci maintenant. (Pour la démo j'ai placé un CommandButton qui, lui, sera remplacé bien évidemment par un bouton Custom de barre d'Outils qui lancera 'FirstChecking')
D'ailleurs j'ai un peu renforcé les 'Checkings', je te laisse voir si ça passe Blafi...
Pour mon code modifié, Inutile de faire :
CeCe.Activate
ActiveCell.Offset(0, 1).Select
ActiveCell.Value ...
On peut faire ceci
CeCe.Offset(0, 1).Value ...
(Ce qui est d'ailleurs fait dans la démo ci-jointe)
J'en ai aussi profité pour passer l'OPérateur en argument...
Bonne Découverte
[ol]@+Thierry[/ol]
EDITION !!!
Avé le fichier c'est mieux ! lol [file name=XLD_Convert_Euros_Francs.zip size=17864]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/XLD_Convert_Euros_Francs.zip[/file]
Message édité par: _Thierry, à: 14/05/2006 15:52