Bonjour,

J'ai un petit souci que je comprend pas pour le moment.


J'ai une structure qui est déclarer dans un module.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Type EqStatusType
    NbAlarmNoneUrgent As Long
    NbAlarmUrgent As Long
    NbInformativeAlarm As Long
    ValideStatus As Boolean
End Type

Ensuite je cherche à utiliser dans une classe de ce type:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
private m_Status as EqStatusType
 
 
Property Get Status() As EqStatusType
    Set Status = m_Status
End Property
Property Let Status(ByVal valeur As EqStatusType)
    Set m_Status = valeur
End Property
Lors de l'excecution il me plante à la compilation sur Property Get Status() As EqStatusType.
Il me dit:
Only public user defined types defined in public object modules can be use as parameters or return types for public procedures of class modules or as fields of public user defined types.


Lorsque je code il me trouve bien EqStatusType, mais si je lui demande de me trouver la définition il ne la trouve pas.

merci de votre aide