[VBA] Utilisation de classes

Bonjour,

Je travaille présentement sur un exercice pour pratiquer la programmation de classes dans Access. Voici le topo :

J'ai 3 tables : une qui contient les membres d'un club automobile. Une seconde table qui contient les voitures avec les infos générales (marque, modele, annee, etc.) Une 3ieme table fait le liens entre les membres du club auto et chacune des voitures qu'il possèdent (avec des infos plus spécifiques sur la voitures comme le # immatriculation, le kilométrage, etc.).

J'ai donc une classe Membre et une autre classe Voiture. La classe membre possède entre autre une méthode qui permet d'associer un lien entre le membre et une voiture. Voici mon questionnement.

J'aimerais avoir dans la classe membre une méthode GetListVoiture. Cette méthode me permetterait de retourner la liste des voitures que possède le membre du club auto. Avez-vous une idée de comment je pourrais procéder? Est-il possible que la méthode puisse me retourner la liste des voitures du membre sous une forme de liste objet de la classe voiture ? J'ai vu qu'il y avait la possibilité d'exploiter les collections. Est-ce qu'il y aurait possibilité d'utiliser cette avenue ?

Merci pour vos suggestions :D

Bonjour,

Si tes tables sont liées correctement tu ne devrais pas avoir de problèmes.

Il te suffit de faire un formulaire basé sur une requête dont le critère serait le nom du membre du Club.

Enfin si j'ai bien compris ce que tu cherche à faire!

Bonne continuation

Citation:

---

Envoyé par p'tite Sandrine

Bonjour,

Si tes tables sont liées correctement tu ne devrais pas avoir de problèmes.

Il te suffit de faire un formulaire basé sur une requête dont le critère serait le nom du membre du Club.

Enfin si j'ai bien compris ce que tu cherche à faire!

Bonne continuation

---

Effectivement, c'est une bonne solution. Mais ce n'est pas ce que je cherche à faire. Je dois le faire via une classe (c'est le but de l'exercice).

Est-ce que des gens ont des pistes de solutiona à ma question ??

Bonsoir,

Oui, en utilisant Set

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

' code Classe clMembre Public Nom As String Public Voitures As New Collection Property Get ListeVoitures() Set ListeVoitures = Voitures End Property Private Sub Class_Terminate() While Voitures.Count > 1 Voitures.Remove 1 Wend End Sub

---

En espèrant t'avoir mis sur la voie.

Citation:

---

Envoyé par LedZeppII

Bonsoir,

Oui, en utilisant Set

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

' code Classe clMembre Public Nom As String Public Voitures As New Collection Property Get ListeVoitures() Set ListeVoitures = Voitures End Property Private Sub Class_Terminate() While Voitures.Count > 1 Voitures.Remove 1 Wend End Sub

---

En espèrant t'avoir mis sur la voie.

---

Bonjour,

Effectivement, cela est un bon début. Mais ce que j'aimerais savoir : de quelle façon vais-je devoir initialiser la collection Voitures avec les objets de ma classe Voiture. As-tu un exemple de code de la méthode pour me guider?

De plus, je me demandais si cette technique pouvait être 'lourde' en traitement.C'est-à-dire est-ce que peut être long à exécuter de retourner une collection d'objet? Est-ce que c'est une bonne possibilité ou vous avez d'autres suggestions ?

Merci pour vos réponses.

Et bien la collection est instanciée via New la première fois. Ensuite, c'est à toi de décider quand tu ajoutes une voiture à la collection. Peut être à la création de la voiture ou bien lorsque tu l'a rend disponible à un client, etc. ;)

Tu vois ce que je veux dire ?

PS : C'est moi qui ai mis les 5 étoiles à ce sujet. J'aime bien ce genre de question, ça change de d'habitude, et c'est très interessant :P

Bonsoir,

Comme l'a dit Tofalu la collection Voitures est initalisée dans la classe clMembre par le mot clé New.

Voici un exemple rapide d'utilisation

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

Dim Membres As New Collection Dim Membre As clMembre, Voiture As clVoiture Dim Voitures As Collection ' ou As Object Dim iM As Integer, iV As Integer ' Crée un nouveau membre Set Membre = New clMembre Membre.Nom = "Paul" ' Crée nouvelle voiture Set Voiture = New clVoiture Voiture.Marque = "Renault" Voiture.Modele = "Clio" ' Ajoute voiture à la collection Membre.Voitures.Add Voiture ' Crée nouvelle voiture Set Voiture = New clVoiture Voiture.Marque = "Peugeot" Voiture.Modele = "107" ' Ajoute voiture à la collection Membre.Voitures.Add Voiture ' Ajoute Membre à la collection Membres.Add Membre ' Crée un nouveau membre Set Membre = New clMembre Membre.Nom = "Pierre" ' Crée nouvelle voiture Set Voiture = New clVoiture Voiture.Marque = "Peugeot" Voiture.Modele = "106" ' Ajoute voiture à la collection Membre.Voitures.Add Voiture ' Ajoute Membre à la collection Membres.Add Membre ' Parcoure de la collection Membres For iM = 1 To Membres.Count Debug.Print Membres(iM).Nom ' Parcoure liste voitures Set Voitures = Membres(iM).ListeVoitures For iV = 1 To Voitures.Count Debug.Print vbTab & Voitures(iV).Modele Next Next Set Voiture = Nothing Set Membre = Nothing ' Libération de la collection While Membres.Count > 1 Membres.Remove 1 Wend Set Membres = Nothing

---

En ce qui me concerne, moi j'utiliserai quatre classes.
Une clase clVoiture qui définit les caractériques d'une voiture.
Une clase clMembre qui définit les caractériques dun membre.

Une classe clVoitures pour gérer une Collection de clVoiture.
Une classe clMembres pour gérer la Collection de clMembre.

Retourner la collection de voiture n'est pas pénalisant car cela consiste à retourner un pointeur (32 bit) sur la collection existante.

Question à Tofalu :
Est-on obligé de détruire les collections créées en supprimant les éléments un par un
ou bien est-ce géré par la classe Collection quand on écrit Set xxx = Nothing ?

A+

Citation:

---

Est-on obligé de détruire les collections créées en supprimant les éléments un par un
ou bien est-ce géré par la classe Collection quand on écrit Set xxx = Nothing ?

---

Je ne sais pas.

Dans tous les cas, vider la collection est une méthode plus propre. En plus, il est facile d'écrire une méthode Clear qui videra n'importe quelle collection passée en paramètre ;)

plus propre ??
surtout infiniment plus lente

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Function tuecoll() Dim boucle As Long Dim macoll As New Collection Dim chrono As Date For boucle = 1 To 100000 macoll.Add boucle Next boucle tuecoll = chrono chrono = Now For boucle = 100000 To 1 Step -1 macoll.Remove boucle Next boucle tuecoll = Now - chrono End Function

---

Citation:

---

Envoyé par random

plus propre ??
surtout infiniment plus lente

---

C'est sur qu'avec 100000 objects dans ta classe, c'est plus lent!
Personnelement, c'est la technique que j'utilise :

Code:

---

1 2 3 4 5

Public Sub Clear() Do While MaCollection.CountItem > 0 MaCollection.Remove 1 Loop End Sub

---

Ça m'assure que le Class_Terminate() de chaque object de ma collection est appelé.
Des collègues m'ont reprochés de supprimer mes objets à partir du début de la collection plutôt qu'à partir de la fin. Seulement, dans le cas de l'object Collection, mes test n'ont pas prouvés qu'il y a une différence de performance.

à la fin ou au début c'est sans incidence
par contre ta méthode est plus lente parceque à chaque fois il faut recompter
le nombre d'enregistrements quand on connait le nombre de passages la boucle est préférable

Code:

---

1 2 3 4

nb =MaCollection.Count for boucle=1 to nb MaCollection.Remove 1 next boucle

---

te fera gagner nb-1 accés à la valeur de macollection count



une collection est une liste chainée supprimer un item suppose
pour l'élément terminal pointeur suivant = null
pour l'élément primitif pointeur (collection) premier=adresse premier
pour un élément compris entre les deux
pointeur suivant du précédent = pointeur suivant
pointeur précédent du suivant = adresse(item)
la mémoire allouée se trouvant ainsi libérée
un remove élément par élément suppose collection.count écriture de pointeur
set ma collection=nothing fait le même travail avec un gain de performance qui croît avec count

on utilise rarement de grosses collections (dans ce cas les arrays sont préférables)

mais un traitement peut créer et détruire autant de collections qu'il y a d'enregistrements

pour un jeu de 100000 enregistrements une petite collection avec les 12 mois de l'année utilisée pour des calculs,un gain d'un facteur 12 sera plus que perceptible

Maintenant si on me démontre que c'est plus propre ce sera avec plaisir que j'entendrais la démonstration et éventuellement que j'utiliserais remove

Mmmm...
Tu marque un point. Dans le contexte, c'est mieux de compter une seule fois.
Je suis habitué de fonctionner avec des langages multi-threads, d'où le besoin de recompter chaque fois. Je m'ennuie de Java! :cry:

Bonsoir,

J'ai voulu vérifier vos propos en testant.
J'ai repris le code de Random en remplaçant Now par Timer et le type de chrono de Date en single.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Function tuecoll() Dim boucle As Long Dim macoll As New Collection Dim chrono As Single For boucle = 1 To 100000 macoll.Add boucle Next boucle tuecoll = chrono chrono = Timer For boucle = 100000 To 1 Step -1 macoll.Remove i Next boucle tuecoll = Timer - chrono End Function

---

-->117 secondes

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Function tuecoll() Dim boucle As Long Dim macoll As New Collection Dim chrono As Single For boucle = 1 To 100000 macoll.Add boucle Next boucle tuecoll = chrono chrono = Timer For boucle = 100000 To 1 Step -1 macoll.Remove 1 Next boucle tuecoll = Timer - chrono End Function

---

-->0.031 sec

Si on remplace For boucle = 100000 To 1 Step -1 par Do While macoll.Count>0
-->0.046 sec

J'ai rebooté mon PC et refait le test pour être bien sûr, car à priori j'aurai pensé comme Random.

Ce qui me surprend s'est la différence de temps entre supprimer des éléments du dernier vers le premier et toujours supprimer le premier :question:
Mais peu importe.

Random, est-ce que ta réponse voulais dire qu'on peut détruire une collection simplement en écrivant

Code:

---

Set macoll = Nothing

---

et qu'il n'est pas nécessaire de supprimer tous les éléments ?

A+

absolument

en fait si je ne m'abuse une collection est une liste chaînée en c

dans une liste chainée on a 3 éléments

la variable elle même d'un type quelconque
un pointeur suivant qui contient l'adresse du suivant nihill ou null si on se situe
sur le dernier élément
un pointeur précédent qui contient l'adresse du précédent nihill ou null si on se situe sur le premier élément
le remove modifie deux pointeurs et alloue la mémoire de l'élément
le set collection =nothing va allouer toute la mémoire
en fait dans les deux cas la mémoire n'est pas écrite elle est simplement rendue disponible et on peut toujours accéder à la zone mémoire si le langage le permet et retrouver l'information
mais l'adresse n'est plus disponible pointeur(premier) va renvoyer null