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

 

[Staple1600]

Re

@Dudu2
Le fichier du #133 a fonctionné un plus longtemps
Plus dans un éclair de lucidité, Excel s'est auto-terminé

Mais it will be back, comme dirait Arnold S.

 

[Dudu2]

que 365 plante(whitescreen) ou fermeture brutale si les déclarations d'api ne sont pas conformes

Oui, je sais qu'il faut faire gaffe mais je ne vois rien au niveau des déclaration de l'API.
J'ai un doute sur VarPtr.

 

[Usine à gaz]

Re

@Dudu2
J'ai retué mon Excel cette fois pas à l'insu de mon plein gré
En testant sur les Userform

Excel 365 n'aime pas le Hooking
(et si j'osais, je dirais qu' il a bien raison )

Bjr JM, c'est curieux, chez moi Office 365 ne plante pas

 

[Staple1600]

Re
@Usine à gaz
Tu as testé combien de temps?
(Et quel est ta version de Windows ?

Nb: Comme cela plante chez moi et chez le collègue à Patrick, je dirai que la suspicion de plantage avec 365 est de rigueur.
(2 vs 1 )

 

[Dudu2]

Comment se déclare un Copymemory ?

Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As LongPtr, Source As LongPtr, ByVal Length As LongPtr)

Ou bien

Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As LongPtr, ByVal Source As LongPtr, ByVal Length As LongPtr)

ByVal ou ByRef ?

J'ai plutôt l'impression que c'est ByRef mais si je mets ByRef, le Scroll Up ne fonctionne plus !!!

 

[Usine à gaz]

Re
@Usine à gaz
Tu as testé combien de temps?
(Et quel est ta version de Windows ?

Nb: Comme cela plante chez moi et chez le collègue à Patrick, je dirai que la suspicion de plantage avec 365 est de rigueur.
(2 vs 1 )

J'ai testé une bonne vingtaine de fois.
Je m'y remet pour voir

 

[Staple1600]

@Dudu2
Elément de réponse ici

Je fais le changement et je reteste

(Mon pauvre Excel, pardon pour la douleur occasionnée )

 

[Dudu2]

@Staple1600,
Peux-tu vérifier si celui-la se plante STP ?
Son Scroll Up ne fonctionne pas mais le CopyMemory est déclaré ByRef.

 

[Staple1600]

Re

@Dudu2
Tu as vu le lien dans mon précédent message ?

 

[Usine à gaz]

J'ai testé une bonne vingtaine de fois.
Je m'y remet pour voir

Tjrs pas de plantage chez moi.
Office 365 et Windows10 Professionnel, le tout en 64
Peut-être voir dans les Options Excel

 

[Dudu2]

Tu as vu le lien dans mon précédent message

Ah merci, je regarde !

 

[patricktoulon]

pour info mon collegue a W11 et 365 64 bit
si j'ai bien compris ton lien @Staple1600
c'est ce que je disais dans une autre discussion
il faut les 3 tests

#if vba7 then
#if win64 then
'api vba7 64
#else
'api vba7 32
#end if
#else
'api vb6
#endif

 

[Dudu2]

Redirecting

En fait ça n'a rien à voir, de toutes façons je ne fais même plus les déclarations pour 2007.
Par contre ça prouve que les arguments sont ByRef, ce qui n'est pas le cas dans le code du Hook et qui en plus bloque le Scroll Up !

 

[Staple1600]

@Dudu2, @patricktoulon
Ce que j'ai retenu dans mon lien, c'est ceci

Use Win64 instead of VBA7 and Lenght is a Long, not LongPtr.

Maintenant est-ce la Sainte Vérité ou pas ?
A vous de me le dire.

 

[Dudu2]

@Staple1600, as-tu essayé le fichier du Post #143 ?