Une classe dans une classe?

**MARTIN_T** · 12/11/2016, 19h48

Bonjour,

Contextualisation du problème :
Je suis enseignant et je souhaite créer une petite macro afin de créer automatiquement des groupes pour mes élèves selon leurs affinités.
Après avoir effectué quelques tests sur une feuille Excel pour savoir si cela était faisable (la procédure demandant une optimisation avec des variables binaires, je n'étais pas convaincu de l'efficacité/pertinence de Excel), je me lance maintenant dans l'automatisation de la création des groupes avec de belles macros.

Rentrons maintenant dans le vif du sujet.
Pour faire ma macro, je vais utiliser 2 classes :
- La classe cEleve où j'aurais le nom et le prénom de l'élève - mNom et mPrenom en "string".
- La classe cClasse avec juste le nom de la classe : Ex CE2 - mNom_Classe en "string", le nombre d'élèves dans la classe de CE2 en -N_Eleves en "integer" - et la liste d'élèves - mEleves() de type "cEleve".
Afin de limiter la confusion entre une classe de vba, et une classe d'élèves, j'ai choisi de mettre en italique lorsque je parle d'une classe d'élèves!

Le problème :
Et j'ai un problème qui intervient très rapidement...
Dès que je souhaite donner le nom à un élève d'une classe de CE2, je suis confronté à des erreurs dans tous les sens, soit incompatibilité de type, soit le programme lit la valeur existante au lieu de lui donner la valeur... etc... suivant mes tentatives pour corriger le problème.

Voici la portion de code me servant de test qui pose problème, avec en gras la ligne qui bug:

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
Option Base 1
Option Explicit

Sub test()

Dim Jean As New cEleve

Jean.Nom = "Truc"
Jean.Prenom = "Jean"

Dim CE2 As New cClasse
CE2.N_Eleves = 1

CE2.Eleves(1).Nom = Jean.Nom

End Sub

Le message d'erreur actuel est : "L'indice n'appartient pas à la sélection".
En mode debug, à la ligne en gras, je rentre dans la classe cEleve et lit la valeur du nom - Ligne 9 du code ci dessous.
Puis j'entre dans la classe cClasse à la ligne 32. Qui veut lire la valeur de l'élève dans la mEleve() au lieu de l’attribuer...

Codes
La classe Cclasse

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
 
Option Explicit
Option Base 1
 
Private mNom_Classe As String
Private mN_Eleves As Integer
Private mEleves() As cEleve
 
Private Affinite() As Double
 
Property Get Nom_Classe() As String
    ' Propriété en lecture
    Nom_Classe = mNom_Classe
End Property
 
Property Let Nom_Classe(Nom_Classe As String)
    ' Propriété en écriture
    mNom_Classe = Nom_Classe
End Property
 
Property Get N_Eleves() As Integer
    ' Propriété en lecture
    N_Eleves = mN_Eleves
End Property
 
Property Let N_Eleves(N_Eleves As Integer)
    ' Propriété en écriture
    mN_Eleves = N_Eleves
    ReDim mEleve(mN_Eleves)
End Property
 
Property Get Eleves() As cEleve
' Propriété en lecture
Dim i As Integer
 
For i = 1 To mN_Eleves
    Eleves(i).Nom = mEleves(i).Nom
    Eleves(i).Prenom = mEleves(i).Prenom
Next i
End Property
 
Property Let Eleves(Eleves As cEleve)
    ' Propriété en écriture
    Dim i As Integer
 
    For i = 1 To mN_Eleves
        ' Propriété en lecture
        mEleves(i).Nom = Eleves(i).Nom
        mEleves(i).Prenom = Eleves(i).Prenom
    Next i
End Property

La classe cEleve

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
 
Option Explicit
Option Base 1
 
Private mNom As String
Private mPrenom As String
 
 
Property Get Nom() As String
    ' Propriété en lecture
    Nom = mNom
End Property
 
Property Let Nom(Nom As String)
    ' Propriété en écriture
    mNom = UCase(Nom)
End Property
 
Property Get Prenom() As String
    ' Propriété en lecture
    Prenom = mPrenom
End Property
 
Property Let Prenom(Prenom As String)
    ' Propriété en écriture
    mPrenom = UCase(Prenom)
End Property

Je suis persuadé que l'erreur est extrêmement simple à corriger lorsqu'on sait quoi mettre, mais je n'ai pas trouvé la solution pour le moment.
La seule alternative que j'ai pu trouver aurait été d'utiliser des collections, mais je ne sais pas pourquoi, ça ne me tente pas...

Cordialement,

T. MARTIN

**joe.levrai** · 12/11/2016, 20h34

Bonjour,

étant un parfait incompétent avec les modules de classe (les habitués comprendrons, mais un jour viendra ....

), je me pose quand même une question

pourquoi ne pas créer une méthode (Ajoute_Eleve) dans ta classe clsClasse qui permet d'ajouter un élève ?

je crois que c'est le but des classes, c'est de réaliser toutes les besognes sans que le code "non classé" ait à le faire

par exemple :

Code :

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

Classe1.Ajoute_Eleve(Jean.Nom)

Et côté Module clsClasse ... euh, j'ai déjà dit que j'étais un parfait incompétent ou pas ?

**MARTIN_T** · 12/11/2016, 20h55

Merci Joe pour ta proposition, mais en fait, elle existe déjà ^^

Je ne l'ai pas mise pour épurer au maximum le code et mettre en avant le problème!

En ajoutant cette méthode, il y a un moment où je suis confronté à une situation similaire... (suivant comment je m'y suis pris pour la coder)
Et je me suis dis que si je n'arrivais pas encore le cas simple, ce n'était pas la peine de trop insister pour le moment sur la subroutine Ajouter_Eleve...

La subroutine dans cClasse :

Code :

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

1
2
3
4
5
6
7
8
 
Sub Ajouter_Eleve(ByVal Eleve As cEleve)
 
mN_Eleves=m_N_Eleves+1
ReDim mEleve(mN_Eleves)
Set mEleve(n + 1) = Eleve
 
End Sub

Je précise que je maîtrise pas entièrement le "Set" que j'ai mis dans le code, mais il semblait plus ou moins marcher dans d'autres situations.

Si je tente d'utiliser cette subroutine : Classe1.Ajouter_Eleve (Jean), j'ai alors le message d'erreur suivant :
"Propriété ou méthode non gérée par cet objet"

Mais si tu as d'autres idées, je suis toujours preneur :d

**joe.levrai** · 12/11/2016, 20h58

Je ne vais surtout pas m'aventurer à te donner des leçons ou des conseils avec les Classes !
y'a des mieux placés que moi (Patrick, Robert etc...) qui vont sûrement s'en occuper

par contre, ta variable mEleve étant un tableau et non un Object, je ne pense pas que le Set soit une bonne chose ?

**MARTIN_T** · 12/11/2016, 21h20

Merci Patrick,

Je précise que j'ai donné que le minimum pour expliquer le problème, derrière, j'aurais du coup quelques données supplémentaires à fournir par classe :
- une matrice représentant les affinités entre les personnes.
- Le nombre maximum de groupe voulu pour la classe.
- Minimum et maximum d'élèves par groupe.
- et surtout les subroutines permettant de me fournir des groupes avec le meilleur "contentement global".
Le nombre de valeurs resterait tout le même assez limité (moins d'une dizaine), donc l'idée du type publique peut me plaire, mais à une seule condition : Peut-on quand même leur attribuer des subroutines?
Car c'est pour cette raison que je me suis mis en tête de passer par les classes, si je peux les contourner simplement, ça me convient parfaitement!

**patricktoulon** · 12/11/2016, 20h57

re
bonsoir perso pour 3 valeurs(nnom,nprenom,nclasseeleve ) j'utiliserais pseudos classes avec des variables type en publique

j'utilise souvent ce principe en l'appelant une classe sans module classe

a méditer

**patricktoulon** · 12/11/2016, 21h29

re
un exemple comme ca vite fait a l'arrache

test ca dans un module standard et non un module classe

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
Public Type pn
nom As String
prenom As String
age As Long
End Type
Public Type E
nombre_eleve As Long
eleve_N°(100) As pn
End Type
Dim classe(100) As E
Sub test()
classe(1).nombre_eleve = 25
classe(1).eleve_N°(1).prenom = "Henry"
classe(1).eleve_N°(1).nom = "DuVal"
classe(1).eleve_N°(1).age = 15
classe(3).eleve_N°(5).prenom = "jacques"
classe(3).eleve_N°(5).nom = "Martin"
classe(3).eleve_N°(5).age = 12
 
MsgBox "l 'age du premier eleve de la classe(1) est : " & classe(1).eleve_N°(1).age & " ans"
MsgBox "le prenom du 5eme eleve de la 3 eme classe est : " & classe(3).eleve_N°(5).prenom
 
End Sub

voila

Invité · 12/11/2016, 22h12

Bonsoir Martin,

J'ai l'impression que tu as été un peu vite en besogne!

Pour mon information, précises moi l'organisation du traitement, car je ne voudrais pas mélanger les termes!

Classe pour Cm2 par exemple et classe pour module de classe.

donc dison que tu as 4 classe (ec1,Ce2,Cm1,Cm2), je prend cette exemple pour pas mélanger les terme.

Si je gère mais classe sous forme de collection (dictionary) je peux les gère par leurs noms, ma collection fonctionne comme un changement de rails, pas besoin de m'en soucier.

Maintenant faisons la liaison avec le module de classes.

J'utilise ma collection pour gérer mes module de classe!

Code test si Ce2 existe dans la collection :

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

1
2
 
If myCollection.exist("Ce2") = False then myCollection.add new clsClasse,"Ce2"

Maintenant pour chaque nouvelle instance de clsClasse j'utilise la méthode initalised pour insencier un collection élevé

Chaque fois que je veux rajouter un élève à mon instance Ce2, je ne gère pas la méthode add, mais je pass a bun sub public de clsclasse le informations sur l'élève.

Code informationEleve :

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

1
2
 
myCollection("Ce2").InformationEleve("robert","Dysorthographie","Autre")

Il appartiendra à la méthode InformationEleve de vérifier si l'élève appartient a la collection collectionEleve!

Edite:

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
Dim Classes As Object
Set Classes = CreateObject("Scripting.Dictionary")
If Classes.exists("Ce1") = False Then Classes.Add "Ce1", New ClsClasse
If Classes.exists("Ce2") = False Then Classes.Add "Ce2", New ClsClasse
If Classes.exists("Cm1") = False Then Classes.Add "Cm1", New ClsClasse
If Classes.exists("Cm2") = False Then Classes.Add "Cm2", New ClsClasse
Classes("Ce1").InformationEleve "Ce1", "Dysorthographie", "robert"
End Sub

Code ClsClasse :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Eleves As Object
Private CasseName As String
Private Sub Class_Initialize()
Set Eleves = CreateObject("Scripting.Dictionary")
End Sub
 
 
Private Sub Class_Terminate()
Set Eleves = Nothing
End Sub
Public Sub InformationEleve(Class As String, ElvNom As String, ElvPnom As String)
CasseName = Class
If Eleves.exists(ElvNom) = False Then Eleves.Add ElvNom, New ClsEleve
Eleves(ElvNom).Nom = ElvNom: Eleves(ElvNom).Pnom = ElvPnom
End Sub

Code ClsEleve :

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

1
2
Public Nom As String
Public Pnom As String

les module de classes implique une autre façon de résonner, il faut les considérer comme de modèle, il sont en soit fini et savent ce gérer seule! clsClase se gère tout seule! tu lui donne les information et il s'en débrouille! ce n'est pas le problème de la sub test !