CheckBox générés at-runtime dans un UserForm

Question

Je me permet de faire a nouveaux appel à ce forum car j'ai un nouveau problème. je crée un UserForm dans le qu'elle je génère des CheckBox en fonction du nombre de cellule non-vide dans un plage donner. Ce qui semble bien fonctionner grâce au code ci dessous : Private Sub UserForm_Initialize() Dim sel As Range Dim top As Long For Each sel In Feuil2.Range("A2:A20") If sel &lt;&gt; "" Then top = top + 30 Set Cbx = UserForm1.Controls.Add("Forms.CheckBox.1") 'ajoute une nouvelle checkbox et l'assigne a l'objet 'Cbx' Cbx.Caption = sel.Value Cbx.Name = sel.Value Cbx.Left = 10 Cbx.top = top End If Next sel End Sub pour être honnête j'ai trouver le code qui permet de génère une CheckBox sur internet Set Cbx = UserForm1.Controls.Add("Forms.CheckBox.1") donc peux être que je comprend pas ce que j'ai sous les yeux. Mais cela fonctionne j'ai bien mon bon nombre de CheckBox créé les une en dessous des autre comme je le souhaiter. Cependant au moment de récupérer l'état des ces CheckBox avec par exemple ceci : Private Sub CommandButton1_Click() If Me.Vincent = True Then MsgBox ("Ok") End Sub j'ai créé un bouton dans mon UserForm et je voulais juste voir si en cochant la CheckBox qui s'appel "Vincent" il m'ouvrait bien la MsgBox (ma Range("A2:A20") comporte une liste de Nom) Mais là patatras car j'ai une erreur de compilation au moment ou j'appuie sur le bouton qui me dit "Membre de méthode ou de données introuvable" comment puis-je récupérer l'état de mes CheckBox générés at-runtime...

Dan · Accepted Answer

Peut-être ceci --&gt; If Me.Controls("vincent") = True Then si ok pensez à Cordialement...

Abderrahmane BENALI · Accepted Answer

Bonjour Xtravince, Dan,

Concernant votre problème vous pouvez utiliser la collection Controls de l'UserForm pour accéder à vos CheckBox, un exemple de comment faire :

Private Sub CommandButton1_Click()

    Dim Cbx As Control
    For Each Cbx In Me.Controls
        If TypeName(Cbx) = "CheckBox" Then
            If Cbx.Name = "Vincent" And Cbx.Value = True Then
                MsgBox "Ok"
                Exit For
            End If
        End If
    Next Cbx

End Sub

Vous pouvez adapter ce code pour travailler avec tout vos CheckBox si nécessaire. J'espère que cela vous aidera !

Abderrahmane BENALI · Accepted Answer

Mmh je vois ou est le problème, la propriété OnAction n'est pas disponible pour les CheckBox dans les UserForm dans VBA, elle est seulement disponible pour les contrôles de type bouton dans les feuilles de calcul Excel. Ce qui fait que l'attribution Cbx.OnAction = "Cbx_Click" est incorrecte dans ce contexte.

Vous pouvez créer une classe qui aura un événement Click pour chaque CheckBox. Un exemple de comment faire :
1 Créez une nouvelle classe. Insérer > Classe. Nommez cette nouvelle classe, disons CheckBoxEvents.
2 Dans cette nouvelle classe (CheckBoxEvents), ajoutez le code suivant

Public WithEvents Cbx As MSForms.CheckBox

Private Sub Cbx_Click()
    If Cbx.Value = True Then
        MsgBox Cbx.Name & " est coché."
    Else
        MsgBox Cbx.Name & " est décoché."
    End If
End Sub

3 Dans votre UserForm, ajoutez le code suivant en haut du module :

Dim CheckBoxes() As New CheckBoxEvents

4 Ensuite, modifiez votre procédure UserForm_Initialize :

Private Sub UserForm_Initialize()

    Dim sel As Range
    Dim top As Long
    Dim compteur As Long
    Dim i As Long

    top = 10
    i = 0

    For Each sel In Feuil2.Range("A2:A20")

        If sel <> "" Then

            ' Redimensionnez le tableau pour contenir un nouvel élément.
            ReDim Preserve CheckBoxes(i)

            Set Cbx = Frame2.Controls.Add("Forms.CheckBox.1")

            Cbx.Caption = sel.Value
            Cbx.Name = "Cocher" & compteur

            Cbx.Left = 10
            Cbx.Top = top
            Cbx.Font.Size = 10

            ' Associez la nouvelle CheckBox à l'objet CheckBoxEvents.
            Set CheckBoxes(i).Cbx = Cbx

            ' ... (ici, ajoutez le reste de votre code pour créer les autres contrôles et mettre à jour les variables)

            i = i + 1
        End If

    Next sel

End Sub

Maintenant, chaque fois que vous cliquez sur une CheckBox, l'événement Click de la classe CheckBoxEvents sera déclenché et le message approprié sera affiché. J'espère que cela vous aidera !

Abderrahmane BENALI · Answer

Bonjour,

Vous pouvez ajouter l'événement Click à chaque CheckBox.
vous devez créer une procédure qui sera appelée lorsque vous cliquez sur une CheckBox. Vous pouvez l'ajouter dans le même module où se trouve votre UserForm, un exemple de code :

Public Sub Cbx_Click()

    Dim Cbx As MSForms.CheckBox
    Set Cbx = UserForm1.Controls(Application.Caller)

    ' Ici, vous pouvez ajouter le code que vous voulez exécuter
    ' lorsque vous cliquez sur la CheckBox.
    ' Par exemple :
    If Cbx.Value = True Then
        MsgBox Cbx.Name & " est coché."
    Else
        MsgBox Cbx.Name & " est décoché."
    End If

End Sub

Lorsque vous créez vos CheckBox, vous pouvez attribuer cette procédure à l'événement Click de chaque CheckBox. Voici comment vous pouvez le faire

Private Sub UserForm_Initialize()

    Dim sel As Range
    Dim top As Long

    For Each sel In Feuil2.Range("A2:A20")

        If sel <> "" Then

            top = top + 30

            Set Cbx = UserForm1.Controls.Add("Forms.CheckBox.1")

            Cbx.Caption = sel.Value
            Cbx.Name = sel.Value

            Cbx.Left = 10
            Cbx.Top = top

            ' Attribuez la procédure Cbx_Click à l'événement Click de la CheckBox.
            Cbx.OnAction = "Cbx_Click"

        End If

    Next sel

End Sub

A chaque fois que vous cliquez sur une CheckBox, la procédure Cbx_Click sera appelée, et le nom de la CheckBox qui a déclenché l'événement sera passé à cette procédure. J'espere que cela vous aidera