inserer "De " selon deux conditions

[lionelch1]

Bonjour ,
Je voudrais inserer "De " dans chaque cellule non vide et sauf si ca commence par "Vf " et sauf si ca commence par "(xxxx" les x sont du texte ou des chiffres derriere la parenthese , j'ai trouvé ceci que j'ai modifié mais je ne sais comment faire pour ne pas mettre "De " devant la parenthese (
Dim CL As Range
For Each CL In Selection
If CL <> "" Then
If Left(CL, 3) <> "Vf " Then
CL = "de " & CL.Text
End If
End If
Next

Merci d'avance
Lionel

 

[Dranreb]

Re : inserer "De " selon deux conditions

Bonsoir.
Et pourquoi l'évident If Left$(CL, 3) <> "Vf " And Left$(CL, 1) <> "(" Then ne convient-il pas ?
À +

 

[lionelch1]

Re : inserer "De " selon deux conditions

Bonsoir.
Et pourquoi l'évident If Left$(CL, 3) <> "Vf " And Left$(CL, 1) <> "(" Then
ceci ne convient-il pas ?
À +

Bonjour Dranreb
apres essai : Impeccable
(je ne suis pas un pro du langage..)
Merci beaucoup
Lionel
( Sujet résolu )