Discussion :

[Liloo14]

Bonjour à tous,
Je sens que je vais me faire huer mais tant pis.
Dans une userform, j'ai 720 Labels nommés de 7 à 246.
Pour les 240 premiers (de 7 à 246), lorsque je clique sur l'un d'entre eux, j'aimerais qu'il se passe l'action suivant :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Label7_Click()
If Sheets("Feuil1").Range("A10") = "" Then
Sheets("Feuil1").Range("A10") = Label7
Label7 = ""
Else
Label7 = Sheets("Feuil1").Range("A10")
Sheets("Feuil1").Range("A10") = ""
End If
End Sub

Je dois donc écrire ce code pour chacun des Labels de Label7 à Label246.
Ma question est : existe-t-il un moyen pour appliquer l'événement Click à chacun de ces Labels sans répéter ce code 240 fois (une fois pour chaque Label) ?
Un truc du style

Code :

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

Private Sub AllLabel_Click()

Est-ce possible déjà, je n'en sais rien puis, si oui, vers quoi me conseillez-vous de m'orienter ?

Merci par avance.

Laurent

[Marc-L]

Bonjour.

• Soit affecter la même procédure à tous les labels concernés puis y récupérer le label appelant via Application.Caller …

• Soit créer une classe personnalisée pour ces labels, voir du côté des tutoriels et autres FAQ, comme par exemple
  Création et utilisation de classes personnalisées …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[EngueEngue]

1- Tu crées ton USF Comme d'hab
2-Tu crées un module de classe ou tu mets:

Code :

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

1
2
3
4
5
Public WithEvents LabelGroup As MSForms.Label
 
Private Sub labelgroup_Click()
    MsgBox "Hello from " & labelgroup.Name & "Niksamere"
End Sub

3-Tu crees un module normal ou tu mets :

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 Explicit
Dim labels() As New Class1
 
Sub usfshow()
    Dim labelcount As Integer
    Dim ctl As Control
    labelcount = 0
    For Each ctl In UserForm1.Controls
        If TypeName(ctl) = "MSForms.Label" Then
                labelcount = labelcount + 1
                ReDim Preserve labels(1 To labelcount)
               Set labels(labelcount).labelgroup = ctl
            End If
        End If
    Next ctl
    UserForm1.Show
End Sub

4-tu executes usfshow
5- Derien

Edit: Marc comme d'hab plus rapide..

[Liloo14]

Tout d'abord merci beaucoup à vous deux pour vos réponses respectives.
EngueEngue, dans le module "normal" j'ai du rajouter un E à Class1 sinon j'avais une erreur "Type défini par l'utilisateur non défini" (ai-je eu tort? ).
Ensuite, lorsque je lance usfshow cela lance bien la userform qui contient les labels mais lorsque je clique sur un label la MsgBox ne se lance pas et j'ai une erreur avec la derniere ligne du label normal surligné en jaune (UserForm1.Show), ce qui me parrait normal puisque la userform est déjà ouverte.

Tu as une idée ?

[EngueEngue]

Tu as affecté la macro usfshow à tes labels ?...

[Liloo14]

oui, de la manière suivante :

Code :

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

1
2
3
Private Sub Label7_Click()
usfshow
End Sub

je ne l'ai fais que pour un seul label pour essayer

[EngueEngue]

Est-ce que l'un des numéros que je t'ai affiché te le demandait ?

Enleve ça et lance usfshow avec le bouton play