Autres toutes versions tester le scrool avec la roulette sans passer par un hooking en addressof

patricktoulon

XLDnaute Barbatruc

• 23 Mars 2025

• #451

Dudu2 à dit:

En fait il semble que les évènements soient déclenchés bien qu'on soit dans la boucle de Scroll. En tous cas le Change.
Alors je ne comprends plus très bien ce qui se passe en VBA.
On a du code qui tourne pour le Scroll.
On a du code qui tourne déclenché par l'évènement.

Cliquez pour agrandir...

Doevents c'est tout

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 23 Mars 2025

• #452

par contre effectivement avec ta version comme tu inclu le userform

Cliquez pour agrandir...

C'est pareil pour un Frame ou MultiPage si t'as des Controls dedans.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 23 Mars 2025

• #453

Si t'es obligé d'arrêter le Scroll à la moindre manip, c'est plus jouable. Le code n'est plus standard.
Bon, tout n'est pas négatif, car j'ai beaucoup appris sur le localisation des Controls par leur position ou par UIAutomation.
Mais quand même... !

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 23 Mars 2025

• #454

Si t'es obligé d'arrêter le Scroll à la moindre manip

Cliquez pour agrandir...

mais il s’arrête: il ne tourne pas indéfiniment
il s’arrête quand on sort ou sur un control non géré et dans mon cas le userform

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 23 Mars 2025

• #455

J'ai ajouté les UserForm, Frame et MultiPage dans ma ressource de Scroll avec Hook. Ça a l'air de très bien fonctionner.
Dans un code pour un "utilisateur" utilisé pour test, je n'ai pas les ennuis que j'ai avec le code sans Hook développé ici qui n'est pas évènementiel.

Même si le Scroll Hook a l'inconvénient de parfois planter Excel violemment si il est actif et qu'une erreur VBA survient (pendant les tests en principe), je n'ai jamais eu de problème rapporté avec ma ressource de Scroll Hook ni pour mes "utilisateurs".

Donc pour moi, le Scroll Hook reste la référence, et c'est bien dommage car on avait bien travaillé !

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 23 Mars 2025

• #456

re
ma fois tu a de la chance
car ton module plante chez moi et chez des clients qui l'ont dans leur projet avec diverses configs donc ce n'est pas propre a ma config mais a autre choses que j'ignore et que tu maitrise pas
cela dit setnexthook et callnexthook n'ont pas leur réputation pour rien même MS déconseille de faire du hooking en vba
et ça c'est pas arrangé avec les version récentes d'office

pour info j'ai essayé de remplir des textbox par vba pendant que ça tourne sur un autre controls et ça fonctionne
donc chez toi si ça ne fonctionne pas c'est qu'il y a un soucis avec le doevents qui ne joue pas son role

après tu fait comme tu veux

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 23 Mars 2025

• #457

pour te donner une idée de la fiabilité plus que douteuse
cette déclaration qui fonctionne sur toute les version que l'on a fait ici32/64 bits

VB:

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

ne fonctionne pas dans le module de hooking

celle ci oui fonctionne dans le hooking

Code:

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

et ce n'est qu'un exemple parmi tant d'autres

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 24 Mars 2025

• #458

Bonjour la polémique,

et ce n'est qu'un exemple parmi tant d'autres

Cliquez pour agrandir...

J'ai mis LongPtr dans le CopyMemory parce que je passe les arguments en direct.
Si je déclare Any je préfixe les arguments par ByVal

VB:

CopyMemory ByVal VarPtr(udtlParamStuct), ByVal lParam, LenB(udtlParamStuct)

Ah oui alors ça c'est bien "exemple parmi tant d'autres" ! Quand on ne sait pas de quoi on parle, on ne la ramène pas.

car ton module plante chez moi et chez des clients qui l'ont dans leur projet

Cliquez pour agrandir...

Les "clients" dont tu parles j'aimerais bien savoir de qui il s'agit.
Chez mes "clients" à moi qui sont bien réels et qui utilisent mes macros, ça fonctionne parfaitement. Et chez les 256 personnes qui l'ont téléchargé. Alors que ça ne marche pas chez toi (que tu dis) ben c'est dommage mais ça ne me fait pas bouger l'autre ! 😎

Edit: reste que le système avec la boucle de Scroll est boiteux. Des choses fonctionnent en parallèle mais pas tout, je l'ai expérimenté sur un contexte moins simple que du Scroll de base et ça bloque. En tous cas c'est une source d'emm*rdes et pour une utilisation générale mon choix de méthode est fait. Après chacun choisit.

 

Dernière édition: 24 Mars 2025

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 24 Mars 2025

• #459

reste que le système avec la boucle de Scroll est boiteux

Cliquez pour agrandir...

Par contre, si on déporte le code dans une Classe, ça va beaucoup mieux car il n'y a pas de compétition entre la Classe et les Modules VBA.
Le cas bloquant cité ci-dessus dans un contexte plus complexe qu'un simple Scroll ne l'est plus avec la Classe.
Il faut encore le valider avec des tests complémentaires mais c'est peut-être la solution.

 

Pièces jointes

• VBA Scroll Souris en Controls ActiveX & UserForm - UIAutomation (2016+).xlsm

  76.1 KB · Affichages: 7
• VBA Scroll Souris en Controls ActiveX & UserForm - GetControlRECT.xlsm

  67.8 KB · Affichages: 8

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 24 Mars 2025

• #460

re
je te jure que des fois je n'ai pas envie de me creuser la tète et je met ton module
surtout pour des personne qui utilisent des versions récentes
tous m'ont rappelé

les deux exemple que je t'ai donné ne vienne pas de ton code mais des miens
j'en ai avec any et d'autres avec long ou longPtr
et les deux fonctionnent
pourtant j'envoie bien un varptr(xxxx) dans les deux et any est sensé tout accepter
par contre ca ne fonctionne dans le sans hook

et vice et versa le longptr ne fonctionne pas dans le model sans hook
va comprendre charle

après avec le hook j'ai mon model que tu trouve ici sous mon nouveau pseudo sur DVP qui est plus stable mais moins
performant que le sans hook
je n'ai pas encore reçu de retour negatifs avec celui là
mais on le voit bien ce n'est pas fluide comme avec le tien d'ailleurs
je suis sur que tu a du faire la comparaison avec le scroll de ton modèle avec hooket tu a du voir la différence non?


pour la classe oui c'est évident qu'il y a moins d'interférence avec le reste du vba
j'y pensait hier d'ailleurs quand tu a commencer a soulever ce détail

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 24 Mars 2025

• #461

dans le getwindorect en vb6 on a un soucis

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 24 Mars 2025

• #462

j'ai transféré ma V4 dans une classe
je referais tout les tests de performance dans la journée

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 24 Mars 2025

• #463

tous m'ont rappelé

Cliquez pour agrandir...

Alors ils téléchargent ma Ressource et au lieu de poster un message dans la Discussion de la Ressource ou de m'envoyer un mail perso, ils te contactent toi ! Tu dois être une vrai célébrité ! 😅

Sinon, j'ai testé la Classe en lançant du code en parallèle et c'est pas encore ça.

Test avec Hook -> Quand on Scroll, le code s'exécute en parallèle (la colonne F se remplit)


Test avec Loop-> Quand on Scroll, le code NE s'exécute PAS en parallèle (la colonne F se remplit uniquement quand on sort du Scroll)


Donc la Classe -> Faux espoir

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 24 Mars 2025

• #464

re
non il ne télécharge pas c'est moi qui leur ai mi dans leur fichiers

bon ben alors on saura que du code ne peut s'executer en parallèlle

je vais reprendre mon module hook et faire ce que l'on a fait ici
a savoir traiter le scrollable rectangle,etc avant de looper dans la procc
on verra bien

actuellement
ton module hook chez moi avant de me cracher excel scroll 5/7 fois pour 10 crans de roullette
le mien a peine un peu plus 6/8 mais ne crashe pas chez moi
ceux d'ici sans hook tes versions ou les miennes c'est quasiment du perfect

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 24 Mars 2025

• #465

ton module hook chez moi avant de me cracher excel scroll 5/7 fois pour 10 crans de roullette

Cliquez pour agrandir...

Comme je te l'ai déjà dit, y a que chez toi que ça plante. Pas pour mes "utilisateurs" ni pour les 250+ personnes qui l'ont téléchargé.

Pour ceux qui voudraient le vérifier, le fichier est à télécharger ici.
Il inclut maintenant le Scroll UserForm, Frame et MultiPage et les derniers modules de détection des RECT des Controls.

Icône de la ressource

VBA - Scroll en Controls ActiveX & UserForm (ListBox, ComboBox, TextBox, UserForm, Frame, MultiPage)

3 Novembre 2022

Finis les ascenseurs laborieux, la molette de la souris vous offre enfin la liberté

• Dudu2
• VBA

 

Vote positif 0 Vote négatif