Comparer un chiffre ou un text dans un combo1
wrndid
Messages postés
36
Date d'inscription
mercredi 16 mars 2005
Statut
Membre
Dernière intervention
5 février 2009
-
28 juin 2007 à 20:21
cs_Exploreur Messages postés 4821 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 - 28 juin 2007 à 21:05
cs_Exploreur Messages postés 4821 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 - 28 juin 2007 à 21:05
A voir également:
- Comparer un chiffre ou un text dans un combo1
- Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
- Comparer date sql ✓ - Forum Delphi / Pascal
- Code sql pour comparer deux dates de reservation (je travaille sur le cms joomla - Forum SQL
- Combien de chiffre dans le rib maroc - Forum Visual Basic 6
- Text box ✓ - Forum Visual Basic
4 réponses
jmfmarques
Messages postés
7666
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
27
28 juin 2007 à 20:30
28 juin 2007 à 20:30
Bonjour,
J'ai des difficultés à comprendre :
Comparer est un verve qui ne peutr être utilisé seul .
On compare une chose à une autre chose
Tu veux comparer quoi à quoi ?
J'ai des difficultés à comprendre :
Comparer est un verve qui ne peutr être utilisé seul .
On compare une chose à une autre chose
Tu veux comparer quoi à quoi ?
cs_Exploreur
Messages postés
4821
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
15
28 juin 2007 à 20:37
28 juin 2007 à 20:37
Salut,
Essaye avec un textbox et un combobox ceci :
Private Sub Combo1_Click()
If CLng(Text1.Text) = CLng(Combo1.List(Combo1.ListIndex)) Then MsgBox "Identique"
If CLng(Text1.Text) < CLng(Combo1.List(Combo1.ListIndex)) Then MsgBox "Plus grand que Text1"
If CLng(Text1.Text) > CLng(Combo1.List(Combo1.ListIndex)) Then MsgBox "Plus petit que Text1"
End Sub
Private Sub Form_Load()
Text1.Text = "100"
Combo1.AddItem "100"
Combo1.AddItem "99"
Combo1.AddItem "110"
End Sub
A+
Exploreur
Linux a un noyau, Windows un pépin
Essaye avec un textbox et un combobox ceci :
Private Sub Combo1_Click()
If CLng(Text1.Text) = CLng(Combo1.List(Combo1.ListIndex)) Then MsgBox "Identique"
If CLng(Text1.Text) < CLng(Combo1.List(Combo1.ListIndex)) Then MsgBox "Plus grand que Text1"
If CLng(Text1.Text) > CLng(Combo1.List(Combo1.ListIndex)) Then MsgBox "Plus petit que Text1"
End Sub
Private Sub Form_Load()
Text1.Text = "100"
Combo1.AddItem "100"
Combo1.AddItem "99"
Combo1.AddItem "110"
End Sub
A+
Exploreur
Linux a un noyau, Windows un pépin
jmfmarques
Messages postés
7666
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
27
28 juin 2007 à 20:56
28 juin 2007 à 20:56
Bonjour Exploreur,
Difficile pour l'instant de deviner ce qu'il cherche à faire...
Toutes les hypothèses sont possibles, à commencer par : regarder si l'un des articles de la ComboBox est identique à une chaine de caractères donnée...
Mais aussi : rechercher un doublon...
Mais aussi :... etc... etc...
Il me parait donc important qu'il s'explique avec précision...
Difficile pour l'instant de deviner ce qu'il cherche à faire...
Toutes les hypothèses sont possibles, à commencer par : regarder si l'un des articles de la ComboBox est identique à une chaine de caractères donnée...
Mais aussi : rechercher un doublon...
Mais aussi :... etc... etc...
Il me parait donc important qu'il s'explique avec précision...
cs_Exploreur
Messages postés
4821
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
15
28 juin 2007 à 21:05
28 juin 2007 à 21:05
Salut Jmfmarques,
Je suis d'accord avec toi...En faite pendant que je tapais mon code tu avais déjà poster le tiens, et comme je n'aie pas fait un refresh, je n'aie vu qu'après ton post....
A+
Exploreur
Linux a un noyau, Windows un pépin
Je suis d'accord avec toi...En faite pendant que je tapais mon code tu avais déjà poster le tiens, et comme je n'aie pas fait un refresh, je n'aie vu qu'après ton post....
A+
Exploreur
Linux a un noyau, Windows un pépin
