Convertir un chiffre en lettres

Salut tout le monde

Dans le modèle Excel ci-joint, se trouve une fonction pour convertir un chiffre en lettre, le problème c’est que quand le nombre est négatif, l’arrêté en lettre est erroné.

Peut quelqu’un m’aider à le modifier ?

Merci d’avance

Bonsoir Yazidioubi,

Utilisez cette formule =SI(SIGNE(A1)=-1;"- " & @Chiffrelettre(A1*-1);@Chiffrelettre(A1))

Salut X Cellus

JE VEUX MODIFIER LE CODE, EST-CE QUE C'EST POSSIBLE?

A nouveau,

Donc tu souhaites seulement pouvoir utiliser la fonction Chiffrelettre quelque soit le signe de la valeur ? N'est ce pas.

Je regardes ton code et te redis au plus tôt.

Suite,

Voilà il faut modifier sur cette partie du code

' toutes les lignes de code précédentes
Espace = Space(1)
    If Valeur < 0 Then Signe = "- ": Valeur = Valeur * -1 else Signe =""
 ' toutes les lignes de code suivantes

Puis en fin de code rajouter la variable Signe

Chiffrelettre = Signe & T & D & Myct
   

Ne pas oublier en début du programme de dimensionner Signe en variable String

Dim Espace, Signe As String