[VBA] checkbox et groupe de controle

' Le module de classe
'--------------------------------------------------------------------------------
' Écrit par Lupin
'--------------------------------------------------------------------------------
' Oblige la déclarations de toutes les variables
Option Explicit

' Déclaration d'un évènement dynamique sur la collection
Public WithEvents ElementSelectLBL As MSForms.Label
'

Private Sub ElementSelectLBL_Click()             ' -> Méthode
    Call uf_Aide_En_Ligne.AideEnLigneInfo(Val(ElementSelectLBL.Tag))
End Sub
'
'*********************************************************************************
' L'initialisation du formulaire (userform)
Private Sub UserForm_Initialize()
    
    Dim Controle As Control
    Dim i, j, k, l, m, Boucle As Integer
    Dim Message, Indice As String
    Dim Ptr As Integer

    ' Remarque : tous les noms des label du formulaire
    ' ("uf_Liste_Cles") commencent par un "lbl_"

    m = 0
    For Each Controle In uf_Liste_Cles.Controls
        'detecte si les premières lettres du nom du contrôle sont "lbl_"
        If Left(Controle.Name, 4) = "lbl_" Then
            If (Val(Mid(Controle.Name, 5, 2)) <> 0) Then
                ReDim Preserve objLabel(0 To m)
                Set objLabel(m).ElementSelectLBL = Controle
                'Capture de ses propriétés
                objLabel(m).Tag = Controle.Tag
                objLabel(m).Indice = m
                objLabel(m).Name = Controle.Name
                objLabel(m).Value = Me.Controls.Item("lbl_" & Mid(Controle.Name, 5, 2)).Value
                objLabel(m).Caption = Controle.Caption
                objLabel(m).Association = Me.Controls.Item("lbl_" & Mid(Controle.Name, 5, 2)).Caption
                m = m + 1
            End If
        End If
    Next Controle
    
End Sub
'