Discussion :

[julienhgr2]

Bonjour,

J'ai une Combobox avec différentes valeurs.
J'y ai ajouté un evenement click pour déclencher un code VBA.
Mais voilà, l'évènement click ne fonctionne que si je change la valeur de la liste.

Pour être plus précis, voilà ce que je fais :
Ma liste déroulante et saisissable, et lorsque je saisis quelque chose dans ma combobox, la liste est recalculée pour faire une liste de type 'contient la valeur tapée' (avec un évènement Change, je recalcule la liste déroulante).

Par exemple, si je tape "pomme" ma liste déroulante affiche
pomme
pomme rouge
pomme verte
grosse pomme

SI je click sur pomme rouge mon évènement Click se déclenche bien.
Mais pas si je click sur pomme car cette valeur est déjà celle de ma combobox.

Je ne sais pas si je suis bien claire.

Est ce que vous avez déjà eu ce PB ? Avez vous une solution ?

Je me demande du coup si l'évènement click fonctionne si il n'y a qu'une valeur dans la liste déroulante et qu'elle est déjà saisie.

Merci beaucoup pour votre aide;

Julien

[rvtoulon]

Bonjour,
une idée:
dans la macro qui ajoute le contenu tapé dans la combobox tu peux mettre à la fin de ta macro par exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
'sélectionne l'entrée vide de la combo
Me.ComboBox1.ListIndex = -1

[Thumb down]

bonjour,
c'est simple l'hors de la saisi tu fais Entrer!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 13 Then ComboBox1_Click()
End Sub

[julienhgr2]

bonjour,
c'est simple l'hors de la saisi tu fais Entrer!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 13 Then ComboBox1_Click()
End Sub

Merci beaucoup pour ta réponse. Mais la touche entrée ne semble pas déclencher la fonction keypress... il ne se passe rien sur action de la touche entrée. Par contre cela fonctionne avec les autres touches

[Thumb down]

Bonjour,
Si je n'avais pas testé mon code je l'aurai précisé!

Touche Enter, retour chariot, retour à la ligne peut importe comment tu l'appelles !

[julienhgr2]

Bonjour,
Si je n'avais pas testé mon code je l'aurai précisé!

Touche Enter, retour chariot, retour à la ligne peut importe comment tu l'appelles !

Merci beauocup pour ton aide ! Il doit y avoir quelque chose que je n'ai pas compris.

Voici mon code. Lorsque je presse la touche entrée je ne passe dans aucune de ces fonctions :-( . Comme si la touche entrée ne déclenchait rien. Car peut être qu'elle n'a rien a valider.
Par exemple si je tape "le", ma combobox affiche beaucoup de mot "la chat, le chien, le, le vent,..."
Le est automatiquement sélectionné, si je presse sur 'entrée', si je click etc .... il ne se passe rien.
Par contre si je click sur "le chat", ou si je presse une autre touche "par exemple une lettre", là je passe bien dans mes fonctions keypress et change....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
Private Sub ComboBox1_Change()
 
 If Me.ComboBox1.ListIndex = -1 Then
 If Me.ComboBox1 <> "" Then
 
   Me.ComboBox1.List = Filter(listemccombo, Me.ComboBox1.Text, True, vbTextCompare)
   Me.ComboBox1.DropDown
 
 
 End If
 
 Else
  ' ComboBox1_click
   End If
End Sub
 
Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
MsgBox KeyAscii
If KeyAscii = 13 Then Call ComboBox1_click
End Sub
 
 
Private Sub ComboBox1_click()
Dim texteachercher As String
 
 
    ......
 
    ComboBox1.ListIndex = -1
    ComboBox1.Activate
 
End Sub

[Thumb down]

Si tout fonctionne mais vue que dans son ensemble le code est aberrant !

[julienhgr2]

Si tout fonctionne mais vue que dans son ensemble le code est aberrant !

C'est possible oui c'est mon "premier code de ce genre"

Pour ma fonction ComboBox1_click() je n'ai mis qu'un bout du code pour ne pas alourdir le message

[Thumb down]

Dans l'évènement click tu mets ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
    ComboBox1.ListIndex = -1

Ça appel immédiatement l'évènement change?

[julienhgr2]

Dans l'évènement click tu mets ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
    ComboBox1.ListIndex = -1

Ça appel immédiatement l'évènement change?

Oui effectivement, ça appel immédiatement l'évènement change.



Voici ce que j'essaie de faire : Un outil d'aide pour tagger des images :
-J'ai une grande liste de mots dans un onglet type 'table de ref'
-Dans ma liste déroulante au fur et à mesure que je tape mes lettre, la liste se mets à jour et se déplie.
Pourquoi je fais ça ? car ça me permet de trouver rapidement un 'mot'
Exemple : je tape "Cha" et je vais avoir une liste qui se déplie avec "Gros chat, Chat vert, Chat de ville, Chatte, etc"
et je n'ai plus qu'a cliquer sur le 'bon mot'
-Et en cliquant sur le mot, ça 'ajoute' le mot à une liste de tagg (un autre onglet) et ça efface tout et je recommence pour le mot clés suivant.

Ainsi je peu tagger assez rapidement en ne tapant que quelques lettres + 1 clic

Lorsque je tape un mot pas en entier et que je le sélectionne, cela fonctionne et déclenche bien les fonction. Mais si je tape le mot en entier (et il est donc automatiquement sélectionné), les touches entrée ou le click n'a plus d'effet sur la liste déroulante.