Format numérique pour une box

yannch Messages postés 9 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 9 janvier 2003 - 9 août 2002 à 08:58
gallyhc Messages postés 386 Date d'inscription samedi 4 octobre 2008 Statut Membre Dernière intervention 19 février 2018 - 9 août 2002 à 13:36
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

gallyhc Messages postés 386 Date d'inscription samedi 4 octobre 2008 Statut Membre Dernière intervention 19 février 2018 2
9 août 2002 à 09:44
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
yannch Messages postés 9 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 9 janvier 2003
9 août 2002 à 11:19
Merci pour ta reponse; malheuresement cela ne marche pas chez moi.
Le premier bug apparait dès :
ComboBox_KeyPress(KeyAscii As Integer)
0
yannch Messages postés 9 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 9 janvier 2003
9 août 2002 à 11:35
-------------------------------
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
gallyhc Messages postés 386 Date d'inscription samedi 4 octobre 2008 Statut Membre Dernière intervention 19 février 2018 2
9 août 2002 à 13:36
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
Rejoignez-nous