J'étais en train de regarder le papier sur les modules de classe par Michel Blavin.
Tout fonctionnait pour le mieux jusqu'au moment où j'ai abordé la gestion de l'évènement

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
21
22
23
Gestion de l'événement
 
Private WithEvents mobjPerson As Person 'Provoque une erreur si placé ailleurs que
										'dans un module de classe
 
Private Sub mobjPerson_Completed()
    Debug.Print "l'Evénement Completed vient de se produire !"
End Sub
 
Sur Chargement (Load)
 
Private Sub Form_Load()
    Debug.Print "chargement du formulaire frmPerson"
    Set mobjPerson = New Person
    With mobjPerson
        .Nom = "Blavin"
        .Prenom = "Michel"
        .DateNaissance = #9/14/1969#
        'ici se produit l'événement completed
        'Et ensuite seulement on affiche la msgbox suivante
        Debug.Print .Prenom & " " & .Nom & " a " & .Age & " ans."
    End With
End Sub
Je récupère comme message Attribut incorrect dans une procédure Sub ou Function
et il se pointe sur WithEvents mobjPerson

Je me demande où je dois mettre exactement les lignes:
Private WithEvents mobjPerson As Person 'Provoque une erreur si placé ailleurs que
'dans un module de classe

Private Sub mobjPerson_Completed()
Debug.Print "l'Evénement Completed vient de se produire !"
End Sub


Merci