Discussion :

[Canvas]

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

[tedo01]

Bonjour,

Dans ton code,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each cols In Range("A:E")

la variable cols prend pour valeur chaque cellule des colonnes de A à E

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Worksheets("Aliments").Columns(cols).Replace

Du coup, Columns(cols) ne veut rien dire, la méthode Columns a besoin d'un entier qui représente le numéro de colonne comme paramètre.

En remplaçant les lignes 15 et 16 avec ce code, ça devrait aller mieux :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
For Each cols In Worksheets("Aliments").Range("A:E").Columns
 cols.Replace _

[Guiiand]

Bonjour,

Je rajouterais que les tableau commencent par défaut à l'indice 0. Donc à moins que tu ais précisé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

option base 1

en en tete de module, le code suivant t'évitera l'erreur "l'indice n'appartient pas à la selection."

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
T(0) = "Pomme"
T(1) = "Poire"
T(2) = "Pêche"
T(3) = "Abricot"
T(4) = "Fraise"
 
i = 0