Discussion :

[bastien]

Bonjour,

Je tente d'exécuter une macro relativement simple mais une erreur d'exécution91 se produit lorsqu'un clic sur un bouton est réalisé. Ma variable objet est pourtant bien défini ?!
Voici le code dans le module

Code :

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

1
2
3
4
5
Sub Btn_Calendrier()
    Dim test As LeMois
 
    ActiveSheet.Range("A2").Value = test.GetNomMois
End Sub

Et dans le module de classe

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 Private Mois_Courant As Integer
    Private Sub Initialize()
        Mois_Courant = 8
    End Sub
    Property Get GetMoisCourant() As Integer
        MoisCourant = Mois_Courant
    End Property
    Property Let SetMoisCourant(mc As Integer)
        Mois_Courant = mc
    End Property
    Public Function GetNomMois()
        MonthName (Mois_Courant)
    End Function

[Invité]

Il y a pas mal d'erreurs dans la définition de ton module de classe. En tout cas:

Code :

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

1
2
3
4
5
6
7
Option Explicit
 
Sub Btn_Calendrier()
Dim test As LeMois
    Set test = New LeMois
    ActiveSheet.Range("A2").Value = test.GetNomMois
End Sub

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
Option Explicit
 
Private Mois_Courant As Integer
 
Private Sub class_Initialize()
    Mois_Courant = 8
End Sub
Property Get GetMoisCourant() As Integer
    GetMoisCourant = Mois_Courant
End Property
Property Let SetMoisCourant(mc As Integer)
    Mois_Courant = mc
End Property
Public Function GetNomMois()
    GetNomMois = MonthName(Mois_Courant)
End Function

!!! Le module de classe doit s'appeler 'LeMois'.

[bastien]

Merci et désolé pour ces erreurs réalisées bien que j'ai parcouru les tutos