Inputbox ou combobox

[momo2394]

Bonjour le forum

Pour rechercher un produit je suis obligé de taper le produit, je voudrais que tout les produit de la feuille inventaire soient incrémentés dans la fenêtre avec un combobox ou autres qui serait alimenter par la liste des produits de la feuille Inventaire.
J'espère que j'ai été clair

Merci

 

[gilbert_RGI]

Re : Inputbox ou combobox

Bonjour,

voir liste de validation en I8

est-ce la demande ?

 

[momo2394]

Re : Inputbox ou combobox

Bonjour gilbert

Non du tout! la liste de validation doit être ou dans un inputbox ou un combobox

Dès lors que j'appuis sur recherche je n'ai pas à inscrire quelques chose, tous les produits doivent apparaitre
Merci

 

[herve62]

Re : Inputbox ou combobox

Bonsoir tous , Gilbert
Je pense que si tu supprimes la "liste" en I8 et que lorsqu'il ouvre "RECHERCHE" c'est là qu'une fois la 1ere lettre tapée la liste s'affiche ?
Momo est-ce ce que tu recherches ??

 

[job75]

Re : Inputbox ou combobox

Bonjour à tous,

Vous avez déjà une ComboBox dans la feuille, alors pourquoi écrivez-vous :

Pour rechercher un produit je suis obligé de taper le produit

Il suffit de cliquer dans la liste, il n'y a rien à écrire 😕

Et il suffit d'alimenter la ComboBox quand on clique dessus :

Private Sub ComboBox1_GotFocus()
With Sheets("Inventaire")
  With .Range("D2:E" & .Range("D" & .Rows.Count).End(xlUp).Row) 'au moins 2 cellules
    If .Row = 1 Then ComboBox1.Clear Else ComboBox1.List = .Value
  End With
End With
ComboBox1.DropDown 'déroule la liste
End Sub

La liste est construite directement à partir de la feuille "Inventaire".

J'ai bien sûr effacé le contenu de la propriété ListFillRange.

Fichier joint.

Edit : bien entendu le bouton "Recherche" ne sert plus a rien.

On fera les modifications dans la feuille avec la macro :

Private Sub ComboBox1_Change()

placée aussi dans le code de la feuille.

A+

 

[job75]

Re : Inputbox ou combobox

Re,

Si vous préférez une ComboBox dans un UserForm, voyez ce fichier (2) et le code :

Private Sub Combobox1_Change()
If ComboBox1.ListIndex = -1 Then ComboBox1.DropDown: Exit Sub
MsgBox "Je vous laisse écrire le code que vous voulez ici..."
'and so on...
End Sub

Private Sub UserForm_Initialize()
With Sheets("Inventaire")
  With .Range("D2:E" & .Range("D" & .Rows.Count).End(xlUp).Row) 'au moins 2 cellules
    If .Row > 1 Then ComboBox1.List = .Value
  End With
End With
Application.OnTime 1, "deroule" 'pour dérouler la liste
End Sub

Edit : ajouté un gadget pour dérouler la liste...

A+

 

[Magic_Doctor]

Re : Inputbox ou combobox

Bonjour momo, le forum

Étant en ce moment dans des histoires de ComboBox, j'ai adapté sur votre feuille (version de job) un truc intéressant pour naviguer, au moyen de la molette de la souris, dans une liste de ComboBox un peu interminable.

 

[job75]

Re : Inputbox ou combobox

Hello Magic_Doctor,

Bien vu, c'est en effet intéressant.

A+

 

[Magic_Doctor]

Re : Inputbox ou combobox

Hola job,

En effet, cette astuce que j'ai trouvée par hasard (je ne me souviens plus où) est intéressante, d'autant plus que la molette, à la longue, est devenue presque un réflexe. Alors, pourquoi s'en priver ?
Ci-joint, le document en question qui traite les ComboBox et ListBox sur feuille et sur USF.
J'ai fait (pour l'USF) une petite modification afin de pouvoir y mettre le titre que l'on veut et ne pas être condamné à y laisser le nom de l'USF.

A+

 

[gilbert_RGI]

Re : Inputbox ou combobox

Bonjour, Magic_Doctor

une autre solution de Thierry Pourtier voir archive jointe

modHookWheelMouse est de Philippe734
voir ici

 

[momo2394]

Re : Inputbox ou combobox

Bonjour à tous

Merci pour tout vos efforts

Herve62
C'est tout à fait ce que je recherche, je dois garder la bouton recherche

Merci

 

[herve62]

Re : Inputbox ou combobox

Bonjour à vous
Etant curieux , j'ai testéle remède du Doctor ! hélas j'ai erreur ( ci jointe) après activer contenu ( vba) ??
Momo : donc si c'est ce que j'ai dit ; prend la solution 2 de JOB
Bonne journée

 

[Magic_Doctor]

Re : Inputbox ou combobox

Bonjour à tous,

gilbert, c'est intéressant la solution de Thierry Pourtier. Mais compliqué...
Merci pour avoir trouvé le pseudo de l'auteur de "modHookWheelMouse".
herve, c'est bizarre et dommage que ça ne marche pas chez vous. Effectivement, job avait donné une bonne solution à momo. Ce que je proposais n'était ni plus ni moins qu'une cerise sur la gâteau, peut-être superfétatoire mais rapidement indispensable. Sait-on jamais, essayez la PJ du post #9.
Quoi qu'il en soit, ce serait quand même intéressant de comprendre pourquoi ça plante chez vous.

Bonne journée

 

[Magic_Doctor]

Re : Inputbox ou combobox

Re,

Concernant le problème de herve62, j'ai trouvé ceci, ailleurs sur le net :

"j'ai eu le même problème et trouvé une solution simple.

Mon fichier était un fichier au format .xlsm

je l'ai enregistré au format .xls et je n'ai plus le soucis, et mon projet VBA est bien enregistré aussi sous ce format."

À essayer...

J'en profite pour renvoyer le classeur "Molette pour Combo ListBox sur feuil & UserForm". En effet, dans l'USF il y avait un problème quand on passait du ComboBox au ListBox sans avoir sélectionné un item du ComboBox ; la molette de la souris ne fonctionnait alors plus dans le ListBox.
Maintenant ça marche.

 

[gilbert_RGI]

Re : Inputbox ou combobox

Bonjour,

les Debug.Print Timer, "Hook ON" et Debug.Print Timer, "Hook OFF"peuvent être mis en remarque pour éviter d'encombrer la zone d’exécution dans l'éditeur VBA