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
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel
- Mycanal box africa ✓ - Forum Réception vidéo
- Pièce 2 euros dessin bonhomme valeur ✓ - Forum Loisirs / Divertissements
- Vba rechercher une valeur dans une colonne - Astuces et Solutions
2 réponses
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
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:
For i = 1 To 50 ' Prends les données existantes If COMBO_0.Value = CStr(Feuil1.Cells(i, 1).Text) Then COMBO.Value = Feuil1.Cells(i, 2).Text If COMBO.ListIndex = -1 Then COMBO.AddItem Feuil1.Cells(i, 2).Text ' Evite les doublons End If Next iJ'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.