Format numérique pour une box

Signaler
Messages postés
9
Date d'inscription
jeudi 8 août 2002
Statut
Membre
Dernière intervention
9 janvier 2003
-
Messages postés
386
Date d'inscription
samedi 4 octobre 2008
Statut
Membre
Dernière intervention
19 février 2018
-
Bonjour,
Je dois créer une combo box qui ne doit accepter que le format numérique.
Merci d'avance pour vos conseils.
(toutes vos propositions sont les biens venus)

4 réponses

Messages postés
386
Date d'inscription
samedi 4 octobre 2008
Statut
Membre
Dernière intervention
19 février 2018
2
Bonjour,

J'ai une solution plutôt violante! Si le text ecrit est incorrect on efface ce qui est écrit voila.

Dans le "ComboBox_KeyPress(KeyAscii As Integer)" tu écrit cela.

If KeyAscii = 13 Then ' Si "Enter".
For lngI = 1 To Len(ComboBox.Text)
If InStr("0123456789", Mid(ComboBox.Text, lngI, 1)) = 0 Then
ComboBox.Text = ""
Exit Sub
Else
Exit For
End If
Next lngI
End If

Des que appuis sur "Enter" le test est fait et supprime le résultat si incorrect. Ajoute les valeur que tu as besoin dans la ligne "If InStr("0123456789", Mid(ComboBox.Text, lngI, 1)) = 0 Then" (ex: actuellement les valeur correcte sont "0123456789".

A++
[Gally Home Corp]
0
Messages postés
9
Date d'inscription
jeudi 8 août 2002
Statut
Membre
Dernière intervention
9 janvier 2003

Merci pour ta reponse; malheuresement cela ne marche pas chez moi.
Le premier bug apparait dès :
ComboBox_KeyPress(KeyAscii As Integer)
0
Messages postés
9
Date d'inscription
jeudi 8 août 2002
Statut
Membre
Dernière intervention
9 janvier 2003

-------------------------------
Réponse au message :
-------------------------------

Merci pour ta reponse; malheuresement cela ne marche pas chez moi.
Le premier bug apparait dès :
ComboBox_KeyPress(KeyAscii As Integer)

-------------------------------
Réponse au message :
-------------------------------

Bonjour,

J'ai une solution plutôt violante! Si le text ecrit est incorrect on efface ce qui est écrit voila.

Dans le "ComboBox_KeyPress(KeyAscii As Integer)" tu écrit cela.

If KeyAscii = 13 Then ' Si "Enter".
For lngI = 1 To Len(ComboBox.Text)
If InStr("0123456789", Mid(ComboBox.Text, lngI, 1)) = 0 Then
ComboBox.Text = ""
Exit Sub
Else
Exit For
End If
Next lngI
End If

Des que appuis sur "Enter" le test est fait et supprime le résultat si incorrect. Ajoute les valeur que tu as besoin dans la ligne "If InStr("0123456789", Mid(ComboBox.Text, lngI, 1)) = 0 Then" (ex: actuellement les valeur correcte sont "0123456789".

A++
[Gally Home Corp]

-------------------------------
Réponse au message :
-------------------------------

Bonjour,
Je dois créer une combo box qui ne doit accepter que le format numérique.
Merci d'avance pour vos conseils.
(toutes vos propositions sont les biens venus)
0
Messages postés
386
Date d'inscription
samedi 4 octobre 2008
Statut
Membre
Dernière intervention
19 février 2018
2
ReHello,

C'est normal, tu creais ta check box et tu double-clique dessus, tu obtien un truc du style (Private Sub MachinSelectionne_Click()). Maintenant sélectionne avec la combobox de VB qui est ecrit "Click" le mot "KeyPress" et maintenant tu as la déclaration de ta Sub pour ta comboBox.

Il te reste a copier le code en modifion tout les ComboBox écrit dans la code ci-dessous avec le nom de ta combobox.

If KeyAscii = 13 Then ' Si "Enter".
For lngI = 1 To Len(ComboBox.Text)
If InStr("0123456789", Mid(ComboBox.Text, lngI, 1)) = 0 Then
ComboBox.Text = ""
Exit Sub
Else
Exit For
End If
Next lngI
End If

PS: si vraiment trop de prob écrit moi directement à Gally pour que je t'envois le code VB directement.

A++
[Gally Home Corp]
0