Bonjour à tous,

Je débute dans l'utilisation des classes en VBA. Voici mon problème :

J'ai une classe "Levier" :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Private mPosition As Boolean
Property Get Position() As Boolean
    ' Propriété en lecture
    Position = mPosition
End Property
 
Property Let Position(Position As Boolean)
    ' Propriété en écriture
    mPosition = Position
End Property
 
Function TourneLevier()
    If mPosition = False Then
        mPosition = True
    Else
        mPosition = False
    End If
    TourneLevier = mPosition
End Function
J'initialise mon objet levier depuis une Sub de "ThisWorkBook" :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
Dim Levier31 As New cLevier
 
    With Levier31
        .Position = True
        .SerrureN = True
        .SerrureR = True
        .Coupon = 21811
    End With
jusque là tout va bien. Je souhaiterai appeler la fonction "TourneLevier" depuis un Form par l'action d'un bouton :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
Private Sub LevierC5_Click()
    MsgBox (Levier31.TourneLevier)
End Sub
Lorsque je clique sur le bouton en question, j'ai une erreur 404 "objet requis".

Si je fais appel à ma fonction depuis"ThisWorkBook" cela fonctionne. J'ai l'impression que ça doit venir d'un problème de déclaration quelque part, mais je ne trouve pas.

Quelqu'un saurait-il m'aider ?

Merci d'avance