Comment definir une position ?

bonjour,

Je m'explique:

j'ai cette ligne de code:

Cells(curRow, 1).Value = Replace(Cells(curRow, 1).Value, "DF_", "DE_")

Cells(curRow + 1, 1).Value = Replace(Cells(curRow + 1, 1).Value, "DF_", "DE_")

Qui me permet de convertir le texte DF_ en DE_

Or il s'avère que veut uniquement le modifier en début de champ.

exemple:

DF_RANDOM_PATT-44 doit devenir DE_RANDOM_PATT-44

par contre je ne veux pas que:

CT_RANDF_CAP-58 devienne CT_RANDE_CAP-58

Du coup je voudrais pouvoir lui dire qu'il applique la modif uniquement quand il trouve DF_ en position 1,2 et 3

Merci pour votre aide

Cordialement

Bylbo

Bonjour

Essaie ce code :

If Mid(Cells(CurRow, 1).Value, 1, 2) = "DF" _

Or Mid(Cells(CurRow, 1).Value, 2, 2) = "DF" _

Or Mid(Cells(CurRow, 1).Value, 3, 2) = "DF" Then

Cells(CurRow, 1).Value = "DE" & Mid(Cells(CurRow, 1).Value, 3)

End If

Bonsoir Byblo7 et Gmb,

Gmb, t'as un peu de mal en ce début de weekend, je trouve... Tu as copier-coller à coté des cotes de code...

Bonsoir Benead et Byblo

Benead a écrit :

Gmb, t'as un peu de mal en ce début de weekend, je trouve...

Ouh là là ! En effet, j'avais déjà l'esprit ailleurs ...

Merci Benead.

Je rectifie et ce coup-ci, je vérifie avec l'aperçu :

 If Mid(Cells(CurRow, 1).Value, 1, 2) = "DF" _
 Or Mid(Cells(CurRow, 1).Value, 2, 2) = "DF" _
 Or Mid(Cells(CurRow, 1).Value, 3, 2) = "DF" Then
 Cells(CurRow, 1).Value = "DE" & Mid(Cells(CurRow, 1).Value, 3)
 End If