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 : 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
 
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 : 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
 
 
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