Macro RECHERCHER-REMPLACER

[mirguy23]

Bonjour,

Je coince un peu sur mon code … J’ai visualisé plusieurs fichiers mais toujours des difficultés …

Je cherche sous excel à avoir une macro me permettant de faire un remplacer-rechercher automatiquement afin de me simplifier la tâche.

Exemple:

Si PC802179-00 colonne “B” feuil1 est égal à la même valeur PC802179-00 colonne “B” feuil2 alors remplacer toute les cellules de la colonne “B” (feuil1) ayant la valeur PC802179-00 par RX134537-01 colonne “A” sur toute la feuil1.

Je vous ai joint les images pour plus de compréhension.

Quelqu’un peut me proposer un code afin que je me lance svp?

Merci de votre gentillesse !

[Valky]

Bonjour Mirguy23, tes images n’apparaissent pas… Ce serait plus rapide que tu joignes ton fichier directement.

[mirguy23]

Rebonjour,
Merci d’avoir bien voulu m’aider [Valky].
J’ai écrit un bout de code et ça marche
Merci encore !

Sub g()
Dim f1 As Worksheet, f2 As Worksheet, rg As Range
Dim rech As Scripting.Dictionary
Set rech = New Scripting.Dictionary
Set f1 = ThisWorkbook.Worksheets(“F1”)
Set f2 = ThisWorkbook.Worksheets(“F2”)
For Each rg In Intersect(f2.Columns(2), f2.UsedRange)
** If rg.Value <> “” Then**
** If Not rech.Exists(rg.Value) Then**
** Call rech.Add(rg.Value, rg.Offset(0, -1).Value)**
** End If**
** End If**
Next rg
For Each rg In Intersect(f1.Columns(2), f1.UsedRange)
** If rech.Exists(rg.Value) Then**
** rg.Value = rech.Item(rg.Value)**
** End If**
Next rg
End Sub