Macro Rechercher Remplacer sur plusieurs termes

Bonjour,

Je suis novice en VBA, je travaille souvent sur Excel (que je maîtrise plus que VBA) et j'aimerai mettre en place une macro de "recherche-remplacer". Pourriez-vous m'aider s'il vous plait ?

Ma problématique est la suivante :

Je reçois régulièrement des fichiers excel contenant 3 colonnes avec des données à traduire pour mes clients.

La colonne A ne change pas et ne doit jamais être modifiée.

La colonne B possède des indicateurs qu'il faut traduire

La colonne C possède des commentaires qu'il faut aussi traduire.

J'ai un onglet de correspondance qui ne change pas puisque se sont toujours les mêmes correspondances.

Voici un exemple de ce que cela peut donner en pièce jointe avec mes deux onglets. Les données étant confidentielles, je me suis permis de raccourcir tout en exemple mais j'ai parfois 200 000 lignes et en correspondance, j'en ai 25 qui sont fixe.

Je souhaiterai donc mettre en place une macro me permettant de gagner du temps et qui remplacerait tous les termes en une seule fois.

Est-ce possible ??

J'espère avoir été assez claire

Je vous remercie pour votre aide

Bonjour,

Si tu mets en marche ton enregistreur de macros ...

et que tu effectues le processus une fois ... (avec Control + H )

Tu obtiendras une macro opérationnelle ... qui sera un très bon point de départ ...

Bonjour et merci,

J'ai déjà essayé cette solution mais je dois donc mettre dans la macro toutes les correspondances ?

Bonjour, voici une macro adapté au fichier de démonstration

Sub remplacer()
    Dim dl&, i%, j%, trouve As Range, quoi As Variant
    dl = Feuil1.[a65536].End(xlUp).Row
    j = 2
    While j <= 3
        For i = 2 To dl
            quoi = Feuil1.Cells(i, j)
            Set trouve = Feuil3.Range("a:a").Find(quoi, lookat:=xlWhole)
            If Not trouve Is Nothing Then
                Feuil1.Cells(i, j) = trouve.Offset(0, 1)
            End If
        Next
        j = j + 1
    Wend
End Sub

Merci beaucoup cela fonctionne et c'est ce que je cherchais

de rien c'est gratos!