Discussion :

[MLvba]

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 :

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
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

[ARTURO83]

Bonjour,

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

Code :

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

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

[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.

[MLvba]

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

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
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