Classes et collections

Version imprimable

Bonjour à tous,
Alors je vous explique succinctement le contexte.
Je souhaite ajouter dynamiquement des boutons à un userform et y affecter du code.
J'ai donc adapté un morceau de code trouvé sur le forum et çà fonctionne.
Donc pourquoi est-ce que je poste direz-vous?
En fait je ne maitrise pas trop les classes et les collections. Je ne voudrais donc pas appliquer bêtement le code sans le comprendre. Voici donc le code de base (c'est réduit au strict nécessaire pour les explications):
Userform
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 Public Collect As Collection Public CollectBT As Collection Private Sub UserForm_Initialize() Dim Bouton As MSForms.CommandButton Dim Cl As ClasBT ' Set Collect = New Collection Set CollectBT = New Collection ' For i = 1 To 3 Set Bouton = Me.Controls.Add("Forms.commandbutton.1", "equipe" & i, True) CollectBT.Add Bouton 'Ajouter à la collection d'objet Set Cl = New ClasBT 'Ajouter à la collection de classe Set Cl.GroupBoutons = Bouton Collect.Add Cl With CollectBT(i) 'Initialise les boutons .Top = i * 30 .Left = 30 End With Next End Sub Public Sub ControlClick() MsgBox "ok " End Sub
Le module de classe:
Code:

1 2 3 4 5 6 7 Public WithEvents GroupBoutons As MSForms.CommandButton Private Sub GroupBoutons_Click() Call UserForm1.ControlClick End Sub
Voici donc mes questions:
-CollectBT est la collection des boutons. Ca sert à modifier les propriétés des boutons (position, couleur, etc...) avec un minimum de lignes de code, pour éviter de modifier indépendamment chaque bouton. Est-ce bien là l'intérêt?
-Cl c'est quoi? Une instance de ClasBT?
-GroupBoutons c'est quoi, un objet ou une propriété? Parce que çà a l'air d'être une propriété mais dans ce cas comment on peut affecter un bouton à une propriété?
-et enfin, à quoi sert la collection Collect?

Merci d'avance pour vos réponses

21/06/2013, 12h28
BenjGe

oui la collection est un objet qui permet de référencer d'autres éléments par exemple des objets. Gràace à ça on est capable d'utiliser des boucles for pour appliquer des actions communes groupées sur ces objets. VB6 a la notiond e contrôle array mais pas vba, ainsi en vba quand on veut faire la même chose sur 5 boutons par exemple on les stocke dans une collection.

cl est bien une instance de la clasBT

Groupbuttons est une variable de classe qui est en fait un objet de type MSForms.CommandButton. Cette variable est déclarée de façon à supporter les évènements de ce type d'objet (par exemple l'évènement clic). La Private Sub GroupBoutons_Click() dans la classe redéfinit par ailleurs la procédure exécutée lors d'un clic sur un bouton de ce type.

Avec: Set Cl.GroupBoutons = Bouton
il dit que les bouton sont de ce type et donc il redéfinit le clic sur ces boutons
21/06/2013, 12h50
gadsweb

Merci pour cette réponse rapide.
Et sais-tu pourquoi il utilise la classe Collect?
21/06/2013, 13h06
Invité

Bonjour,
Il faut déjà comprendre que dans Excel, du point de vue informatique tous est collection.
Excel.application : une collection de propriétés et de méthode :
Collection Excel.application.Workbooks :
Classeur1.xls, Classeur2.xls,…..
Collection Excel.application.Workbooks(1).Sheets :
Feuil1, Feuil2,…
Excel.application.Workbooks(1).Sheets.Add ajoute une feuille à la collection.
Ce qui est perturbant c’est que l’on peut définir ça propre collection :
Dim MyCollection as New Collection de ce fait elle fonctionne comme Excel.application.Workbooks(1).Sheets.Add MyCollection.add
On peut ajouter deux type de valeur à une collection MyCollection.add 1 ou MyCollection.add MyClass.
Dans Excel si tout est collection d’une certaine manière tout est class :
Excel, Classeur1.xls, Feuil1,cells(1,1) sont des Class.
Je défini une Class comme un variable intelligente sauf qu’elle s’instancie avec le mot New.
Une class est un programme à part entière ou plus exactement un modèle de programme. On y trouve le descriptif des tâches à effectuer.
Dans un premier temps on ajoute une class commandbutton puis on ajoute cette class à la class ClasBT qui prend en charge l’événement On_Click.
C’est un peut succin mais c’est l’idée.
21/06/2013, 13h07
BenjGe

collectbt contient les boutons
et collect contient les instance de classe clasbt qui redéfinissent le comportement des boutons.

Pour savoir à quoi ça sert il faudrait voir plus de code
21/06/2013, 13h50
gadsweb

Ce que je n'arrive pas à comprendre c'est qu'on affecte Bouton à ClasBT (via Set Cl.GroupBoutons = Bouton) qui gère l'événement Click.
Maintenant à quoi sert Collect (et je confirme que si on ne l'utilise pas, çà ne fonctionne pas)

J’ai modifié un peut le code, tu verras que tu peux exécuter différentes actions dans la méthode ControlClick en fonction du contrôle sur lequel tu click.
userForm

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
Public Collect As Collection
Public CollectBT As Collection
Private Sub UserForm_Initialize()
Dim Bouton As MSForms.CommandButton
Dim Cl As ClasBT
'
Set Collect = New Collection
Set CollectBT = New Collection
'
For I = 1 To 3
Set Bouton = Me.Controls.Add("Forms.commandbutton.1", "equipe" & I, True)
CollectBT.Add Bouton 'Ajouter à la collection d'objet
Set Cl = New ClasBT 'Ajouter à la collection de classe
Cl.ID = I
Set Cl.GroupBoutons = Bouton
Collect.Add Cl
 
With CollectBT(I) 'Initialise les boutons
.Top = I * 30
.Left = 30
End With
Next
 
End Sub
Public Sub ControlClick(ByVal ID As Long)
 Select Case ID
    Case 1
        MsgBox "Test du contrôle N° " & ID
    Case 2
        MsgBox "Même chose mais pour le contrôle N° " & ID
    Case 3
        MsgBox "Et là c'est le contrôle N° " & ID
 End Select
End Sub
Public Sub ControlClickDroit(ByVal ID As Long)
    MsgBox "Tu veux de l'aide ?"
End Sub

ClasBT:

Code:

1
2
3
4
5
6
7
Public WithEvents GroupBoutons As MSForms.CommandButton
Public ID As Long
Private Sub GroupBoutons_Click()
 
Call UserForm1.ControlClick(ID)
 
End Sub

21/06/2013, 14h59
patricktoulon

heu

bonjour

le but d'une classe control c'est de gérer leur propriétés dans une seule et meme instance

il y a plusieur facon d'y arriver

regarde cet exemple pour les textboxs ICI!!!

et il y en a d'autre dans les contributions

au plaisir
21/06/2013, 23h58
Invité

Citation:

Envoyé par gadsweb

Ce que je n'arrive pas à comprendre c'est qu'on affecte Bouton à ClasBT (via Set Cl.GroupBoutons = Bouton) qui gère l'événement Click.
Maintenant à quoi sert Collect (et je confirme que si on ne l'utilise pas, çà ne fonctionne pas)

Bonsoir,
Une classe dispose des propriétés (variable) et des méthodes (fonction, sub)
Une class est un modèle (structure) de programme ; les propriétés et les méthodes son unique à la class. Exemple dans la class j’ai une variable ID as long
Je dispose de 3 instances dim MyClass1 as New ClasBT ,dim MyClass2 as New ClasBT, dim MyClass3 as New ClasBT.
MyClass1.ID=1, MyClass2.ID=2, MyClass3.ID=3 Chaque class base sur le même modèle, ce trouve affecter d’une même variable mais dispose d’une valeur intrinsèque à chaque instance.
GroupBoutons est également une variable intrinsèque c’est mon bouton
ollectBT.Add Bouton 'Ajouter à la collection d'objet
Set Cl = New ClasBT 'Ajouter à la collection de classe
Cl.ID = I
Set Cl.GroupBoutons = Bouton.
Vu que je veux récupérer l’événement de ce contrôle, je veux l’isoler des autre contrôles une class est idéal.
Public WithEvents GroupBoutons As MSForms.CommandButton
La collection quand à elle ce comporte comme un variable tableau, elle permet d’ajouter des contrôles dynamiquement sans avoir à définir une palanqué de variable comme dans l’exemple précédant (control1, control2, control3, control150,…)
1 CollectBT.Add Bouton 'Ajouter à la collection d'objet
2 CollectBT.Add Bouton 'Ajouter à la collection d'objet
3 CollectBT.Add Bouton 'Ajouter à la collection d'objet
150 CollectBT.Add Bouton 'Ajouter à la collection d'objet
….

Citation:

Envoyé par gadsweb

Voici donc mes questions:
-CollectBT est la collection des boutons. Ca sert à modifier les propriétés des boutons (position, couleur, etc...) avec un minimum de lignes de code, pour éviter de modifier indépendamment chaque bouton. Est-ce bien là l'intérêt

Pour répondre à cette question et si tu n'auras plus besoin de la collection des boutons créés après l'Initialize, tu n'auras pas besoin de CollectBT et ton code se résumera à:
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 Dim Collect As Collection Private Sub UserForm_Initialize() Dim Bouton As MSForms.CommandButton Dim Cl As ClasBT Dim i As Byte Set Collect = New Collection For i = 1 To 3 Set Bouton = Me.Controls.Add("Forms.commandbutton.1", "equipe" & i, True) With Bouton 'ici on change toutes les propriétés du contrôle qu'on vient d'ajouter .Caption = "Equipe " & i .Top = i * 30 .Left = 30 End With Set Cl = New ClasBT Set Cl.GroupBoutons = Bouton Collect.Add Cl 'Ajouter à la collection de classe 'On libère les varaibles non nécessaires Set Bouton = Nothing Set Cl = Nothing Next i End Sub
Remarque, 1 seul module de classe peut gérer les évènements de plusieurs types de contrôles.

PS. A voir les déclarations.

'================================================
Une autre manière (utiliser un tableau au lieu des collections)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Private Const N As Byte = 5 Dim Tb(1 To N) As New ClasBT Private Sub UserForm_Initialize() Dim Bouton As MSForms.CommandButton Dim i As Byte For i = 1 To N Set Bouton = Me.Controls.Add("Forms.commandbutton.1", "equipe" & i, True) With Bouton .Caption = "Equipe " & i .Top = i * 30 .Left = 30 End With Set Tb(i).GroupBoutons = Bouton 'Insérer l bouton créé Next i Me.Height = 30 * (N + 2) End Sub

Bonjour,

En redimensionnant le tableau à fur et à mesure (pratiquement identique au second code de mercatog).

Dans le module de la Form :

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
 
Dim Btn() As New ClasBT
 
Private Sub UserForm_Initialize()
 
    Dim I As Integer
 
    For I = 1 To 3
 
        ReDim Preserve Btn(1 To I)
 
        Set Btn(I).GroupeBtn = Me.Controls.Add("Forms.commandbutton.1", "equipe" & I, True)
 
        With Btn(I).GroupeBtn
 
            .Caption = "Equipe " & I
            .Top = I * 30
            .Left = 30
 
        End With
 
    Next I
 
End Sub
 
Sub EvenementBouton(Bouton As MSForms.CommandButton)
 
    MsgBox Bouton.Caption
 
End Sub

Dans le module de classe :

Code:

1
2
3
4
5
6
7
8
 
Public WithEvents GroupeBtn As MSForms.CommandButton
 
Private Sub GroupeBtn_Click()
 
   UserForm1.EvenementBouton GroupeBtn
 
End Sub

Hervé.