Bonjour,
je viens de créer une classe ClassCompteBancaire mais je n'arrive pas à faire en sorte qu'on puisse modifier le nom du titulaire du compte, je sais que ceci devrait, par la même occasion, simplifier la methode Initialiser. Je voudrais donc savoir si quelqu'un aurait l'aimabilité de m'aider afin de me débloquer. Il me semble qu'il faut utiliser la particule "Set" qui permet de modifier la valeur de la proprièté, mais je n'y arrive pas.
Voici la classe ClassCompteBancaire :

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
Private Type TOperation
Date As Date
Montant As Currency
Libelle As String
End Type
 
Private NomTitulaire As String
Private PrenomTitulaire As String
Private DateOuverture As Date
Private TypeCompte As String
Private NbOperations As Integer
Private Operation(1000) As TOperation
Private Solde As Currency
 
Public Function GetNomTitulaire() As String
GetNomTitulaire = NomTitulaire
End Function
 
Public Function GetPrenomTitulaire() As String
GetPrenomTitulaire = PrenomTitulaire
End Function
 
Public Function GetDateOuverture() As Date
GetDateOuverture = DateOuverture
End Function
 
Public Function GetTypeCompte() As String
GetTypeCompte = TypeCompte
End Function
 
Public Function GetSolde() As Currency
GetSolde = Solde
End Function
 
Public Sub Class_Initialize()
Solde = 0
NbOperations = 0
MsgBox "Le constructeur a été exécuté"
End Sub
 
Public Sub Class_Terminate()
MsgBox "Le destructeur a été exécuté"
End Sub
 
Public Sub Initialiser(PNomTitulaire As String, PPrenomTitulaire As String, PDateOuverture As Date, PTypeCompte As String)
NomTitulaire = PNomTitulaire
PrenomTitulaire = PPrenomTitulaire
DateOuverture = PDateOuverture
TypeCompte = PTypeCompte
End Sub
 
Public Sub AjoutOperation(PMontant As Currency, PDateOp As Date, PLibelle As String)
Operation(NbOperations).Montant = PMontant
Operation(NbOperations).Date = PDateOp
Operation(NbOperations).Libelle = PLibelle
NbOperations = NbOperations + 1
Solde = Solde + PMontant
End Sub
 
Sub Main()
Dim Mon_Compte As New ClassCompteBancaire
Mon_Compte.Initialiser "DUPONT", "Jean", Date, "Courant"
Mon_Compte.AjoutOperation 500, Date - 2, "Dépôt initial"
Mon_Compte.AjoutOperation 1000, Date - 1, "Dépôt de chèques"
Mon_Compte.AjoutOperation -200, Date, "Retrait"
MsgBox Mon_Compte.GetSolde
End Sub