Remplacement auto

bonjour

je cherche un moyen pour automatiquement en cliquant sur un bouton faire les actions suivantes:

remplacer " EUR" par rien

remplacer "," par "."

remplacer "total " par rien

et actualiser mes donnees des cours de change

merci de votre aide

Pour ce qui est des remplacements, l'enregistreur de macro donne ça:

Sub Macro1()
'
' Macro1 Macro
'

'
    Cells.Replace What:="EUR", Replacement:="", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False _
        , FormulaVersion:=xlReplaceFormula2
    Cells.Replace What:=",", Replacement:=".", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False _
        , FormulaVersion:=xlReplaceFormula2
    Cells.Replace What:="total", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
End Sub

Pour l'actualisation, je n'ai pas bien compris !

Merci nickel ca marche du premier coup, pour ce que tu n'as pas compris en fait j'ai de donnees qui sont multiplies par des taux de changes, dans DATA, QUERY AND CONNECTIONS j'ai un bouton REFRESH ALL qui recupere le taux de change du moment et le met a jour donc si je pouvais l'inclure dans la VBA ce serait top mais sinon c'est pas tres grave

ça devrait pouvoir se faire !

Est ce que tu as un fichier de travail sur lequel je pourrais t'avancer ?

Bonjour,

Tu en profiteras pour confirmer ta version Excel ! 2007 ?

Cdlt.

voici un fichier allege mais qui doit suffir:

https://lawreps-my.sharepoint.com/:x:/g/personal/on252_nig3_a1p_me/EZOCz_0IDwRJhimbAduY2u8BJCohjWC5x...

j'ai excel 365 pro

phil

https://lawreps-my.sharepoint.com/:x:/g/personal/on252_nig3_a1p_me/EZOCz_0IDwRJhimbAduY2u8BJCohjWC5x...

Ton lien n'est pas bon ! 😉

oui quand je le colle il en manque un morceau j'ai essaye en faisant un lien c pareil essai celui ci dessous

merci

commandes