Fonction convertir chiffre en lettre en VBA

Bonjour toutes et tous

merci à Learnaccess une vidéo sur Youtube

ci-joint

il suffit juste de cacher les 2 lignes de la feuille, tout est dans le module1, à 2 décimales

crdlt,

André

Bonsoir ,

parfait mais est t'il possible de changer la monnaie

Re,

merci pour le retour , dans le module il y a 3 ou quatre texte en euro, on peut remplacer par la monnaie souhaitée

crdlt,

André

Merci beaucoup

est t'il possible de bloque la saisie dans une zone texte

Bonjour toutes et tous

@Abdernino,

je pense que c'est pour l'userform3, ici sur cet exemple ci-joint @tester, la propriété de la textbox5 ( Enabled= True ) et (Locked = True) (nous pouvons nous placer cette textbox5 sans que ne s'inscrive quoique se soit

j'ai placé en exemple un label5 (label = étiquette) qui affiche le résultat on peut très bien utiliser le label8

pour la textbox2 accepte uniquement la virgule et les chiffres

Private Sub Textbox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("1234567890,-", Chr(KeyAscii)) = 0 Or TextBox2.SelStart > 0 And Chr(KeyAscii) = "-" _
Or InStr(TextBox2.Value, ",") <> 0 And Chr(KeyAscii) = "," Then KeyAscii = 0: Beep
End Sub

Edit: nouvelle version

crdlt,

André