Déclencher l'évènement Click avec 1 valeur dans une combo box

Résolu
Morgan67700 Messages postés 30 Date d'inscription   Statut Membre Dernière intervention   -  
Morgan67700 Messages postés 30 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je suis un peu bloqué lors de la programmation de mon userform.
La combobox nommée "COMBO" charge bien les données selon les critères et sélections précédentes.

Je souhaiterai que:

- Quand plusieurs valeurs sont possibles dans la combobox on vide le champs pour faire le choix. (Ça marche)

- Quand une seule valeur est possible dans la combobox, j'aimerai que la combobox prenne automatiquement cette valeur dans la liste et génére l'évenement "Click" (Private Sub COMBO_Click ()) pour alimenter les combobox d'après sans faire le click gauche avec la souris.
(L'unique valeur se place dans la combobox mais l'évenement Click ne se déclenche pas) 

 
If COMBO.ListCount > 1 Then ' Lorsque la combobox a plusieurs choix dans la liste
   COMBO.Value = "" ' Vide la combobox pour choisir une valeur parmi les autres possibilitées
ElseIf COMBO.ListCount = 1 Then
   COMBO.List(0).Click  ' Il y a une erreur mais sans cette ligne la combobox affiche bien l'unique valeur mais je souhaiterai aussi déclencher l'évenement "Private Sub COMBO_Click ()" ou un évènement similaire
End If


Y-a-t il une autre solution pour éviter de passer par l’événement "Private Sub COMBO_Click ()"?

Le problème est que le fait de mettre cette valeur automatiquement dans la combobox, sans cliquer réellement avec la souris, n'alimente pas les autres combobox de valeurs.

Quelqu'un a une idée?

Merci,
A voir également:

2 réponses

Réponse 1 / 2
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

Quand une seule valeur est possible dans la combobox
Comment est remplie la Combobox?
0
Morgan67700 Messages postés 30 Date d'inscription   Statut Membre Dernière intervention   1
 
Bonjour f894009,

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 i

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.
0
Réponse 2 / 2
Morgan67700 Messages postés 30 Date d'inscription   Statut Membre Dernière intervention   1
 
Ok j'ai trouvé, la solution était : 

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
0

Discussions similaires

Site de confiance ou non ?
mlle_so -
Jaffeli -

25 réponses
Info visual-click.com
monts59 -
mpmp93 -

1 réponse
MSI CLICK BIOS 5
Theo4612 -
john99 -

9 réponses
by click downloader
Danablain -
oblixx -

5 réponses
"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses