Discussion :

[nicocio]

Bonjour à tous,

Je cherche à optimiser la ligne ci-dessous:

Code :

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

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.

[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 :

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

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

et cela marche pour toutes les occurrences

[nicocio]

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 :

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

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 :

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

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