L
lionelch1
Guest
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
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