XL 2013 VBA Scroll en ListBox (dans un UserForm)

[Dudu2]

Bonjour,

Je chercher un code qui marche pour scroller une ListBox dans un UserForm avec la molette de la souris.
Sur Internet il y a plein d'exemples inspirés du code de Peter Thornton mais il y a toujours un truc qui coince à l'exécution.

Quelqu'un aurait-il une version opérationnelle en 32 bits ? en 64 bits ?

Cordialement,
D.

 

[Dudu2]

Bon, j'ai trouvé quelque chose qui n'est pas bidon avec des références manquantes, des variables non déclarées, bref un truc bien fait, et c'est ici que je l'ai trouvé:

Mouse Wheel Hook (faire défiler le contenu d'une combobox/listbox avec la roulette)

Bonjour à tous, Suite à la demande de Fmiste concernant la possibilité de faire défiler le contenu d'une ComboBox Je me suis aperçu qu'il n'y avait pas tellement de fil traitant ce sujet sur le forum :( ou du moins je n'en ai pas trouvé concernant le terme "Mouse wheel" Je mets donc ici à...

www.excel-downloads.com

 

[JM27]

bonjour

 

[Dudu2]

Merci JM27.
Ton fichier est le même que celui cité dans le lien plus haut.
Cette solution solution fonctionne mais elle a malgré tout un défaut:
il faut d'abord cliquer dans la ListBox pour que le scroll soit opérationnel.
J'ai essayé différente choses sans succès.

 

[JM27]

Bonjour
Comme cela peut être

 

[Dudu2]

Magique. Je ne vois pas ce que tu as changé... ?

Le Me.ComboBox1.DropDown ?

Dommage qu'il n'y ait pas cette méthode pour la ListBox !

 

[patricktoulon]

bonjour
perso j'utilise ce modèle depuis longtemps
pas besoins de sélectionné pour que ça marche
oserais-je quand même dire qu'un listview fait cela nativement

 

[Dudu2]

Ok ce modèle marche bien.
Je ne connais pas ListView. Il faut donc que je m'y intéresse.
Merci pour ce dernier fichier et l'idée d'utiliser un objet qui fait ça en standard (si ça correspond au besoin).

 

[patricktoulon]

re
pour une combo et avoir le dropdown auto

Dim dpdown As Boolean
Private Sub ComboBox1_Enter()
 Call HookMouse(Me.ComboBox1, eUSERFORM, Me.Name)
End Sub

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
dpdown = False
UnHookMouse
End Sub

Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Call HookMouse(ComboBox1, eSHEET)
End Sub

Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Not dpdown Then ComboBox1.DropDown: ComboBox1.SetFocus: dpdown = True
End Sub

 

[JM27]

Ca marche aussi pour la listbox

 

[patricktoulon]

re
je sais

 

[JM27]

Bonjour
la réponse s'adressait à Dudu2

 

[Dudu2]

Merci encore JM27 pour ces précisions et merci patricktoulon pour ta contribution appréciée.
Bon confinement,
D.

 

[Dudu2]

Un petit détail...
Dans une liste de 25 items, quand on Scroll tout en bas, et qu'on Scroll tout en haut, le Scroll s'arrête au 2ème item de la liste. Le 1e n'est visible qu'en revenant avec l'ascenseur.

J'ai introduit une petite correction avec l'instruction:
If .TopIndex < 3 Then .TopIndex = 0 Else .TopIndex = .TopIndex - 3

            With CtrlHooked
                ' déplace l'ascenseur en fonction de la molette
                ' l'info est stockée dans lParam
                If GetHookStruct(lParam).mouseData > 0 Then
                    If .TopIndex < 3 Then .TopIndex = 0 Else .TopIndex = .TopIndex - 3
                Else
                    .TopIndex = .TopIndex + 3
                End If
            End With

 

[patricktoulon]

re
bonsoir dudu2

perso je pense que devoir ajuster une position par vba après hook de la souris est une preuve flagrante d'un défaut de conception si c'est moi je prends ce code et le fou a la poubelle

le hooking doit juste servir a strictement t'apporter le bouton 3 de la souris qui est la molette et rien de plus si c'est pas le cas c'est de la daube surtout que la on parle de hooker la souris et une seule erreur te pourri la vie et pas que dans excel
bref jette moi çà tu n'en est peut être pas conscient mais le hooking peut être très dangereux quand on le maîtrise pas
pardonnez ma franchise