Fonction remplacer

Salut le forum,

Dans une colonne j'ai besoin de remplacer tous les "WS10" par "WS010" car les WS sont numérotés jusqu'à 135 et lorsque je fait un TCD ceux-ci ne se mettent du coup pas dans l'ordre.

J'ai écris cette macro en me basant sur un enregistrement.

Sub Macro1()
'
' Macro1 Macro
'

'
    Cells.Replace What:="WS10", Replacement:="WS_010", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        Cells.Replace What:="WS20", Replacement:="WS_020", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Je n'ai pas collé l'intégralité de la macro par soucis de place.

Le problème est qu'avec cette macro même le "WS100" est remplacé par "WS0100", donc comment éviter cela ?

Merci pour votre aide.

Bonjour,

il suffit de changer l'option "LookAt". Tu la passe de xlpart (partie de la cellule) à xlWhole (totalité de la cellule). Exemple :

Cells.Replace What:="WS10", Replacement:="WS_010", LookAt:=xlWhole

Cordialement,

RemBabar

Salut RemBabar,

Merci pour ton aide.

A+