Macro remplacer / par

D

Delph

Guest
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

Guest
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
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
314 450
Messages
2 109 726
Membres
110 552
dernier inscrit
jasson