chaines de caractères

Bonjour à tous,

Je cherche à optimiser la ligne ci-dessous:

Code:

---

Selection.Replace What:="46", Replacement:="Pilote", LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

---

Mon script permet de remplacer uniquement la valeur "46" par "Pilote".

Je souhaiterais que toutes les chaînes de caractères ci-dessous soient prises en compte et qu'elles soient également remplacées par "Pilote"

46#46
46#46#46
46#46#46#46
46#46#46#46#46
....etc

Savez-vous comment faire ?

Merci d'avance pour votre aide.

Bonjour et bienvenu sur DVP

Cela dépend de la façon dont tu as défini ta Selection
Pour une colonne par exemple, il y a ce :

Code:

---

Worksheets("Feuil1").Columns("A").Replace What:="Sin", Replacement:="SIN", SearchOrder:=xlByColumns, MatchCase:=False

---

et cela marche pour toutes les occurrences

Citation:

---

Envoyé par l_autodidacte

Bonjour et bienvenu sur DVP

Cela dépend de la façon dont tu as défini ta Selection
Pour une colonne par exemple, il y a ce :

Code:

---

Worksheets("Feuil1").Columns("A").Replace What:="Sin", Replacement:="SIN", SearchOrder:=xlByColumns, MatchCase:=False

---

et cela marche pour toutes les occurrences

---

Voilà ma sélection:

Code:

---

1 2 3 4 5 6 7 8 9

Columns("R:R").Select Selection.Copy Range("W1").Select Selection.Insert Shift:=xlToRight Range("W1").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "DO" Columns("W:W").Select Selection.Replace What:="46", Replacement:="Pilote", LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

---