Fonctionnement de l'outil remplacer par

[p_723]

Bonjour a tous,

Voilà mon soucis. Je cherche depuis un moment a automatiser le traitement de taux de conversion entre le dollar et l'euro en fonction d'une date.
J'y suis presque arrive grace a vos precieux conseil mais maintenant, il y a une question que j'aimerais vous poser : 'Pourquoi en ayant automatiser la fonction remplacer '.' par ',' celle ne fonctionnement qui si le montant a convertir est inferieur à 1 ? En effet, si je tombe sur un tax de conversion = 1,10.. la fonction me retire purement et simplement le point sans prendre la peine de me la changer en ','.

Vous trouverez en piece jointe (plus les plus temeraires) une copie de mon calcul mais voici deja l'endroit où cela doit coincer :

'Remplacer un point par une virgule

ActiveCell.Replace What:='.', Replacement:=',', LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True
Cells.Find(What:='.', After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True). _
Activate
Range('E10').Select
ActiveCell.FormulaR1C1 = '=IF(RC[-3]='''','''',RC[-3]*RC[1])'
Range('A1').Select

Voilà esperant pouvoir compte sur votre aide, je vous remercie par avance.


[file name=p723.zip size=25941]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/p723.zip[/file]

 

[p_723]

dans le tableau que je vous ai donne, il manque :
en H10 : SI(A10='';'';SI(JOUR(A10)<10;'0'&JOUR(A10);JOUR(A10)))
en I10 : SI(A10='';'';SI(MOIS(A10)<10;'0'&MOIS(A10);MOIS(A10)))
en J10 : SI(A10='';'';ANNEE(A10))

Il s'agit d'un oublie de ma part car je les avait effecer par erreur, veuillez m'en excuser.

 

[p_723]

J'ai finalement reuissit a trouver par le plus grand hasard la fonction 'remplace' qui bien parametrer a repondu a mon probleme.

Voilà merci a ceux qui m'ont aider tout au long de mes differentes questions.