Fonction NBCAR

bonjour

j'ai bug sur l'écriture de cette fonction en vba

'SI(NBCAR(DROITE(X14;NBCAR(X14)-0))=8;0& DROITE(X14;NBCAR(X14)-0);"")))

j'ai essayé de la mettre en vba

If Len(Right(Cells(ligne, 24).Value) - 0) = 8 Then

Cells(ligne, 37).Value =0 & Right(Cells(ligne, 24).Value, Len((Cells(ligne, 24).Value) - 0))

else

Cells(ligne, 37).Value = ""

End If

quand je lance la macro erreur de compilation argurment non facultatif

si quelqu'un pouvait controler cette parti du vba sans envoyer un fichier car il est vraiment volumineux

ça serait sympa..

cordialement

philippe87

Bonjour Philippe

Il faudra que tu m'explique l'utilité de "-0"

Sinon la correction est :

If Len(Right(Cells(ligne, 24), Len(Cells(ligne, 24)))) = 8 Then

A+

Bonjour,

NBCAR(DROITE(X14;NBCAR(X14)-0))

revient à :

NBCAR(X14)

non ?

Dans ton code, il te manque le second argument de la fonction Right, le nombre de caractères que tu veux, mais apparemment, tu n'en as pas besoin puisque c'est le nombre de caractères de X14 que tu prends (-0 !!!)

Slt,

En plus dans ta formule, il y a plus de parenthèses fermées qu'ouvertes! je ne pense pas qu'elle fonctionne chez toi

philippe87 a écrit :

'SI(NBCAR(DROITE(X14;NBCAR(X14)-0))=8;0& DROITE(X14;NBCAR(X14)-0);"")))

La coupure de midi m'a fait du bien, j'ai résolu le probléme

merci encore

philippe