XL 2019 Molette Scroll sur ListBox

[gg13]

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

 

[patricktoulon]

chez moi
que ce soit en 64 ou vba7 ou vb6 les déclarations fonctionnent sur mon modèle
comme ca ceux qui sont en vba7.1 ca passe par win64
pour le coup comme je suis en vba7 j'ai modifié la condition en une double condition
comme ça je bénéficie du vba7

Option Explicit
#If Win64 Or VBA7 Then
    Declare PtrSafe Sub RtlMoveMemory Lib "kernel32" (ByVal Destination As LongPtr, ByVal Source As LongPtr, ByVal Length As LongPtr)
    Declare PtrSafe Function SetWindowsHookExA Lib "user32" (ByVal idHook As LongPtr, ByVal lpfn As LongPtr, ByVal hmod As LongPtr, ByVal dwThreadId As LongPtr) As LongPtr
    Declare PtrSafe Function CallNextHookEx Lib "user32" (ByVal hHook As LongPtr, ByVal nCode As LongPtr, ByVal wParam As LongPtr, lParam As LongPtr) As LongPtr
    Declare PtrSafe Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As LongPtr) As LongPtr
    Private Declare PtrSafe Function GetWindowRect Lib "user32" (ByVal hWnd As LongPtr, lpRect As RECT) As LongPtr
    Private Declare PtrSafe Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As LongPtr
    Private Declare PtrSafe Function WindowFromPoint Lib "user32" (ByVal xPoint As LongPtr, ByVal yPoint As LongPtr) As LongPtr
 #Else
    'Private Declare Sub RtlMoveMemory Lib "kernel32" (ByVal Destination As Long, ByVal Source As Long, ByVal Length As Long)
    'Private Declare Function SetWindowsHookExA Lib "user32" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
    'Private Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, lParam As Any) As Long
    'Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
    'Private Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) As Long
    'Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
    'Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
#End If

teste avec cette nouvelle déclaration

 

[Staple1600]

Re

Toujours la même erreur sur
Public Sub HookMouse(ByVal ControlToScroll As Object)

Alors que je n'ai toujours aucun crash avec le classeur "BrunoM45 modifié"

 

[Dudu2]

@Staple1600,

De retour après un bol d'air.

Ok, mais ce code ne plante pas chez toi, mais faut dire qu'il ne fait pas grand chose non plus.
Et le Hook code ne gère que le WM_MOUSEWHEEL et pas le WM_MOUSEMOVE donc ça limite les risques.
Faut cliquer dedans, ça scroll quand la souris sort de la zone. Bref, c'est pas vraiment top.

Je pense que si tu as du crash Excel direct, c'est qu'un truc détruit la mémoire et je ne vois encore que le Copymemory pour faire une inconvenance pareille.

A tout hasard, j'ai protégé un argument du Copymemory du code du Hook car VarPtr retourne un Long.
Avant:

CopyMemory VarPtr(udtlParamStuct), lParam, LenB(udtlParamStuct)

Après:

CopyMemory CLngPtr(VarPtr(udtlParamStuct)), lParam, LenB(udtlParamStuct)

J'ai un peu le sentiment que ça tourne autour de ça, mais...

 

[patricktoulon]

Re

Toujours la même erreur sur
Public Sub HookMouse(ByVal ControlToScroll As Object)

Alors que je n'ai toujours aucun crash avec le classeur "BrunoM45 modifié"

dans mon modèle ?
et pil poil sur cette ligne ??

 

[Usine à gaz]

Re-Dudu2 :

 

[Dudu2]

Je vais tenter de passer mon Office 32bits en 64 bits.

 

[Dudu2]

Alors, je suis passé en 64 bits et bonne nouvelle:
- La ComboBox Active X ne fonctionne pas
- Ça crash assez rapidement
Voili voilou, encore des investigations à mener ! On n'est pas sorti de l'auberge.

 

[Staple1600]

Re

@Dudu2
Même résultat qu'Usine à Gaz avec le fichier #215

et pour l'instant pas de plantage

 

[Dudu2]

@Staple1600,

Même résultat qu'Usine à Gaz avec le fichier #215

Tu veux dire le fichier #213 ?

Du coup c'est moi qui suis dans la pire des situations ! Ça plante complètement chez moi, après quelques scrolls.

Et là je suis bien dans la panade parce que j'ai mis du On Error partout et ça déclenche pas.

 

[Staple1600]

@Dudu2
Oui, le fichier que tu as posté dans le message#213

 

[Dudu2]

En 64bits, le Scroll est plus hésitant, je ne sais pas pourquoi.
D'ailleurs dans vos fichiers du #213, je vous recommande de modifier:

'Scroll step
Private Const ScrollStep = 3

J'avais mis à 1 pour Win64 mais c'est pas assez rapide.

 

[Usine à gaz]

Alors, je suis passé en 64 bits et bonne nouvelle:
- La ComboBox Active X ne fonctionne pas
- Ça crash assez rapidement
Voili voilou, encore des investigations à mener ! On n'est pas sorti de l'auberge.

Vois ta version d'office365

 

[Dudu2]

@Usine à gaz,

Vois ta version d'office365

Je suis sous Office 2016 64 bits.

Et franchement, y a un truc qui va pas en 64 bits avec le Scroll.
Le code est bon (vérifié sur 32 bits), les déclarations API sont bonnes, c'est dans je sais pas quoi d'interne à Office.

Va falloir tout tracer en Debug.Print !

 

[Usine à gaz]

Vois ta version d'office365

Dudu2
vois le #post 151
Mets ton office365 à jour et retente ton fichier du #post213
lol dsl, j'avais pas vu que tu es sous 2016

 

[Dudu2]

En fait je soupçonne qu'Office 2016 64 bits a des trucs pas clairs qui ont été corrigés en 365.
Raison pour la quelle je plante et pas vous.

Chez moi le Scroll devient hésitant puis se bloque puis ça crash. Saturation de Mouse Wheel ?
En tous cas, je vous le dis, c'est un problème Office 2016 (2010 ? 2013 ? 2019 ?) et il va falloir le trouver et le contourner pour tous ceux qui sont en 64 Bits et pas en 365.

Sur la ComboBox ActiveX c'est pareil chez moi et chez vous, donc là-dessus c'est cohérent 64 bits toutes versions (pas cohérent 32 bits évidemment) et je devrais pouvoir corriger.