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]

Re

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

Jm, dans ton lien on parle de la version

Version 2201 Build 16.0.14827.20198​

Chez moi, j'ai la version :

Certainement pour ça que je ne plante pas...
🙂

 

[Dudu2]

Certainement pour ça que je ne plante pas...

Pourquoi "certainement" ? C'est quoi la différence ?

 

[Usine à gaz]

Pourquoi "certainement" ? C'est quoi la différence ?

Ce n'est pas le même N° de version 🙂

 

[Dudu2]

il faut les 3 tests

Non, déjà on peut ignorer 2007, plus personne tourne la-dessus.
De plus, SAUF EXCEPTION (lorsque la référence nom de la fonction est différence en 64bits et en 32 bits par exemple) ce n'est pas nécessaire. PtrSafe et LongPtr amènent la souplesse nécessaire.

 

[Staple1600]

@Dudu2
Pour l'instant, suite au message d'Usine à Gaz, je suis en train de mettre à jour Office.

 

[Staple1600]

@Dudu2

ce n'est pas nécessaire. PtrSafe et LongPtr amènent la souplesse nécessaire.

Tu as du zappé mon message avec des mots en rouge 😉
(message#149)

 

[Dudu2]

@Staple1600,
Bien sûr je l'ai vu mais je n'ai pas compris.

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

Non pour "Use Win64 instead of VBA7", sauf exception comme je l'ai indiqué avant.
VBA7 c'est pour différencier d'avec VBA6 (2007 et en dessous). Perso j'ignore VBA7 car je considère par défaut. Je ne fais plus les déclarations pour VBA6.

A partir de VBA7, ça accepte PtrSafe et LongPtr qui donnent la souplesse 64bits/32Bits. C'est l'intention.

Lenght is a Long, not LongPtr , je ne sais pas de quoi tu parles. Du dernier argument du Copymemory?
Alors je dirais que c'est bien possible, mais c'est pas sûr car LongPtr n'est pas propre aux pointeurs.

 

[Staple1600]

@Dudu2
Dans ton classeur, tu déclares Lenght en LongPrt
Alors que la réponse dit qu'il faut le déclarer en Long

 

[Dudu2]

Alors que la réponse dit qu'il faut le déclarer en Long

Mais d'où vient cette réponse ? Je n'ai pas compris. Quelle légitimité par rapport au document MicroSoft téléchargeable ici:

Download Office 2010 Help Files: Win32API_PtrSafe with 64-bit Support from Official Microsoft Download Center

Windows API Declarations and Constants for Visual Basic (Updated for the 64-bit version of Microsoft Office 2010) provides declarations for Microsoft Visual Basic programmers who want to call Windows API routines. This file is updated to include calls to the 64-bit version of Microsoft Office 2010.

www.microsoft.com

Qui dit:

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

Un LongPtr amène une souplesse (voir sa définition) qui en fait automatiquement un Long en 32 bits et un LonLong en 64 bits. Ce n'est absolument pas lié strictement à un Handle. C'est un type de donnée.

 

[Dudu2]

@Staple1600, pour revenir au plantage, as-tu essayé le fichier du Post #143 ?

Je pense que la déclaration du Copymemory du code du Hook n'est pas bonne.
Ça marche mais ce n'est pas bon. Sauf quand ça crash chez @Staple1600 évidemment.

Le problème est que si on la corrige, le Scroll Up ne fonctionne plus !!!
Le code du Hook est à revoir !

 

[Staple1600]

@Dudu2
1) Je reviens de faire mes courses
2) Voici d'où vient la réponse (ou plutôt de qui)

Redirecting

3) La mise à jour d'Office est terminée mais je redémarre d'abord mon PC avant de refaire des tests.

 

[Staple1600]

Re

@Dudu2
Désormais je suis sur cette version
Microsoft® Excel® pour Microsoft 365 MSO (Version 2210 Build 16.0.15726.20070) 64 bits

Je m'en vais faire le test.

 

[Dudu2]

Tu me fais penser qu'il faut que je fasse aussi quelques courses aussi

😉
Et puis je vais essayer de faire fonctionner ce code de Hook (un truc abscons qui vient d'Internet) avec un Copymemory correctement déclaré pour éviter les crash du type de ce que tu as connu.

 

[Staple1600]

@Dudu2
pas de crash pour l'instant avec le fichier #143
Mais fonctionne mal
Pas de scroll sur les ComboBox (sur la feuille ou sur Userform)
Comme tu l'as dis évidemment pas de Scroll Up que du Down

 

[Usine à gaz]

@Dudu2
pas de crash pour l'instant avec le fichier #143
Mais fonctionne mal
Pas de scroll sur les ComboBox (sur la feuille ou sur Userform)
Comme tu l'as dis évidemment pas de Scroll Up que du Down

Re-JM 🙂
Tu veux voir le #post 129 et essayer avec le fichier du #post 125 ?
🙂