Traduire =CTCT(A1;2;) en VBA

[Risleure]

Bonjour le Forum,

Après un recherche infructueuse dans le Forum, je cherche à traduire en VBA, la formule

=NBCAR(CTXT(A1;2;))

qui égale à 8 (.....au début je m'attendais à 7 !!!) si A1 = 5000 avec un format ("0.00").
Le code VBA sera du genre

Len(????(Feuil2.Range("A1").Value,2,false)

après remplacement de ???? par la traduction VBA de CTXT()

Merci pour votre aide

 

[Guest]

Re : Traduire =CTCT(A1;2😉 en VBA

bonjour,

=Len(Feuil2.Range("A1").Text)

=7 pour 5000 au format nombre à deux décimales.

A+

 

[Risleure]

Re : Traduire =CTXT(A1;2😉 en VBA

😀 Merci Hasco, c'est cela !!!!! 😀