Discussion :

[limanus]

bonjour a tous

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

merci

[kiki29]

Salut, Salam, regarde ici

[limanus]

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

[kiki29]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[limanus]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[limanus]

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