Faire de la POO en VBA

Version imprimable

Bonjour à tous !

Comme le sujet l'indique, je suis confronté à un problème de POO en VBA. Vous allez dire: mais pourquoi voudrai-je faire de la POO alors que le VBA n'est pas vraiment destiné à ça ? Et bien figurez vous que j'en ai besoin :lol:

Le soucis c'est que, dans mon module de classe, je déclare mes attributs en private et je les récupère grâce aux Proterty Let/Get.
Mais de base, elles sont publiques, donc dans n'importe quel module (classique) on peut venir modifier les champs de mon objet. Mais j'ai pas envie qu'un utilisateur puisse venir modifier ou accéder aux champs comme il le souhaite.

Du coup j'ai pensé à déclarer mes Proterty en private (pour qu'elles ne soient accessibles que dans le module de classe) et de créer mes propres fonctions qui permettent ou non d’accéder aux property.

Voici un exemple de code:
Code:

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 'module de classe: voiture Private couleur As String Private marque As String Private Property Let LetCouleur(pCouleur As String) couleur = LCase(pCouleur) End Property Private Property Let LetMarque(pMarque As String) marque = LCase(pMarque) End Property Private Property Get GetCouleur() GetCouleur = couleur End Property Private Property Get GetMarque() GetMarque = marque End Property ' fonction que je veux definir pour pas que l'utilisateur fasse ce qu'il veut ! Public Function afficherVoiture() As String afficherVoiture = "marque: " & Me.GetMarque() & " / couleur: " & Me.GetCouleur End Function
Là, dans l'exemple, je veux définir la manière donc l'utilisateur pour récupérer la valeur des attributs d'un objet voiture.
Mais en passant par Private Property, la fonction afficherVoiture n'a plus accès aux Property ! Alors qu'elle est dans le même module (de classe).
(PS: si je laisse Property en public ça marche, mais c'est aussi accessible dans n'importe quel autre module)

Savez-vous comment je peux faire pour déclarer mes Property en Private dans mon module de classe et CONTINUER d'y avoir accès en RESTANT dans le module de classe ?

Merci !
Slooby.

04/05/2016, 10h12
Promethee25

Bonjour,

Pourquoi mets-tu les Get en Private?

Si tu veux te protéger des modifs non maîtrisées, c'est seulement sur les Let que c'est nécessaire.

A mon avis c'est plutot ça que tu veux faire ?

Code:

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
 
Private cCouleur As String
Private cMarque As String
 
 
 
Public Property Let couleur(pCouleur As String)
    cCouleur = LCase(pCouleur)
End Property
 
Public Property Let marque(pMarque As String)
    cMarque = LCase(pMarque)
End Property
 
 
Private Function GetCouleur()
    GetCouleur = cCouleur
End Function
Private Function GetMarque()
    GetMarque = cMarque
End Function
 
' fonction que je veux definir pour pas que l'utilisateur fasse ce qu'il veut !
Public Function afficherVoiture() As String
    afficherVoiture = "marque: " & GetMarque() & " / couleur: " & GetCouleur
End Function

Ensuite tu peux utiliser ton objet simplement comme ceci :

Code:

1
2
3
4
5
6
7
8
 
Dim a As Classe1
 
Set a = New Classe1
a.couleur = "rouge"
a.marque = "206"
 
MsgBox a.afficherVoiture

04/05/2016, 11h15
Slooby

Promethee: La protection des Get est tout aussi importante que les Get. Imagine que, pour une carte de credit, n'importe qui puisse faire un Get Code :aie: il faut mieux redéfinir qui peut ou peut pas accéder aux Let/Get.

mathspoundz: NON absolument pas. Je veux bien les mettre en PRIVATE. Car comme tu l'as écrit, tout le monde peut accéder aux attributs ! (CF: voir l'exemple précédent de la carte bancaire :P )

Mais sinon, après moulte tuto et pleins de tests, j'ai presque trouvé la solution.
Je retourne dessus quand j'aurais fini mes autres projets et je vous tient au courant pour la solution !

(PS: l'idée de tout mettre en private est bel et bien de décider quand et comment on peut accéder aux attributs. Par exemple, une personne a un nom, un prenom, une taille et une carte de crédit à son nom. Le Nom et le Prénom doivent être accessibles en écriture UNIQUEMENT à sa création, alors que la taille peut être modifiée tout le temps. Et la carte de crédit peut etre LUE UNIQUEMENT par la banque !
Dans cet exemple, on voit bien qu'il est tout aussi IMPORTANT de protéger les Let que les Get)

A bientôt ! :P
Slooby
04/05/2016, 11h19
cerede2000

Citation:

Promethee: La protection des Get est tout aussi importante que les Get. Imagine que, pour une carte de credit, n'importe qui puisse faire un Get Code il faut mieux redéfinir qui peut ou peut pas accéder aux Let/Get.

La on rentre dans un concept de DesignPattern !

Ce que tu évoque est alors le DesignPattern Proxy ;)

Mais sur du VBA là après on va loin :aie:

Et si tu est en train de faire une application bancaire avec Excel et VBA => Arrête tout de suite :mouarf::mouarf::ptdr::ptdr:
04/05/2016, 11h24
Promethee25

On passe de la couleur de la voiture au code de carte bleue... => Ta réponse n'est pas cohérente avec ton exemple puisque tu crées justement une fonction permettant de lire ces valeurs même s'il s'agit d'un print préformatté et non d'un accès direct. Explique-moi où est la sécurité en lecture...

Tu refuserais donc un GetCodeCarteBleue public mais pas un AfficherCodeCarteBleue? :p
04/05/2016, 11h35
mathspountz

+1 pour moi un private get est absurde. C'est bien un private function que tu veux.

Par essence les Get et les Let sont justement les interfaces entre l'objet et l'utilisateur.

Dans mon exemple essai de faire a.couleur ou a.cCouleur ou a.getCouleur, aucun ne fonctionne. Ta couleur est donc bien protégée, et accessible via print formaté gràce à le méthode publique "afficherCouleur"

Bonjour,

Ton erreur vient de cette phrase :

Citation:

je déclare mes attributs en private et je les récupère grâce aux Proterty Let/Get.

Non. Tu les récupères grâce à Get. Tu ne peux pas les modifier avec Get. Donc laisse Get en Public.
Sinon, décris mieux le pourquoi du comment de la chose...

Si tu souhaites que l'utilisateur ne fasses pas d'erreur en saisissant une nouvelle voiture, tu ne lui laisses pas un accès direct à Let.
Comment?
1- Dans ta property Let, tu peux tester la valeur (c'est d'ailleurs largement conseillé...).
Par exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private cCouleur As String
Private cMarque As String
 
Public Property Let couleur(pCouleur As String)
    If pCouleur <> "blanc" And pCouleur <> "noir" And pCouleur <> "rouge" Then
        MsgBox "Couleur non conforme"
    Else
        cCouleur = LCase(pCouleur)
    End If
End Property
 
Public Property Let marque(pMarque As String)
    If pMarque <> "renaud" And pMarque <> "peugeot" Then
        MsgBox "Marque non conforme"
    Else
        cMarque = LCase(pMarque)
    End If
End Property

2- tu laisses l'accès en passant par une méthode de ta classe.
Par exemple, avec une méthode AddVoiture :

Code:

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
Private couleur As String
Private marque As String
'Ici, tu peux placer tes Let en Private
Private Property Let LetCouleur(pCouleur As String)
    couleur = LCase(pCouleur)
End Property
 
Private Property Let LetMarque(pMarque As String)
    marque = LCase(pMarque)
End Property
 
Public Property Get GetCouleur()
    GetCouleur = couleur
End Property
Public Property Get GetMarque()
    GetMarque = marque
End Property
 
' fonction que je veux definir pour pas que l'utilisateur fasse ce qu'il veut !
Public Function afficherVoiture() As String
    afficherVoiture = "marque: " & Me.GetMarque() & " / couleur: " & Me.GetCouleur
End Function
 
Public Sub AddVoiture(C As String, M As String)
    If C <> "blanc" And C <> "noir" And C <> "rouge" Then
        MsgBox "Couleur non conforme"
        Exit Sub
    ElseIf M <> "renaud" And M <> "peugeot" Then
        MsgBox "Marque non conforme"
        Exit Sub
    End If
    LetCouleur = C
    LetMarque = M
End Sub

EDIT :
sinon, pour répondre à la question telle qu'elle est posée, voici un exemple :

Code:

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
Private couleur As String
Private marque As String
 
Private Property Let LetCouleur(pCouleur As String)
    couleur = LCase(pCouleur)
End Property
 
Private Property Let LetMarque(pMarque As String)
    marque = LCase(pMarque)
End Property
 
Private Property Get GetCouleur()
    GetCouleur = couleur
End Property
Private Property Get GetMarque()
    GetMarque = marque
End Property
 
' fonction que je veux definir pour pas que l'utilisateur fasse ce qu'il veut !
Public Function afficherVoiture(code As String) As String
    If code <> "monmotdepasse" Then afficherVoiture = "": Exit Function
    afficherVoiture = "marque: " & GetMarque & " / couleur: " & GetCouleur
End Function
 
Public Sub Add(code As String, C As String, M As String)
    If code <> "monmotdepasse" Then Exit Sub
    If C <> "blanc" And C <> "noir" And C <> "rouge" Then
        MsgBox "Couleur non conforme"
        Exit Sub
    ElseIf M <> "renaud" And M <> "peugeot" Then
        MsgBox "Marque non conforme"
        Exit Sub
    End If
    LetCouleur = C
    LetMarque = M
End Sub

avec ce type d'appel :

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub test()
Dim Voiture(4) As New cVoiture
    Voiture(0).Add "monmotdepasse", "blanc", "peugeot"
    Voiture(1).Add "motdepasse", "blanc", "renaud"
    Voiture(2).Add "monmotdepasse", "rouge", "peugeot"
    Voiture(3).Add "monmotdepasse", "noir", "peugeot"
    Voiture(4).Add "monmotdepasse", "vert", "renaud"
    MsgBox Voiture(1).afficherVoiture("monmotdepasse")
    MsgBox Voiture(2).afficherVoiture("monmotdepasse")
    MsgBox Voiture(1).afficherVoiture("depasse")
End Sub

STOOOOOOOP !

Je vous arrête tout de suite. Je veux bel et bien utiliser PRIVATE PROPERTY !! (et j'ai réussi, je vous explique...)
J'encapsule tout et c'est moi qui décide COMMENT on ACCÈDE/MODIFIE les attributs de mon objets !

J'ai résolu le problème. Dans le code que je vais afficher, je travaille sur une "voiture", et je ne peux modifier sa "marque" et sa "couleur" qu'à sa création. De plus, je crée un identifiant qui se génère tout seul à la création et qu'on ne pourra plus jamais modifier.
Et pour lire ses attributs, on doit utiliser une méthode spéciale "afficheVoiture" qui elle est publique. On ne peut pas accéder en lecture aux attributs séparément !

Voici la solution (Module de Classe):
Code:

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 Private couleur As String Private marque As String Private idVoiture As String 'PRIVATE !!!!!! Private Property Let LetCouleur(pCouleur As String) couleur = LCase(pCouleur) End Property Private Property Let LetMarque(pMarque As String) marque = LCase(pMarque) End Property Private Property Let LetIdVoiture(pID As String) idVoiture = pID End Property 'PRIVATE !!!!!! Private Property Get GetCouleur() GetCouleur = couleur End Property Private Property Get GetMarque() GetMarque = marque End Property Private Property Get GetIdVoiture() GetIdVoiture = idVoiture End Property ' PUBLIQUE !!!! Public Function afficherVoiture() As String afficherVoiture = "marque: " & GetMarque() & " / couleur: " & GetCouleur() End Function Public Function creerVoiture(pCouleur As String, pMarque As String) As voiture If GetCouleur = LCase("jauneParDefault") And GetMarque = LCase("CACIBparDefault") Then LetCouleur = pCouleur LetMarque = pMarque LetIdVoiture = pMarque & "_" & pCouleur End If Set creerVoiture = Me End Function ' constructeur par default Private Sub Class_Initialize() LetCouleur = LCase("jauneParDefault") LetMarque = LCase("CACIBparDefault") End Sub Private Sub Class_Terminate() Debug.Print "Voiture supprimée: " & GetIdVoiture End Sub
Et voici comment faire pour utiliser les objets (module classic):
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 'Module classic Sub testVoiture() Dim v1 As New voiture Dim v2 As New voiture Set v1 = v1.creerVoiture("verte", "bmw") Set v2 = v2.creerVoiture("orange", "twingo") Set v1 = v1.creerVoiture("rouge", "ferrari") MsgBox v1.afficherVoiture 'reste verte et bmw car creerVoiture gere les conditions End Sub
Voilà, fin du débat. :P
Merci d'avoir proposé vos idées.
Vous voyez que mettre les Property en Private est utile ! Donc essayez de bien lire la question lorsque quelqu'un demande de l'aide là prochaine fois au lieu de le forcer à abandonner l'idée pour une autre qui n'est pas adaptée :P

Slooby

04/05/2016, 13h09
cerede2000

Encore une fois on est sur du DesignPattern, dans le cas que tu évoque maintenant il s'agirait plutôt du coup d'un pattern Factory !

Et ta méthode creerVoiture devrait en réalité être static !
Elle ne doit pas dépendre d'une instance, ça n'as absolument aucun sens ;)
Ce qui du coup empêcherai de la rappeler (comme tu peux le faire, même si ça ne fais rien) sur un objet instancié !

Et puis pour une voiture on est d'accord qu'on changera pas sa marque ou son modèle une fois qu'elle est fabriqué mais sa couleur par contre peux sans problème être modifié !
04/05/2016, 13h52
Slooby
Citation:

Envoyé par cerede2000

Encore une fois on est sur du DesignPattern, dans le cas que tu évoque maintenant il s'agirait plutôt du coup d'un pattern Factory !

Et ta méthode creerVoiture devrait en réalité être static !
Elle ne doit pas dépendre d'une instance, ça n'as absolument aucun sens ;)
Ce qui du coup empêcherai de la rappeler (comme tu peux le faire, même si ça ne fais rien) sur un objet instancié !

Et puis pour une voiture on est d'accord qu'on changera pas sa marque ou son modèle une fois qu'elle est fabriqué mais sa couleur par contre peux sans problème être modifié !

Exact, on est dans un cas de DesignPattern. Chose assez folle à faire en VBA :lol:

la ligne de code:
Code:

1 2 Dim v1 As New voiture Set v1 = v1.creerVoiture("verte", "bmw")
est horrible à écrire, Set v1=v1... c'est vraiment pas super .... Mais j'ai pas encore réussi à faire mieux.

En POO (du genre en JAVA) ça passerai tout seul avec un constructeur, mais là je n'y arrive pas encore.
Il faudrait un truc du genre:
Code:

1 2 Dim v1 As Voiture Set v1 = creerVoiture(parametre1, parametre2)
mais même si la méthode est PUBLIQUE, si je ne l'applique pas directement à une instance de voiture ( uneInstanceVoiture.creerVoiture(..,..) alors l'éditeur ne reconnait pas la méthode :ptdr:

Du coup c'est pour ça que j'ai cette horrible écriture.
Si t'as une solution pour passer par une méthode static je suis prenneur :lol:

Slooby.

PublicNotCreatable

Bonjour,

Citation:

dans n'importe quel module (classique) on peut venir modifier les champs de mon objet

Oui et non!

Il y a la portée Friend pour les propriétés et méthodes objets.
Un module de classe (dans VBA) peut avoir 2 portés:
- Private (par defaut) : accessible uniquement à l'intérieur de ton projet
- PublicNotCreatable : visible depuis un autre projet, par contre impossible de créer l'objet depuis un autre projet (utilisation de New impossible), du coup il faut créer un fonction constructeur dans le projet pour qu'il puisse être utilisé

Ton objet :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Option Explicit Public Property Let Para1(Val As String) 'Visible par tout le monde dans ton projet 'Si l'objet est PublicNotCreatable alors cette propriété est visible également à l'extérieur 'Sinon l'objet n'est pas visible du tout End Property Friend Property Let Para2(Val As String) 'Visible par tout le monde dans ton projet 'Si l'objet est PublicNotCreatable alors cette propriété n'est pas visible depuis l'extérieur 'Sinon l'objet n'est pas visible du tout End Property
Dans un module de code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Public Sub TonCode() Dim v As Voiture Set v = CreatorVoiture("Pagio", "Ranaud") End Sub Public Function CreatorVoiture(Para1 As String, Para2 As String) As Voiture 'Si Voiture est PublicNotCreatable il faut absolument prévoir une fonction dans un module standard 'qui est capable de retourner une nouvelle instance de voiture Dim Result As Voiture Set Result = New Voiture Result.Para1 = Para1 Result.Para2 = Para2 Set CreatorVoiture = Result End Function
PS:
Pour les modules standard, ils sont par défaut Public et donc visible depuis l'extérieur.
Mais il est possible de les rendre privé : il faut mettre tout en haut du module Option Private Module