Discussion :

[RemyA56]

Bonjour,

Pour dire les choses simplement, je souhaite attribuer des actions à des commandes créées dynamiquement.

En détail, ma macro (qui existe déjà et qui fonctionne) va importer dans plusieurs labels différentes informations depuis un tableau excel et les regrouper en lignes. Chaque ligne comprend les mêmes informations (nom, prénom...). Le nombre de ligne final est variable.
Je souhaite qu'en ajoutant un bouton de commande en fin de ligne ou en cliquant sur le label du "nom" par exemple, un autre userform s'ouvre et que le "nom" y soit exporter dans un nouveau label.

J'ai trouvé plein de choses sur différents forums, mais je n'arrive pas à tout comprendre et encore mois à adapter. J'ai vu parler de classes, de modules de classe, de collections... je ne sais pas trop ce qui est à prendre ou à laisser dans tout ça.

Merci par avance pour votre aide.

[riaolle]

Bonjour,
Es-tu sûr qu'un Label est ce qu'il te faut?
Avec une ListBox, tu peux avoir une tableau d'informations et tu as de base une fonctionnalité pour cliquer sur les lignes.
Après, s'il faut vraiment que tu passes par les label, il faut que tu t'intéresses aux modules de classes. Je ne connais pas de tuto vers lequel te diriger, mais fais qqs recherches sur internet et tu trouveras pas mal d'informations
Globalement, la notion de classe est une notion importante dans tout langage de programmation orienté objet.

[RemyA56]

C'est vrai, je n'avais pas pensé aux listbox pour ne pas avoir à définir une action click...

Donc à la place d'avoir des lignes de label remplies par mes données, j'aurais des lignes de listbox remplies aussi par mes données?
Cela ne change pas que les listbox seront créées dynamiquement et que je dois trouver une solution pour que l'évènement de chaque listbox lui soit personnel.

Ou trouver un truc du genre (écrit en texte, pas en code, je ne maîtrise pas assez pour lacher ça comme ça sans y passer 1h dessus...)
Pour i = 1 à j (J étant le nombre de lignes)
Pour chaque contrôle de type listbox dans mon formulaire Controls("listbox1" & i)
Lorsque je clique dessus ouvrir le formulaire X et copier la valeur de la "listbox2" & i (valeur d'une listbox en particulier sur la même ligne que celle sur laquelle j'ai cliqué puisque je veux qu'en cliquant sur n'importe quelle listbox de la ligne cela me fasse la même action).

Mais où je met ce code...

[Invité]

Bonjour,
je ne suis pas sur que riaolle pensait à remplacer tes label par autant de listebox, mais sens doute une listebox qui répertorie tes action!

ainsi au lieu de cliker sur un l'abel, tu sélectionnes une action dans ta listebox et ensuite tu exécute l'action qui va bien en fonction de l'item sélectionné!

[RemyA56]

Si je comprend bien, on aurait dans la listbox une ligne d'action pour chaque ligne du tableau...? Si c'est cela, ça peut faire beaucoup de lignes... Ou alors je suis perdu...

[Invité]

dans tes labels tu attribuais des actions pas une litanie?

[RemyA56]

Peut-être finalement la solution la plus simple serait de créer une frame comprenant autant de boutons d'option que de lignes et un bouton déjà créé auparavant avec une macro déjà créée aussi qui lancerai une action en fonction du bouton d'option coché (en nommant mes boutons d'action ("OptionButton" & i), je pourrais faire référence au label de la même ligne (ligne i))...

[Invité]

pourquoi tu ne ferais pas ça avec des commandbuton? autant de commandbuton que d'action! à moins que tu préfère des picturebox avec autant de picturebox que d'action, ou alors ...

non une listebox("Action 1";"Action 2"; "Action etc...")

Code :

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

1
2
3
4
5
Select case ListeBox
Case "Action 1"
Case "Action 2"
case "Action etc..."
End Select

Ça revient a faire la même chose que tes labels mais quand tu click sur un élément de ta liste tu exécute l'action associé m!

[RemyA56]

C'est ce que je voulais faire au départ, mais créer autant de command button que de ligne, ça veut dire le faire dynamiquement et je ne sais pas leur affecter un code ensuite...

Le code serait d'ouvrir tel ou tel formulaire en fonction de la valeur du 4ème (par exemple) label de la ligne (une dizaine de formulaires différents et d'exporter le contenu du 1er label de la même ligne dans un label prédéfini du nouveau formulaire (même nom de label pour tous les formulaires).

En fait mon problème est de programmer une action pour un objet dynamique.

[Invité]

Lis ce que je te dis!

[RemyA56]

Désolé... j'ai un peu du mal à comprendre. En fait, je crois que je n'ai jamais vraiment utilisé des listbox et même en lisant ce que je trouve sur le net, je vois pas vraiment comment utiliser cela.

[Invité]

Que ce soit des chekbox des optionbuton il dispose tous d'un évènement click!

Listebox régalement, sauf qu'il n'y en qu'un!

Donc avec le select case sur l'événement click tu peux déjà implémenter toutes les actions possible!

Ta listebox est définie en natif sur ton formulaire seule les action, que tu connais forcement sont pas n fonction du contenu de ton onglet par exemple.

[pijaku]

Bonjour,
Au final, combien as tu de "colonnes" avec tes labels?
Parce que tu n'as qu'une action à faire : ouvrir un userform contenant, dans ses contrôles, les données de ta "ligne" de labels (ou plus simple de listbox comme tout le monde te le conseille)!

[Pierre Fauconnier]

Salut.

Deux tutos pour les userforms et les contrôles de userforms:

• http://silkyroad.developpez.com/VBA/UserForm/;
• http://silkyroad.developpez.com/VBA/ControlesUserForm/

[patricktoulon]

Bonjour

Pour dire les choses simplement, je souhaite attribuer des actions à des commandes créées dynamiquement

non seulement c'est pas simple mais c'est une erreur de conception

c'est quoi tes commandes créés dynamiquement??? hein
je pense que tu dois parler plutôt de control dynamiques sa me parlerais mieux déjà
parti de la
en effet une listbox ferait tres bien l'affaire on pourrait aussi parler des argument que l'on peut injecter dans une fonction

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub ListBox1_Click()
select case listbox1.listindex
case 1: mafonction "toto"
case 2 mafonction"titi"
case 3 mafonction  "rififi"
end select
End Sub
 
function mafonction(argument)
msgbox argument
end function

[RemyA56]

A pikaju: J'ai 7 colonnes avec des labels, mais seulement 2 on t des informations que je souhaite réutiliser, les autres c'est pour le visuel.

A tous: Je pense que le principale problème et que je ne sais pas du tout comment me servir des listbox (et je ne comprend pas). Je vais aller voir quelques tutos la dessus, mettre en application de manière simple pour mieux comprendre et je reviens.
J'ai réussi à faire ce que je voulais avec des optionbutton et une commande valider prédéfinie mais ça ne me plait pas trop et si j'arrivait à faire cela avec les listbox comme vous me conseillez ça ne sera que mieux et je saurais enfin les utiliser.

[Invité]

Bonjour,
Si tu mettais le code que tu implémenté,on pourrait d'aiguiller sur une listebox!

[RemyA56]

J'ai un peu allégé le code en retirant de la mise en forme notamment, mais l'essentiel est là.
Le ("lblTypeEPI" & i) peut prendre 6 valeurs différentes.

J'essai de faire en sorte qu'avec une action, cela m'ouvre un des 6 formulaires relatifs aux 6 valeurs du ("lblTypeEPI" & i) et que dans le label "lblNom" de ces formulaires la valeur du label ("lblNom" & i) du premier formulaire y soit reportée.

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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
Private Sub UserForm_Initialize()
 
Dim LinePret As Integer, i As Integer
LineRetard = Sheets("Retards").Range("A" & Rows.Count).End(xlUp).Row
 
Call RetardsControles  ‘Appel à une macro qui me importe des lignes de plusieurs tableaux dans un seul selon certains critères
 
If LineRetard <> 0 Then
 
    For i = 2 To LineRetard
    Set Obj = Me.Controls.Add("forms.label.1")
    With Obj
    .Name = "Ligne" & i
    .Object.Caption = i
    .Left = 1
    .Top = 25 * i
    .Width = 20
    .Height = 20
    .Visible = False
    End With
    Next i
 
    For i = 2 To LineRetard
    Set Obj = Me.Controls.Add("forms.label.1")
    With Obj
    .Name = "lblTypeEPI" & i
    .Object.Caption = Sheets("Retards").Range("A" & i).Value
    .Left = 20
    .Top = 25 * i
    .Width = 90
    .Height = 20
    End With
    Next i
 
    For i = 2 To LineRetard
    Set Obj = Me.Controls.Add("forms.label.1")
    With Obj
    .Name = "lblNEPI" & i
    .Object.Caption = Sheets("Retards").Range("B" & i).Value
    .Left = Me.Controls("lblTypeEPI" & i).Left + Me.Controls("lblTypeEPI" & i).Width - 1
    .Top = 25 * i
    .Width = 110
    .Height = 20
    End With
    Next i
 
    For i = 2 To LineRetard
    Set Obj = Me.Controls.Add("forms.label.1")
    With Obj
    .Name = "lblNom" & i
    .Object.Caption = Sheets("Retards").Range("D" & i).Value
    .Left = Me.Controls("lblNEPI" & i).Left + Me.Controls("lblNEPI" & i).Width - 1
    .Top = 25 * i
    .Width = 150
    .Height = 20
    End With
    Next i
 
    For i = 2 To LineRetard
    Set Obj = Me.Controls.Add("forms.label.1")
    With Obj
    .Name = "lblPrenom" & i
    .Object.Caption = Sheets("Retards").Range("E" & i).Value
    .Left = Me.Controls("lblNom" & i).Left + Me.Controls("lblNom" & i).Width - 1
    .Top = 25 * i
    .Width = 150
    .Height = 20
    End With
    Next i
 
    For i = 2 To LineRetard
    Set Obj = Me.Controls.Add("forms.label.1")
    With Obj
    .Name = "lblDateCtrl" & i
    .Object.Caption = Sheets("Retards").Range("C" & i).Value
    .Left = Me.Controls("lblPrenom" & i).Left + Me.Controls("lblPrenom" & i).Width - 1
    .Top = 25 * i
    .Width = 80
    .Height = 20
    End With
    Next i
 
Else
    MsgBox "Aucune ligne en cours"
End If
End Sub

[Invité]

Bonjour,

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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
Private Sub ListBox1_Click()
Select Case ListBox1.List(ListBox1.ListIndex, 1)
    Case 1 To 10: MsgBox ListBox1.List(ListBox1.ListIndex, 0)
    Case 11 To 20: MsgBox ListBox1.List(ListBox1.ListIndex, 0)
    Case Else: MsgBox ListBox1.List(ListBox1.ListIndex, 0)
End Select
End Sub
Private Sub UserForm_Initialize()
Dim TXT As String, i As Integer
Me.ListBox1.Clear
ListBox1.ColumnCount = 3
With Sheets("Retards")
    For i = 0 To .Range("A" & Rows.Count).End(xlUp).Row - 1
        If Val(Trim("" & .Range("A2").Offset(i))) <> 0 Then
             Me.ListBox1.AddItem i + 2
            Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = .Range("A2").Offset(i).Value
             Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = .Range("A2").Offset(i, 1).Value
        End If
    Next
End With
'Call RetardsControles  ‘Appel à une macro qui me importe des lignes de plusieurs tableaux dans un seul selon certains critères
End Sub
'If LineRetard <> 0 Then
' 
'    For i = 2 To LineRetard
'    Set Obj = Me.Controls.Add("forms.label.1")
'    With Obj
'    .Name = "Ligne" & i
'    .Object.Caption = i
'    .Left = 1
'    .Top = 25 * i
'    .Width = 20
'    .Height = 20
'    .Visible = False
'    End With
'    Next i
' 
'    For i = 2 To LineRetard
'    Set Obj = Me.Controls.Add("forms.label.1")
'    With Obj
'    .Name = "lblTypeEPI" & i
'    .Object.Caption = Sheets("Retards").Range("A" & i).Value
'    .Left = 20
'    .Top = 25 * i
'    .Width = 90
'    .Height = 20
'    End With
'    Next i
' 
'    For i = 2 To LineRetard
'    Set Obj = Me.Controls.Add("forms.label.1")
'    With Obj
'    .Name = "lblNEPI" & i
'    .Object.Caption = Sheets("Retards").Range("B" & i).Value
'    .Left = Me.Controls("lblTypeEPI" & i).Left + Me.Controls("lblTypeEPI" & i).Width - 1
'    .Top = 25 * i
'    .Width = 110
'    .Height = 20
'    End With
'    Next i
' 
'    For i = 2 To LineRetard
'    Set Obj = Me.Controls.Add("forms.label.1")
'    With Obj
'    .Name = "lblNom" & i
'    .Object.Caption = Sheets("Retards").Range("D" & i).Value
'    .Left = Me.Controls("lblNEPI" & i).Left + Me.Controls("lblNEPI" & i).Width - 1
'    .Top = 25 * i
'    .Width = 150
'    .Height = 20
'    End With
'    Next i
' 
'    For i = 2 To LineRetard
'    Set Obj = Me.Controls.Add("forms.label.1")
'    With Obj
'    .Name = "lblPrenom" & i
'    .Object.Caption = Sheets("Retards").Range("E" & i).Value
'    .Left = Me.Controls("lblNom" & i).Left + Me.Controls("lblNom" & i).Width - 1
'    .Top = 25 * i
'    .Width = 150
'    .Height = 20
'    End With
'    Next i
' 
'    For i = 2 To LineRetard
'    Set Obj = Me.Controls.Add("forms.label.1")
'    With Obj
'    .Name = "lblDateCtrl" & i
'    .Object.Caption = Sheets("Retards").Range("C" & i).Value
'    .Left = Me.Controls("lblPrenom" & i).Left + Me.Controls("lblPrenom" & i).Width - 1
'    .Top = 25 * i
'    .Width = 80
'    .Height = 20
'    End With
'    Next i
' 
'Else
'    MsgBox "Aucune ligne en cours"
'End If
'End Sub