Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 Molette Scroll sur ListBox

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion gg13
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
G

gg13

XLDnaute Occasionnel
Bonjour,

Je commence un nouveau projet pour lequel je devrai utiliser des ListBox et ComboBox.
Ces listes seront longues et je voudrais utiliser le scroll de la molette plutôt que les ascenseurs.

Après renseignement sur le site j’ai voulu utiliser ce post :
Mouse Wheel Hook (faire défiler le contenu d'une combobox/listbox avec la roulette)

Je galère depuis 2 jours et malgré plusieurs essais je n’arrive pas à intégrer ces différentes macros, plusieurs messages d’erreurs ….
Je ne comprends pas tout.
Si vous pouvez m’aider un peu je vous remercie d’avance.

Je joins le fichier exemple avec les listBox .

GG13
 

Pièces jointes

Trier par date Trier par votes
et par macro tu peux enlever ajouter des modules par vba et j'en passe et des meilleures
demain tu trouve une autre merdouille tu fais quoi ? tu débloque quoi?
Cliquez pour agrandir...
Si tu avais suivi tu saurais que je ne débloque plus la sécurité des macros.
Et encore du blabla et des copies d'écran pour rien. Baratin de critiques.
Il est où ton fichier ?
 
Vote positif 0 Vote négatif
je baratine rien
je te donne des trucs tu les teste même pas
tiens mon fichier 32 bits sur userform
alors certes sur combobox avec font size supérieur a 8 normalement il y a le bottom qui est plus ou moins juste
mais purée de purée qu'est ce que l'on s'en balance de quelque pixels a la "C.." pour un scroll

mon fichier 32 bits sur userform joint sans api WIN
je fini l'adaptation aux controls sur feuille
 

Pièces jointes

Vote positif 0 Vote négatif
alors tu a de grave problème dans ton truc ou alors tu est en vb6
à moins que j'ai mal déclaré les api hook ça je ne peut plus le faire chez moi

moi j'ai un window et un excel d'origine
et là tu peux pas dire y a plus windowfrompoint et tout y couinti

je viens de faire la fonction getControlRectangleWorksheet

démonstration
sur userform


sur feuille



donc pour les controls sur feuille
l'appel se fait
dans le move aussi mais sans le fentre parent a l'inverse du userform
hookmouseX listbox1

la fonction à ajouter
VB: 
Function getControlRectangleWorksheet(obj As Object) As RECT
    Dim LfT#, Tp#, r As RECT
    With ActiveWindow
        LfT = .Panes(1).PointsToScreenPixelsX(obj.Left)
        Tp = .Panes(1).PointsToScreenPixelsY(obj.Top)
        r.Left = LfT
        r.Top = Tp
        r.Right = r.Left + (obj.Width * Ppx)
        r.Bottom = r.Top + (obj.Height * Ppx)
    End With
    
    If TypeName(obj) = "ComboBox" Then
             r.Bottom = r.Bottom + ((obj.ListRows * (obj.Font.Size)) * Ppx)
            r.Top = r.Top + (obj.Height * Ppx)
        End If
     getControlRectangleWorksheet = r
End Function

et on ajoute cette possibilité dans la sub hookmouseX
VB: 
Public Sub HookMouseX(ByVal CtrL As Object, Optional ByVal FenParent As Object = Nothing)
    Dim pos As POINTAPI
    If Not FenParent Is Nothing Then Set USFForm = FenParent
    If Not CtrlHooked Is Nothing Then If CtrlHooked.Name <> CtrL.Name Then UnHookMouse
    If plHooking < 1 Then
        Set CtrlHooked = CtrL
        If Not FenParent Is Nothing Then
            rct2 = getControlRectangleForM(CtrL)
        Else
            rct2 = getControlRectangleWorksheet(CtrL)
        End If
        plHooking = SetWindowsHookExA(WH_MOUSE_LL, AddressOf LowLevelMouseProc, 0, 0)
    End If
End Sub
Terminé
 
Vote positif 0 Vote négatif
alors tu a de grave problème dans ton truc ou alors tu est en vb6
Cliquez pour agrandir...
Il faut quand même oser !
Je t'ai donné le résultat d'exécution sur mon Windows 10 Office 2016 64 Bits.

Terminé
Cliquez pour agrandir...
Après 4 jours de prises de têtes sur ce sujet, je ne me sens pas de recoller les petits bouts de code que tu envoies pour en faire un truc fonctionnel.

Envoie un fichier et on voit ce que ça donne.
 
Vote positif 0 Vote négatif
c'est juste la fonction qui manquait pour les controls sur feuille et la prise en charge dans hookmouseX
copier coller
de toute façon on vois très bien que tu a un soucis avec les api hook dans ta capture
et toutes tes erreur que tu a bridé par du code et du code: et ben elle viennent de là

c'est comme quand tu a une référence manquante dans un fichier ça te donne des erreurs foledinguesmais jamais la vraie raison
 
Vote positif 0 Vote négatif
Bonsoir les cadors
Je suis sur Excel 365 64 bits.
Je viens de tester le fichier de patricktoulon.
Erreur "Incompatibilité de type" sur
VB: 
LowLevelMouseProc = CallNextHookEx(0&, nCode, wParam, ByVal lParam)
et plantage instantané d'Excel.
Dudu2, vous n'êtes pas seul à avoir le pb.
Bien cordialement à tous les deux ... et au fil !

Ah, j'allais oublier ! Le fichier de Dudu2 fonctionne parfaitement chez moi.
 
Dernière édition:
Vote positif 0 Vote négatif
re
merci du retour @Gégé-45550

et oui je pense que l'api se gere autrement que les variable de doivent pas être du meme type sur 64

et oui met la en commentaire cette ligne( tu la bloque avec un apostrophe )

en fait j'ai fait la meme erreur que tout le monde c'est copier ces quelques lignes
sur des codes existant mais suis je bete on a pas besoins du callnexthook
puisque je met un peu plus haut dans la fonction
LowLevelMouseProc = true

en fait c'est un long il faut mettre 1

et oui elle se rappelle toute seule

donc ca donne ca la fonction
VB: 
'Molette souris  Up/Down Listbox , ComboBox , Frame
Private Function LowLevelMouseProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    Dim pos As POINTAPI, obj As Object, r As Range, CtL
    On Error Resume Next
    GetCursorPos pos
    If pos.Y < rct2.Top Or pos.Y > rct2.Bottom Or pos.X < rct2.Left Or pos.X > rct2.Right Then UnHookMouse: Exit Function
    If (nCode = HC_ACTION) Then
        If wParam = WM_MOUSEWHEEL Then
            LowLevelMouseProc = 1
            With CtrlHooked
                Select Case TypeName(CtrlHooked)    ' déplace l'ascenseur en fonction de la molette ' l'info est stockée dans lParam
                Case "ListBox", "ComboBox": If GetHookStruct(lParam).mouseData > 0 Then .TopIndex = .TopIndex - 1 Else .TopIndex = .TopIndex + 1
                Case "Frame": If GetHookStruct(lParam).mouseData > 0 Then .ScrollTop = .ScrollTop - 4 Else .ScrollTop = .ScrollTop + 4
                End Select
            End With
        End If
        Exit Function
    End If
     On Error GoTo 0
End Function
allez encore une api qui saute
 
Dernière édition:
Vote positif 0 Vote négatif
maintenant je sais pourquoi @Dudu2 avait tout ces crashs
je suis vraiment bête des fois c’était en face de nos yeux
et je supose que @Dudu2 ne fait pas un rappel en call back LowLevelMouseProc = 1
si je bloque cette ligne et bien j'ai le même problème qu'avec son fichier
a savoir le scroll du control et la feuille excel

j’hallucine c’était en face de mes yeux depuis tout ce temps

edit :
je confirme il ne le fait pas je l'ai fait et voila tranquille ca roule ma poule
 
Dernière édition:
Vote positif 0 Vote négatif
Bonjour à tous,

Il est quand même utile de lire la doc de LowLevelMouseProc callback function:

LowLevelMouseProc callback function (Windows)

learn.microsoft.com

Qui doit retourner un LRESULT (LongPtr). Et surtout un Return qui doit venir de la fonction CallNextHookEx pour tarir la source des messages.
it is highly recommended that you call CallNextHookEx and return the value it returns; otherwise, other applications that have installed WH_MOUSE_LL hooks will not receive hook notifications and may behave incorrectly as a result.
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
re
ben oui il est utile de lire oui

j'ai traduit la page

donc utile oui ;notamment le paragraphe que j'ai mis en rouge et celui que j'ai mis en vert
qui nous apportent une réponse quasiment claire comme de l'eau de roche

a moins que j'ai compris de travers
lancé par SetWindowsHookEx le callback est automatique
je cite
on lit plus bas que le delay est plus important sur window10et + ce qui implique un recall

ma conclusion est que l'on arrivera pas a créer une seule méthode gérant le 32 vb6 / 32 vba7 / 64 vba7.01

 
Vote positif 0 Vote négatif
J'ai amélioré la réactivité du Scroll pour la rendre totale en réduisant le contrôle d'intervalle d'appels de la LowLevelMouseProc callback function. Maintenant seuls les appels sur un Timer identique sont ignorés.

De plus, j'ai placé en priorité la condition de fermeture de la fenêtre VBE pour le 64Bits que je n'arrive toujours pas à faire avec l'API lorsque l'Accès approuvé au modèle d'objet du projet VBA n'est pas coché. Je suis obligé de le faire en activant la fenêtre VBE et en faisant Alt + F4.
Je vais placer un fichier à l'intention de toute personne souhaitant résoudre ce problème.

Là je pense qu'on approche la formule qui va bien.
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

K
  • Question Question
XL 2016 Défiler le contenu d'une ListBox sur un formulaire
Réponses
2
Affichages
2 K
kwameviagbo
K
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…