Discussion :

[Slooby]

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

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 :

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
 
'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.

[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.

[mathspountz]

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

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

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

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

[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 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 )


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 !
Slooby

[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

[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"

[cerede2000]

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

Et si tu est en train de faire une application bancaire avec Excel et VBA => Arrête tout de suite

[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é !

[Slooby]

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

la ligne de code:

Code :

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

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 :

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

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

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

Slooby.

[araigné]

Bonjour,

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 :

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

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 :

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