Afficher la valeur d'un label au click vers un autre label

[maval]

Bonjour

J'ai sur un userform 21 labels nommer "Action, Aventure, Commentaire ect..." J'aimerais que lorsque je click sur un des 21 label il s'affiche dans le label nommer "Genre" la valeur cliquer

Je vous remercie d'avance

 

[MJ13]

Re : Afficher la valeur d'un label au click vers un autre label

Bonjour Max, Papou

Tu peux corriger ainsi.

Option Explicit
Public WithEvents LB As MSForms.Label

Private Sub LB_Click()
    Dim r As Range
    Set r = Feuil2.Rows(1).Find(LB, , xlValues, xlWhole)
    UserForm1.Label23.Caption = r.Value
    Set r = r(2).Resize(Application.CountA(r.EntireColumn) - 1)
    With LB.Parent.Parent
        .ListBox1.List = r.Value
        .ListBox1.Visible = True
        .Frame1.Visible = False
        UserForm1.Label22.Caption = "Nombre de Film(s) : " & UserForm1.ListBox1.ListCount & "  dans cette Catégorie.....,"
            End With
  
   
End Sub

 

[Papou-net]

Re : Afficher la valeur d'un label au click vers un autre label

Bonjour maval,

Il suffit d'ajouter une ligne dans le module de classe:

Private Sub LB_Click()
    Dim r As Range
    Set r = Feuil2.Rows(1).Find(LB, , xlValues, xlWhole)
    Set r = r(2).Resize(Application.CountA(r.EntireColumn) - 1)
    With LB.Parent.Parent
        .ListBox1.List = r.Value
        .ListBox1.Visible = True
        .Frame1.Visible = False
        UserForm1.Label22.Caption = "Nombre de Film(s) : " & UserForm1.ListBox1.ListCount & "  dans cette Catégorie.....,"
    End With
    UserForm1.Label23 = LB '<--- ligne ajoutée
End Sub

Bon WE

Cordialement.

Edit: hello Michel.

 

[maval]

Re : Afficher la valeur d'un label au click vers un autre label

Re, Papou, Michel

Je vous remercie et vous souhaite un bon WE