[déplacé VB.NET -> VBA] Désactiver évènement "wheel" de la souris sur formulare

Signaler
Messages postés
19
Date d'inscription
mercredi 25 juin 2003
Statut
Membre
Dernière intervention
22 avril 2010
-
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
-
Bonjour à toutes et à tous,

J'ai trouvé ce code sur le FAQ de developpez.com.

Option Compare Database
Option Explicit
Private WithEvents clsMouseWheel As MouseWheel.CMouseWheel

Private Sub clsMouseWheel_MouseWheel(Cancel As Integer)
Cancel = True
End Sub

Private Sub Form_Close()
If Not (clsMouseWheel Is Nothing) Then
clsMouseWheel.SubClassUnHookForm
Set clsMouseWheel.Form = Nothing
Set clsMouseWheel = Nothing
End If
End Sub

Private Sub Form_Load()
Set clsMouseWheel = New MouseWheel.CMouseWheel
Set clsMouseWheel.Form = Me
clsMouseWheel.SubClassHookForm
End Sub

Je l'ai intégré dans un projet test.
ça ne fonctionne pas, j'ai l'erreur suivant :
Erreur d'exécution '50002'
Erreur définie par l'applicatiion ou par l'objet.

Si quelqu'un à une idée, je suis prenneur.

Merci


Willy

2 réponses

Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
48
salut,

ME est un userform (et non une form), es-tu sûr que ce code est compatible VBA ????

(j'ai d'ailleurs déplacé ta question vers le thème approprié, il faut faire attention)

le mieux reste sans doute de demander directement à l'auteur du code sur DVP...

++
[hr]
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
48
(désolé du double post)

ET DU COUP C'EST TOUT SIMPLE :
que le code soit compatible ou pas, tu as mis :

Private Sub Form_Load()
or en VBA cet évènement n'existe pas, du coup ce code n'est pas exécuté logiquement...

(même si çà n'explique pas le code erreur relevé)