Bonsoir,

Je cherche à effectuer un Rechercher/Remplacer sur une colonne entière pour une série de colonne avec un motif de remplacement différent selon la colonne.

Pour ce qui est d'une seule colonne la solution est simplement :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
Sub RR()
 Worksheets("Aliments").Columns("A").Replace _
 What:="Fruit", Replacement:="Pomme", _
 SearchOrder:=xlByColumns, MatchCase:=True
End Sub
Comment faire de même avec une boucle sur plusieurs colonnes consécutives et un motif de remplacement différent pour chaque colonne ?

J'ai essayé ceci sans succès :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Sub RR()
 Dim cols As Range
 Dim T(5) As String
 Dim i As Integer
 
T(1) = "Pomme"
T(2) = "Poire"
T(3) = "Pêche"
T(4) = "Abricot"
T(5) = "Fraise"
 
i = 1
 
For Each cols In Range("A:E")
 Worksheets("Aliments").Columns(cols).Replace _
 What:="Fruit", Replacement:=T(i), _
 SearchOrder:=xlByColumns, MatchCase:=True
 i = i + 1
Next
End Sub
Merci d'avance.

----
Canvas