Déclencher l'évènement Click avec 1 valeur dans une combo box
Résolu/Fermé
Morgan67700
Messages postés
30
Date d'inscription
lundi 8 décembre 2014
Statut
Membre
Dernière intervention
17 avril 2018
-
20 mars 2017 à 17:28
Morgan67700 Messages postés 30 Date d'inscription lundi 8 décembre 2014 Statut Membre Dernière intervention 17 avril 2018 - 21 mars 2017 à 09:15
Morgan67700 Messages postés 30 Date d'inscription lundi 8 décembre 2014 Statut Membre Dernière intervention 17 avril 2018 - 21 mars 2017 à 09:15
A voir également:
- Déclencher l'évènement Click avec 1 valeur dans une combo box
- Auto click - Télécharger - Divers Utilitaires
- Adresse ip box - Guide
- Tera box - Télécharger - Stockage
- Logiciel gratuit calcul valeur nutritionnelle - Télécharger - Santé & Bien-être
- Excel renvoyer la valeur d'une cellule en fonction d'une autre - Forum Logiciels
2 réponses
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
21 mars 2017 à 07:06
21 mars 2017 à 07:06
Bonjour,
Quand une seule valeur est possible dans la combobox
Comment est remplie la Combobox?
Quand une seule valeur est possible dans la combobox
Comment est remplie la Combobox?
Morgan67700
Messages postés
30
Date d'inscription
lundi 8 décembre 2014
Statut
Membre
Dernière intervention
17 avril 2018
1
Modifié par Morgan67700 le 21/03/2017 à 09:15
Modifié par Morgan67700 le 21/03/2017 à 09:15
Ok j'ai trouvé, la solution était :
Pour déclencher la procédure évènementielle il ne faut pas oublier d'enlever le "Private" du "Private Sub".
Le code complet est donc:
CallByName Feuil1, "COMBO_Click", VbMethod
Pour déclencher la procédure évènementielle il ne faut pas oublier d'enlever le "Private" du "Private Sub".
Le code complet est donc:
If COMBO.ListCount > 1 Then ' La combobox a plusieurs choix dans la liste COMBO.Value = "" ' Vide la combobox pour pouvoir choisir une valeur de la liste ElseIf COMBO.ListCount = 1 Then CallByName Feuil1, "COMBO_Click", VbMethod ' Déclenche l'évenement "Sub COMBO_Click ()" End If
21 mars 2017 à 08:21
La combobox en question (COMBO) est remplie avec l'évènement "Private Sub COMBO_0_Click () " de la combobox précédente (COMBO_0). Le code se trouve ci-dessous:
J'aimerai simplement trouver une solution pour afficher l'unique valeur de la combobox COMBO lorsqu'il n'y en a qu'une et trouver le moyen de provoquer l'évènement "Private Sub COMBO_Click () " en vba car sans cliquer dessus avec la souris ça ne fonctionne pas si j'affiche uniquement la valeur sélectionnée.