Autres tester le scroll de la frame

[patricktoulon]

bonjour à tous
est ce que plusieurs d'entre vous pourraient tester le scroll de la frame avec la mollette sur des versions 365 2019 et 2021 svp
merci pour les retours

 

[Cousinhub]

Hello,
W11, xl2021 64
Débogage :

 

[Gégé-45550]

bonjour à tous
est ce que plusieurs d'entre vous pourraient tester le scroll de la frame avec la mollette sur des versions 365 2019 et 2021 svp
merci pour les retours

bonjour à tous
est ce que plusieurs d'entre vous pourraient tester le scroll de la frame avec la mollette sur des versions 365 2019 et 2021 svp
merci pour les retours

Bonjour Patrick,
avec Office 365 64 bits

 

[patricktoulon]

bon merci a tout les deux
j'avoue je suis perdu
@Cousinhub j'ai vérifié la déclaration est bonne je comprends pas

@Gégé-45550 alors c'est pire
quel raison pourrait il y avoir c'est bien la frames

je crois que je vais abandonner l'adaptation de mon app en 64
trop de bugs injustifiés
merci à tout les deux je suis encore plus dans le brouillard 🤣

juste pour vous montrer ça fonctionne en vba7 32 bits

 

[Nicolas JACQUIN]

Win10 64bits et excel2021 32bits, chez moi c'est bon

 

[patricktoulon]

merci nicolas le 32 je sais il n'y a pas de soucis

 

[Dudu2]

Bonjour,
J'ai la même erreur que @Cousinhub.
Et c'est normal puisque SetWindowsHookEx retourne un LongPtr et que plHooking est déclaré en Long.
Par contre si le déclare plHooking en LongPtr c'est fermeture du classeur. Mais avant je vais essayer de capturer l'erreur qui s'affiche en 1/5ème de seconde.

 

[patricktoulon]

re et avec tout en longptr ?

Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As LongPtr, ByVal Source As LongPtr, ByVal Length As LongPtr)
Declare PtrSafe Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As LongPtr, ByVal lpfn As LongPtr, ByVal hmod As LongPtr, ByVal dwThreadId As LongPtr) As LongPtr
Declare PtrSafe Function CallNextHookEx Lib "user32" (ByVal hHook As LongPtr, ByVal nCode As LongPtr, ByVal wParam As LongPtr, lParam As LongPtr) As LongPtr
Declare PtrSafe Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As LongPtr) As LongPtr
Declare PtrSafe Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

 

[Dudu2]

Voilà ce que j'ai pu choper.

 

[mutzik]

coucou toutes et tous

pas de souci chez moi

 

[Cousinhub]

Re-,

Même en mettant

Declare PtrSafe Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As LongPtr

Mais comme les API et moi, c'est un peu comme toi et PQ.... 🤪
Et j'ai ce msg dès que je veux compiler

 

[Dudu2]

Oui alors LowLevelMouseProc je lui ai fait retourner un LongPtr, mais c'est fermeture du classeur sans info d'erreur.

 

[Dudu2]

Je reviens dans 2h. Bonne recherche.

 

[Cousinhub]

Re-,
J'ai remplacé tous les Long par LongPtr -> plus de bug à la compilation
Par contre, si je scrolle sur l'USF (qui s'ouvre donc bien), j'ai cette erreur

Oups, avec le msg d'erreur, c'est mieux

 

[Cousinhub]

Re-,
Et au passage de la souris :