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]

de même que et je viens de le remarquer a peine maintenant (toi pas encore tu ne fait pas les frames)
quand la frame et sa combobox à l'interieur sont hooké ben chao berte!! l'histoire de rectangle ne fonctionne plus non plus pour la sortie du scroll (avec le move!!!! )(chez moi obligé de cliquer dans la frame ou ailleurs pour ré enrouler la combo et donc arrêter le hook bon....somme toute pas bien méchant

 

[Staple1600]

@patricktoulon
T'as zappé le message#185, non ? (*)
(parce ce que toujours pas de plantage chez moi )

(*) Et accessoirement cela devrait te rappeler des souvenirs

 

[patricktoulon]

re @Staple1600

@patricktoulon
T'as zappé le message#185, non ? (*)
(parce ce que toujours pas de plantage chez moi )

(*) Et accessoirement cela devrait te rappeler des souvenirs

chez moi ça ne scroll pas j'ai testé
bon allez teste ma méthode

 

[Staple1600]

Re

@patricktoulon
Tu as remplacé le module existant comme je l'ai fait ?
(En PJ, le module de remplacement)

 

[patricktoulon]

j'ai rien remplacé du tout j'ai pris le code et mis dans un userform neuf avec une combo

 

[Staple1600]

@patricktoulon
Je ne teste pas du code qui va titiller ma base de registre


EDITION: J'ai expliqué en long et en large ce j'ai fais
1) TLC du fichier de BrunoM45
2) Remplacement du module M_MouseWheelHook par celui posté sur DVP.com
(message#6 de la discussion DVP.com)

Pour le moment, c'est le seul exemple qui ne plante pas mon Excel 365
(et pour lequel j'ai un Scroll Up/down sur un Combobox et un ListBox - > sur un Userform)

 

[patricktoulon]

ben remplace par 1.33333333333 si tu est en dpi normal

et puis le reg c'est de la lecture que je sache

 

[Staple1600]

Re

@patricktoulon
Relire le message#201
(le module posté ne concerne pas ton fichier mais celui de BrunoM45 que j'évoque plus bas dans le fil)

 

[Staple1600]

Re

@patricktoulon
Bug ici
HandleControl = WindowFromPoint(pos.X, pos.Y)

=> incompatibilité de type

 

[Usine à gaz]

Re

@patricktoulon
Bug ici
HandleControl = WindowFromPoint(pos.X, pos.Y)

=> incompatibilité de type

Chez moi également

 

[patricktoulon]

oui sans doute revoir les déclaration en 64
comme je l'ai dis hier je ne peux pas vérifier je suis en 32
je testerais demain avec le pc de collègue sur 365

Re

@patricktoulon
Relire le message#201
(le module posté ne concerne pas ton fichier mais celui de BrunoM45 que j'évoque plus bas dans le fil)

tu peux pas envoyer un fichier complet

 

[patricktoulon]

re

bon je viens de tester celui de bruno
et sans changer quoi que ce soit ca match

 

[Staple1600]

Re

@patricktoulon
Je remets donc le lien en clair
Lien vers le classeur (de BrunoM45)

https://www.developpez.net/forums/attachments/p333605d1512746000/logiciels/microsoft-office/excel/macros-vba-excel/defilement-combobox-listbox-scroll-souris/mousewheelhookv2a_64bit.xlsm/

Lien vers module "corrigé"

https://excel-downloads.com/attachments/m_mousewheelhook-zip.1153846/

Vu ton niveau, c'est simple de faire
CRTL+A SUPPR
puis CTRL+C et enfin CTRL+V

bon je viens de tester celui de bruno
et sans changer quoi que ce soit ca match

EDITION: Ca ne matchait pas avec Office 365 64 bits !
Sinon, je serai en train de prendre l'air et pas dans ce fil!

 

[patricktoulon]

je viens de tester le code de ton zip dans celui de bruno ca marche aussi

bon il fait pas les frames
et l'inconveniant c'est que dans la listbox il faut cliquer pour que le hook demarre

 

[Staple1600]

@patricktoulon
Relire mon précédent message

Actuellement c'est le seul code qui ne plante sur mon Excel 365

=> Donc le classeur de BrunoM45 avec remplacement du code du module: M_MouseWheelHook par celui contenu dans le zip