saisie de combobox

[jeannot68]

bonjour au forum

2 ptites questions, ;;;;
J'ai créee une combobox avec une liste déroulante. tout fonctionne bien sauf à la toute premiere saisie apres ouverture du fichier rien ne se passe si je tape manuellement. apres avoir choisi une fois dans les item de la liste sa fonctionne je peux ecrire la premiere lettre (meme en minuscule) et il cherche les propositions.
y a t il une propriété??

et comment faire apparaitre en fonction de ma premiere lettre tapé la liste déroulant avec en haut de la liste la premiere proposition de réponse qui concernet la lettre tapée comme une recherche google

 

[Robert]

Re : saisie de combobox

Bonjour Jeannot, bonjour le forum,

Étrange ! Chez moi tes deux problèmes fonctionnent parfaitement. Je peux écrire dans la ComboBox et celle-ci atteint les éléments en fonction des premières lettres éditées... ?

 

[Cousinhub]

Re : saisie de combobox

Bonjour,

ce fonctionnement est normal, car tu alimentes ta combobox par le premier appui sur la flèche de droite :

Private Sub ComboBox1_[COLOR="Red"]DropButtonClick[/COLOR]()
If ComboBox1.ListCount > 0 Then Exit Sub
IniCbo1

End Sub

Il faudrait l'initialiser au démarrage du classeur, mais dans ce cas, si tu modifies des données dans les autres onglets, celles-ci ne seront pas prises en compte dans la combobox...

Bonne journée

 

[jeannot68]

Re : saisie de combobox

que dois je faire alors?? pour que ca marche des l'ouverture??

 

[Cousinhub]

Re : saisie de combobox

Re-,

par exemple, dans le workbook_open :

Private Sub Workbook_Open()
With Sheets("RECHERCHE")
    .Activate
    .ComboBox1.Activate
    Call Feuil1.IniCbo1
End With
End Sub

et tu enlèves le Private de :

[COLOR="Red"]Private[/COLOR] Sub IniCbo1()

 

[nolich]

Re : saisie de combobox

Bonsoir Jeannot68, Robert et bhbh, bonsoir à toutes et à tous 🙂

Envoyé par jeannot68
que dois je faire alors?? pour que ca marche des l'ouverture??

Tu peux peut-être essayer d'ajouter cette procédure dans ton code :

[COLOR="Blue"]Private Sub[/COLOR] ComboBox1_Change()
  [COLOR="blue"]If[/COLOR] ComboBox1.ListIndex >= 0 [COLOR="blue"]Then[/COLOR]
    SendKeys "%{down}", [COLOR="blue"]True[/COLOR]
  [COLOR="blue"]End If[/COLOR]
[COLOR="blue"]End Sub[/COLOR]

To be continued 😉

@+

 

[jeannot68]

Re : saisie de combobox

Bonjour a tous

Merci de vos réponses ca marche

A bientot pour de nouvelles aventures