[XL-2016] ERREUR 91 , variable objet ou variable de bloc with non défini

ERREUR 91 , variable objet ou variable de bloc with non défini

bonjour à tous je débute en vba Excel, donc pardonnez moi si vous voyez des erreurs grossières
Voici mon code:
j'ai un problème à la ligne 15

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub Main()
Dim PErreur As New Erreur
Dim PErreur2 As New Erreur
Dim PErreur3 As New Erreur
Dim PErreur4 As New Erreur
Dim PErreur5 As New Erreur
 
PErreur.ajouterError 2, "name", "type", "yes", "yes"
PErreur2.ajouterError 2, "name", "type", "yes", "yes"
PErreur3.ajouterError 2, "name", "type", "yes", "yes"
PErreur4.ajouterError 2, "nameuh", "type", "yes", "yes"
 
Dim PiDTC As New DTC
PiDTC.ajouterDTC 1, 45, PErreur, PErreur2, PErreur3, PErreur4
 
 
End Sub

j'ajoute la classe concernée et la sous-routine

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
 
Public idDTC As Integer
Public numberOfError As Integer
Public error1 As Erreur
Public error2 As Erreur
Public error3 As Erreur
Public error4 As Erreur
 
Public Sub ajouterDTC(bidDTC As Integer, Optional bnumberOfError As Integer, Optional berror1 As Erreur, Optional berror2 As Erreur, Optional berror3 As Erreur, Optional berror4 As Erreur)
 
With Me
.idDTC = bidDTC
.numberOfError = bnumberOfError
.error1 = berror1
.error2 = berror2
.error3 = berror3
.error4 = berror4
End With
 
End Sub

Bonjour,
Dans ta Sub ajouterDTC, puisque les variables erreur1, ..., erreur4 sont des objets Erreur, il faut utiliser Set →
Code:

1 2 3 Set .error1 = berror1 Set .error2 = berror2 ...

Merci beaucoup pour ta réaction rapide je viens de corriger ça marche, par contre le problème s'est étendu à la ligne suivante
Code:

1 2 PErreur5 = PiDTC.geterror4
je mets les propriétés Merci
Code:

1 2 3 4 5 6 7 8 9 'error4 properties Public Property Get geterror4() As Erreur geterror4 = error4 End Property Public Property Let leterror4(berror4 As Erreur) error4 = berror4 End Property