Créer une boucle sur un nbr n de checkbox, n étant variable

Version imprimable

Bonjour,
Je cherche à créer un certain nombre de checkboxs en fonction de la taille (n) variable dépendant d'un critère.

Pour exemple :
Mon critère c'est "Homme" avec pour nombre de checkbox corréspondant aux nombres de ses caractéritiques (sexe, taille, age, poids). Nbre de checkbox = 4
Ensuite si je veux changer de critère je choisis "Région" avec pour nombre de checkboxs ses caratéristiques (nbre d'habitant, type de climat) . Nbre de checkbox = 2
Et donc le critère "Homme" et "Region" ne vont pas avoir le même nombre de checkboxs lorsque je vais ouvrir mon userform. 4<>2
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Sub Add_Dynamic_Checkbox() Dim DernLigne As Integer Dim DerColonne As Integer Dim a As Range Dim i As Integer Dim critere As Integer Dim Cbx() As OLEObjects ' trouve l'adresse et renvoie le nbr max de colonne du critère désiré DernLigne = Worksheets("Listes").Range("L4").End(xlDown).Row Set a = Worksheets("Listes").Range("L4:L" & DernLigne).Find(Worksheets("Saisie").Range("E12"), lookat:=xlWhole) critere= a.Row DerColonne = Worksheets("Listes").Range("L" & critere).End(xlToRight).Column ' création des checkboxs For i = 13 To DerColonne Set Cbx(i) = UserSegment.Controls.Add("Forms.CheckBox.1") Cbx(i).Caption = Worksheets("Listes").Cells(critere, i) Next i End Sub
Je n'arrive pas à créer un tableau de ce style : Cbx(i)

Avez vous une piste ou une solution à mon problème.
Pour infos je me suis renseigné au près de ce site : https://analysistabs.com/vba-code/ex...form/checkbox/
Merci

23/06/2019, 06h51
ARTURO83
Bonjour,

Construisez toutes vos checkbox et masquez-les ou affichez-les selon le critère choisi, exemple:
Code:

1 2 CheckBox1.Visible = False CheckBox1.Visible = true
Vous pouvez aussi créer 2 formulaires, 1 pour "Homme" et l'autre pour "Région", que vous ouvrirez là aussi selon le critère choisi.

Cdlt
24/06/2019, 09h09
MLvba

Bonjour,

Je me suis d'abord orienté vers cette solution qui fonctionne parfaitement mais si je dois rajouter des critères, le fait de rajouter une ligne dans mon Excel sera beaucoup plus rapide que de modifier tout mon code.

J'ai trouvé la solution à ma réponse, j'y étais presque. Je vous donne la réponse.

Code:

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
Sub Add_Dynamic_Checkbox()
 
Dim DernLigne As Integer
Dim DerColonne As Integer
Dim a As Range
Dim i As Integer
Dim critere As Integer
Dim Cbx As Control
' trouve l'adresse et renvoie le numéro de colonne du critere désiré
DernLigne = Worksheets("Listes").Range("L4").End(xlDown).Row
Set a = Worksheets("Listes").Range("L4:L" & DernLigne).Find(Worksheets("Saisie").Range("E12"), lookat:=xlWhole)
critere= a.Row
DerColonne = Worksheets("Listes").Range("L" & critere).End(xlToRight).Column
 
For i = 13 To DerColonne
        Set Cbx = UserSegment.Controls.Add("Forms.CheckBox.1", "CheckBox_" & i - 12)
        Cbx.Caption = Worksheets("Listes").Cells(critere, i).Value
'mise en forme        
        If i - 12 < 6 Then
            Cbx.Left = 5 + ((i - 13) * 90)
            Cbx.Top = 5 + 30
            Cbx.Height = 40
            Cbx.Width = 90
        ElseIf i - 12 < 12 Then
            Cbx.Top = 5 + 60
            Cbx.Left = 5 + ((i - 18) * 90)
            Cbx.Height = 40
            Cbx.Width = 90
        Else
            Cbx.Top = 5 + 90
            Cbx.Left = 5 + ((i - 24) * 90)
            Cbx.Height = 40
            Cbx.Width = 90
        End If
Next i
End Sub