Discussion :

[Yankov]

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

[zenpbb]

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

Code :

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

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

[Yankov]

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 :

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

1
2
 
PErreur5 = PiDTC.geterror4

je mets les propriétés Merci

Code :

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

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