Macro remplacer / par

[Delph]

Je cherche à faire une macro qui remplace, dans une feuille donnée,

toutes les données de la colonne A par les données par les données de la colonne B

Ex :
Dans feuil 1
Colonne A Colonne B
toto tata
momo mama
fofo fafa

Feuil 2
exécution de la macro qui
- remplacer tous les toto de la feuil2 par tata
- puis remplace tous les momo de la feuil2 par mama
- puis remplace tous les fofo de la feuil2 par fafa

etc...

Merci par avance !

 

[@+Thierry]

Bonjour Delph, le Forum


Voilà un code qui devrait convenir :

Sub ReplaceTablo()
Dim Base As Variant

Base = Sheets("Feuil1").Range("A1:B3") '<<<< à adapter

For i = 1 To UBound(Base)

With Sheets("Feuil2")
Cells.Replace Base(i, 1), Base(i, 2), 1, 1, False
End With

Next
End Sub

Si tu veux aussi remplacer les "Toto" en "Tata" compris à l'intérieur d'une String (Exemple "TheTotoMobile" deviendra "TheTataMobile") alors change cette ligne :
Cells.Replace Base(i, 1), Base(i, 2), 2, 1, False

Et si tu veux respecter la casse alors c'est comme ceci :
Cells.Replace Base(i, 1), Base(i, 2), 1, 1, True

Bonne Soirée
@+Thierry