Discussion :

[Archeos93]

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

[Invité]

Bonjour,
ThisWorkBook est lui même une classe tous ce qui ce trouve dedans est privé.

Il faut déclarer ta variable comme pubic dans un module standard.

Code module Standard :

Sélectionner tout - Visualiser dans une fenêtre à part

Public Levier31 As  cLevier

Code module ThisWorkBook :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
SET Levier31 = New cLevier
 
    With Levier31
        .Position = True
        .SerrureN = True
        .SerrureR = True
        .Coupon = 21811
    End With

[Archeos93]

Merci beaucoup, ça fonctionne beaucoup mieux comme ça !

Je me doutait bien qu'il y avait un souci de déclaration ou de droit, mais je ne savais pas que ThisWorkbook est privé.

[patricktoulon]

bonsoir
je sais pas mais pour ce genre de toute petite manipe tu pourrais te servir de variable type et supprimer ta classe

exemple
lance autant de fois que tu veut la sub test a chaque fois la bascule se fait tout simplement
tu peux ajouter autant de propriété que tu veux a la place des "x" et les associé dans la sub changeposition

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
 
Private Type position
ouvert As String
'x
'x
'x
End Type
 
Dim levier As position
 
 
Sub test()
changeposition
MsgBox levier.ouvert
End Sub
 
Sub changeposition()
If levier.ouvert <>"no" Then levier.ouvert = "no" Else levier.ouvert = "yes"
End Sub