Combobox en cascade et TextBox en mode nombre

steph575 Messages postés 42 Date d'inscription   Statut Membre Dernière intervention   -  
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour.

Je souhaiterai créer deux ComboBox en cascade, mais ne sais comment faire.

Pour le TextBox j'ai rentré le code suivant:
Private Sub HT_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

sepdec = Application.International(xlDecimalSeparator)

If Chr(KeyAscii) = "." Or Chr(KeyAscii) = "," Then KeyAscii = Asc(sepdec)

If Chr(KeyAscii) <> "," Then

If Not IsNumeric(Chr(KeyAscii)) Then MsgBox ("Remplacer le point par une virgule !"): HT.Text = "": Exit Sub

End If

si cela me permet de transformer le point du pavé numérique en virgule, dans mon tableau récap, il le considère comme du texte. Pourriez-vous m'expliquer comment le mettre en mode monétaire.

Merci pour votre aide.

https://mon-partage.fr/f/PZrpNC07/
A voir également:

1 réponse

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

Si virgule = texte, le separateur de decimal est ".", donc voir dans options avancees separateur de decimal


Combo cascades, manque lesquelles!!
0