utilisation de classes et erreur "objet requis"

Bonjour à tous,

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

J'ai une classe "Levier" :

Code:

---

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:

---

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:

---

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

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:

---

Public Levier31 As cLevier

---

Code:

---

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

---

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é.

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:

---

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

---