VBA - Vertical Scroll en ComboBox, ListBox et TextBox (ActiveX en Feuille et en UserForm) V13

[Dudu2]

Dudu2 a soumis une nouvelle ressource:

VBA - Srroll en ComboBox et ListBox (ActiveX et UserForm) - Finis les ascenseurs laborieux, la molette de la souris vous offre la liberté

Le fichier à télécharger contient:

1. Le Module_Scroll_ListBox_ComboBox à importer dans le projet VBA.
2. Des UserForms de test contenant des ComboBoxes et des ListBoxes
3. Une feuille de test contenant une ComboBox et une ListBox ActiveX

Les principales caractéristiques:

• Permet le Scroll dans les Controls ComboBox et ListBox ActiveX et UserForm

Mise en œuvre très simple:

• ...

En savoir plus sur cette ressource...

 

[Gégé-45550]

Un travail superbe ! Bravo ! 😎

 

[Toubabou]

Bonjour,
Pour ma part, j'ai un message d'erreur:

Puis:

Merci pour votre aide
Toubabou

 

[Dudu2]

Bonjour @Toubabou,
As-tu inséré le Module_Scroll_ListBox_ComboBox dans ton projet VBA ?
Sinon, il faut ouvrir le fichier téléchargé, aller dans la fenêtre VBA et faire un "drag & drop" du module en question vers ton projet.

 

[Toubabou]

Bonjour Dudu2,
J'ai copié le code et double clique sur ma ListBox1 et collé le code

 

[Dudu2]

Tu n'as pas répondu à la question;
As-tu insérer le Module_Scroll_ListBox_ComboBox dans ton projet VBA ?
C'est ce module qui contient les fonctions utiles.

 

[Toubabou]

Alors je viens de refaire la manipulation et effectivement cela fonctionne super bien.
Merci beaucoup

 

[Usine à gaz]

Bonsoir Dudu2 🙂
Quel travail ça a été lol
Bravo pour ton courage et ta ténacité.
Beau résultat Bravo à toi.
Bonne fin de journée
🙂

 

[Toubabou]

Alors pour profiter pleinement de ce super travail encore une question :
"Est-il possible de supprimer l'ascenseur vertical,?"
Bonne soirée à tous

 

[Dudu2]

"Est-il possible de supprimer l'ascenseur vertical,?"

J'ai vu des sujets sur ce thème dans différents forums, par exemple ici:

Disable listbox Vertical Scrollbar in Excel VBA

i wondering how to disable the listbox scrollbar.Because i already have a scroll bar which can control both textbox scroll together at the same time. As i know,For Horizontal just add the width, how

stackoverflow.com

Ceci dit, la présence de l'ascenseur vertical indique qu'il y a des items de la liste qui sont au-dessus et/ou au-dessous de la partie visible. Cela invite l'utilisateur à y aller voir, car une liste qui s'affiche complètement n'aura pas d'ascenseur vertical.
Si la liste n'est pas longue, il suffit alors d'ajuster la hauteur de la ListBox (ListBox.Height) ou le nombre d'items affichés en ComboBox (ComboBox.ListRows) pour faire disparaître naturellement l'ascenseur vertical.

 

[Toubabou]

Merci beaucoup pour l'information

 

[Dudu2]

Nouvelle version V3 toute fraiche.

 

[Toubabou]

Bonsoir à tous,
Merci beaucoup
Jean Marie

 

[Alain 79]

Bonsoir,
Cette solution est très intéressante surtout lorsque l'on a une liste longue.
J'ai donc installé ce module et créé une Combo box dans ma feuille mais lorsque je clique sur un des éléments j'ai un message d'erreur :

Si je clique sur le bouton débogage VBA s'ouvre :

Pourquoi ??

 

[Dudu2]

Bonsoir,
Aucune idée ! Je n'arrive pas à reproduire, même en plaçant la valeur sur une autre feuille que celle de la ComboBox1.
Sheets("Data") est protégée ?
En quelle version Windows et version Office et 32 ou 64 Bits Office es-tu ?
Est-ce que tu aurais un fichier à envoyer pour tester ?