Formule a mettre en macro

[lionelch1]

Bonjour ,

J'ai cette formule qui marche " =IF(LEFT(RC[-1],3)=""de "",SUBSTITUTE(RC[-1],"","","" et de "",1),RC[-1]) "
mais quand je fais un essai en macro avec " If Left(X.Value, 3) = "de " Then X.Value = Replace(X.Value, ",", " et de ", 1) "
il me remplace dans les cellules commencent par "de " toute les virgules par " et de " alors que je ne veux
que le remplacement de la premiere virgule !!

Merci
Lionel

 

[mécano41]

Re : Formule a mettre en macro

Bonjour,

Essaie avec :

If Left(X.Value, 3) = "de " Then X.Value = Replace(X.Value, ",", " et de ", 1 , 1)

cordialement

 

[lionelch1]

Re : Formule a mettre en macro

Bonjour Mécano41 ,

Impeccable , ca fonctionne
j'avais oublié quelque chose ( le 1 de la fin , j'etais pas loin Hi hi)
Encore merci
(Sujet résolue)

Bonne journée
Lionel