vba excel : convertir chiffres en lettres

bonjour a tous

Pour convertir les chiffres en lettres sur excel c'est quoi comme code svp

merci

Salut, Salam, regarde ici

Merci
Je vais l’essayer , mais j’aurai aimer pouvoirs exprimer avec le mot moins dans le cas ou le chiffre ou nombre est négatif
Encore une fois merci pour vos réponses

Salut, dans la fonction ConvNumberLetter tu as une variable booléenne bNegatif qui vaut True si nombre est négatif.

Code:

---

1 2 3 4 5 6

..... If nombre < 0 Then bNegatif = True nombre = Abs(nombre) End If .....

---

Donc en ajoutant If bNegatif Then ConvNumberLetter = "- " & ConvNumberLetter en fin de cette fonction ou If bNegatif Then ConvNumberLetter = "Moins " & ConvNumberLetter au choix, à toi d'œuvrer.

Code:

---

1 2 3 4 5 6 7

..... If Devise = 3 Then _ ConvNumberLetter = Replace(ConvNumberLetter, "€Uros", "€uros", , , vbTextCompare) End Select   If bNegatif Then ConvNumberLetter = "Moins " & ConvNumberLetter End Function

---

Citation:

---

Envoyé par kiki29

Salut, dans la fonction ConvNumberLetter tu as une variable booléenne bNegatif qui vaut True si nombre est négatif.

Code:

---

1 2 3 4 5 6

..... If nombre < 0 Then bNegatif = True nombre = Abs(nombre) End If .....

---

Donc en ajoutant If bNegatif Then ConvNumberLetter = "- " & ConvNumberLetter en fin de cette fonction ou If bNegatif Then ConvNumberLetter = "Moins " & ConvNumberLetter au choix, à toi d'œuvrer.

Code:

---

1 2 3 4 5 6 7

..... If Devise = 3 Then _ ConvNumberLetter = Replace(ConvNumberLetter, "€Uros", "€uros", , , vbTextCompare) End Select   If bNegatif Then ConvNumberLetter = "Moins " & ConvNumberLetter End Function

---

---

Ah d’accord merci
V le tester et vous répondre
Thx a

je viens de tester a marche

merci

Citation:

---

Envoyé par limanus

Ah d’accord merci
V le tester et vous répondre
Thx a

---

BONJOUR
JE VIENS DE FAIRE UN AUTRE TEST SUR UN AUTRE PC LE MOT MOINS NE S'AFFICHE PAS
MERCI

Citation:

---

Envoyé par limanus

BONJOUR
JE VIENS DE FAIRE UN AUTRE TEST SUR UN AUTRE PC LE MOT MOINS NE S'AFFICHE PAS
MERCI

---

j'ai trouvé mon erreur
merci