yannch
Messages postés9Date d'inscriptionjeudi 8 août 2002StatutMembreDernière intervention 9 janvier 2003
-
9 août 2002 à 08:58
gallyhc
Messages postés386Date d'inscriptionsamedi 4 octobre 2008StatutMembreDernière intervention19 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)
gallyhc
Messages postés386Date d'inscriptionsamedi 4 octobre 2008StatutMembreDernière intervention19 février 20182 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".
yannch
Messages postés9Date d'inscriptionjeudi 8 août 2002StatutMembreDerniè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)
gallyhc
Messages postés386Date d'inscriptionsamedi 4 octobre 2008StatutMembreDernière intervention19 février 20182 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.