Mouse Wheel Hook (faire défiler le contenu d'une combobox/listbox avec la roulette)

Dudu2

XLDnaute Barbatruc

• 5 Mai 2020

• #91

Bonjour Danreb,
Effectivement, ces arguments sont des constantes ayant une portée Projet. Intéressant.
Ce n'est pas aussi pratique que des constantes Module qui auraient la même portée mais c'est déjà ça.

 

Pièces jointes

• Arguments de compilation conditionnelle.xlsm

  20.7 KB · Affichages: 14

Dernière édition: 5 Mai 2020

Dudu2

XLDnaute Barbatruc

• 8 Mai 2020

• #92

Pour info, j'ai republié les 2 fichiers V3 du Scroll ComboBox et ListBox dans le message #88 en réduisant complètement la spécificité du Module_HookMouseV3 qui reçoit désormais en paramètre optionnel le nom de la fonction de détection de position de souris par rapport à l'objet (ainsi que la fonction associée accessoire de trace) et reste donc utilisable pour toutes les situations.

 

Dudu2

XLDnaute Barbatruc

• 15 Mai 2020

• #93

J'ai republié le fichier VBA Scroll Souris en ListBox V0.xlsm dans le message #88 car le module Module_PixelsToPointsToPixelsV0 qu'il contient (bien utile en d'autres circonstances) contenait un bug (et oui ça m'arrive !) qui m'a bien surpris...

L'instruction If TypeOf <Object> Is UserForm se gamelle joyeusement si aucun UserForm n'est défini dans le Projet. Donc j'ai couvert cette situation.

J'ai aussi utilisé ce même Module_PixelsToPointsToPixelsV0 par exemple pour gérer le placement d'un MsgBox avec 2 fonctions MsgBoxPos() et MsgBoxPosOnObject() avec divers paramètres de positionnement. Je le joins pour illustrer l'affaire.

Edit: Tant qu'à faire autant ajouter le positionnement UserForm sur la même base...

 

Pièces jointes

• VBA MsgBox avec position V0.xlsm

  51.2 KB · Affichages: 8
• VBA Position UserForm & TextBox ou autre Objet V0.xlsm

  59.1 KB · Affichages: 10

Dernière édition: 17 Mai 2020

C

Compte Supprimé 979

Guest

• 31 Mai 2020

• #94

Salut Dudu2, bonjour à tous,

Dudu2 à dit:

J'ai republié le fichier VBA Scroll Souris en ListBox V0.xlsm dans le message #88 car le module Module_PixelsToPointsToPixelsV0 qu'il contient (bien utile en d'autres circonstances) contenait un bug (et oui ça m'arrive !) qui m'a bien surpris...

Cliquez pour agrandir...

Sauf que ta version ne fonctionne pas sur Office 2016 64bit



J'ai republié une version qui semble fonctionner correctement en simplifiant le code

Mouse Wheel Hook (faire défiler le contenu d'une combobox/listbox avec la roulette)

Bonjour à tous, Suite à la demande de Fmiste concernant la possibilité de faire défiler le contenu d'une ComboBox Je me suis aperçu qu'il n'y avait pas tellement de fil traitant ce sujet sur le forum :( ou du moins je n'en ai pas trouvé concernant le terme "Mouse wheel" Je mets donc ici à...

www.excel-downloads.com

@voir

 

Dudu2

XLDnaute Barbatruc

• 31 Mai 2020

• #95

Bonjour BrunoM45,
Merci pour l'info.
Je n'ai pas d'environnement Excel 64 bits pour tester. En l'occurrence, je suppose qu'il faut déclarer plHooking en LongPtr.
Ce que j'ai fait en republiant les fichiers de Scroll ComboBox et ListBox en Ce lien n'existe plus en espérant que cela corrige l'incompatibilié de type en mode 64bits.
Cordialement.

 

L

Le_Sage

XLDnaute Nouveau

• 30 Août 2020

• #96

Bonjour à tous !

J'étais très intéressé par cette fonctionnalité, évidemment...
Malheureusement, j'ai testé tous les classeurs téléchargeables, et tous font crasher Excel quelques secondes après le survol du combo...
De plus, juste avant le crash, le mouvement du pointeur est énormément ralenti et sacadé.

Pour info, je suis sous W10 64 Pro et Office 365 Business (dont je viens de m'apercevoir avec surprise et à l'occasion de ce problème que c'est une version 64bits).

Si des pistes existent

Merci en tout cas pour ce partage qui, même s'il n'a pas fonctionné pour moi, s'avère d'une grande utilité

 

Dudu2

XLDnaute Barbatruc

• 30 Août 2020

• #97

Bonjour,
Ça ça plante dans ton environnement ?

 

Pièces jointes

• VBA Scroll Souris en ComboBox.xlsm

  44.1 KB · Affichages: 2

patricktoulon

XLDnaute Barbatruc

• 30 Août 2020

• #98

bonsoir
@Dudu2 baisse un peu pour le step de 3 passe à 1 ou 2 max ,c'est pour les frames 3
question d'ergonomie

 

Dudu2

XLDnaute Barbatruc

• 30 Août 2020

• #99

Bonsoir patricktoulon, je comprends rien à ce que tu dis.
En l'occurrence, je voudrais juste savoir ce qui ferait planter ce code dans son environnement, par simple curiosité.

 

patricktoulon

XLDnaute Barbatruc

• 30 Août 2020

• #100

les api de hooking sont sensibles en 64
ta mollette fait rouler la combo par 3/4 item a la fois ca fait beaucoup
je vais regarder les déclarations

 

Dudu2

XLDnaute Barbatruc

• 30 Août 2020

• #101

aaaaahhhhhhhhhhh ok

 

Z

zoumi

XLDnaute Nouveau

• 31 Août 2020

• #102

Bonjour, je me demandai si c'était possible de le faire pour une listbox et avec excel 2016 en 64 bits.

 

Dudu2

XLDnaute Barbatruc

• 31 Août 2020

• #103

Bonjour,

Voici un fichier que je te propose de tester en 64 bits. J'aimerais aussi savoir si ça fonctionne puisque je suis en 32 bits.
Il contient une méthode originale de détection de la position de la souris par rapport à l'objet (ListBox) qui limite donc à 2 évènements à intercepter pour gérer le scroll.

Maintenant il y a d'autres propositions et notamment celle de patricktoulon qui peut-être t'en fera part.

 

Pièces jointes

• VBA Scroll Souris en ListBox.xlsm

  66 KB · Affichages: 7

Dernière édition: 31 Août 2020

Z

zoumi

XLDnaute Nouveau

• 31 Août 2020

• #104

ca plante :

 

Dudu2

XLDnaute Barbatruc

• 2 Septembre 2020

• #105

En effet, ça plante à cause de plusieurs problèmes de compatibilité entre Long et LongPtr.
Faut aussi que je revoie toutes les déclarations des fonctions de l'API Windows et le step de scroll sous 64 bits qui semble plus sensible comme l'a indiqué patricktoulon.
Ceci dit, ces fonctions de Hook récupérées sur le Net et modifiées sont assez absconses et à vérifier sur 64 bits dont hélas je n'ai pas l'environnement pour tester.