Fonctionnement de l'outil remplacer par

  • Initiateur de la discussion Initiateur de la discussion p_723
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

P

p_723

Guest
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]
 

Pièces jointes

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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
12
Affichages
863
Retour