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

 

[Usine à gaz]

A tout hasard, seulement la ComboBox de la feuille, tu peux tester STP ?
Et envoyer ton lien de trouvaille ?

ActiveX ComboBox1 : Ne fonctionne pas chez moi

 

[Staple1600]

Re

Oubliez la trouvaille
Excel vient encore de crasher.

J'en ai marre.

Donc je décide à partir de ce jour . . .

Spoiler

ne plus hooker ma souris.
Mais de la respecter en la caressant uniquement avec mes seuls doigts potelés.
(quant bien même ceux-ci sentiraient l'aubergine, le roquefort ou toute autre odeur pregnante.)

 

[patricktoulon]

re
et les frame tu ne le fait pas @Dudu2

 

[Usine à gaz]

Re

Oubliez la trouvaille
Excel vient encore de crasher.

J'en ai marre.

Donc je décide à partir de ce jour . . .

Spoiler

ne plus hooker ma souris.
Mais de la respecter en la caressant uniquement avec mes seuls doigts potelés.
(quant bien même ceux-ci sentiraient l'aubergine, le roquefort ou toute autre odeur pregnante.)

as-tu vu mon #post 171 avant d'abandonner et de caresser ta souris amoureusement ?

 

[Staple1600]

re

Alors cette fois-ci, on est à la maison et dans l'ancienne maison de patrick
Un mix quoi
Et pour le moment pas de plantage (sur l'userform)
1) en notre demeure (salutations @BrunoM45)
2) La-bas si Patrick n'y est plus (*)
(*) on aura remarqué le subtil hommage aux AMG (Auditeurs Modestes et Géniaux)

NB: J'ai remplacé le module du 1) par celui du 2)

Et pour le moment pas de plantage.

(Subséquemment, j'ai remis mes pantoufles )

 

[Dudu2]

@Staple1600, quand tu reviens, tu peux vérifier ce que tu as en References ?

 

[Staple1600]

Re

@Dudu2
Voir message#185
Pour le moment, le test est concluant
(Combo et ListBox sur Userform)

 

[Dudu2]

ActiveX ComboBox1 : Ne fonctionne pas chez moi

Merci pour le test @Usine à gaz.
Ça veut dire qu'il ne faut pas prendre le GetWindowRect du Parent, mais alors j'y comprends plus rien !

 

[Staple1600]

@Dudu2
Tu as essayé la PJ du message#185
(en faisant la manip que je décris)

Depuis tout à l"heure, je teste et pas de crash d'Excel.

 

[Dudu2]

et les frame tu ne le fait pas @Dudu2

Mon dernier fichier "de référence" qui comprend tout est celui du Post #133.

 

[Dudu2]

@Staple1600,

Tu as essayé la PJ du message#185

J'ai pas compris ton message. Je ne sais pas ce que tu as fais précisément.

 

[Staple1600]

Re

@Dudu2
Dans mon message il y a deux liens
Il suffit de cliquer dessus
Le premier point sur un fichier de BrunoM45
Le second sur un message sur DEV.com avec un module modifié
C'est ce module que j'ai copié/collé dans le classeur Excel.
(en remplacement de l'existant)

Classeur Excel que je suis toujours en train de tester
(et donc pas de plantage depuis bientôt 20 minutes)

 

[Dudu2]

Ok, 1er lien le classeur de @BrunoM45, je vois ce qu'il fait.
Faut cliquer dans la ListBox pour Scroller.
Si tu sors de la ComboBox faut recliquer dedans pour Scroller.
Il teste absolument pas la position de la souris.

2ème lien, est-ce que c'est ce Post dont tu parles ?
Et t'as mis le code du 2ème lien dans le code de @BrunoM45 ?

Comment veux-tu que je devines ?
Je ne comprends pas du tout mais pas du tout ce que tu as fait.

Bon je sors, parce que là, il faut de l'air frais.
A toute à l'heure les lâche-rien.

 

[Staple1600]

Re

@Dudu2
J'ai simplement remplacé tout le code du module M_MouseWheelHook
par celui qu'on peut lire dans le message du 2ième lien.
(celui du message#6 du 11/12/2017, 18h22)

Et comme je le disais :
pas de plantage d'Excel depuis.

 

[patricktoulon]

Merci pour le test @Usine à gaz.
Ça veut dire qu'il ne faut pas prendre le GetWindowRect du Parent, mais alors j'y comprends plus rien !

ben c'est justement une demo que je suis entrain de faire
surtout pas prendre le rect parent sur combobox car le handle retourné est le thunderDframe(userform)
parti de la tout deraille

comme mon modele( après tu utilise la méthode que tu veux)
pour les combo il faut déterminer le handle child rangefrompoint ou on ajoute a pos.y le height*ppx
sauf que pour avoir cette certitude il faut que la combo ai le focus donc move est incertain

un simple test avec getclassename du handle parent doit te retourner la classe "F3 MdcPopup 6a120000"
c'est la classename de la combobox
si c'est bon alors le handle sous le curseur c' est bien la child de la combobox


pour les frames et liste box étonnamment le handleparent ont la même classe "F3 Server 6a120000"
mais a la limite là pas besoins de tester la classname le handle c'est celui en dessous le curseur