bonjour,

j' ai un pb assez difficile car je n'arrive pas à trouver de solutions dans les forums

je crée dans un userforms des checkbox de façon dynamique, qui dépendent de l'existence ou non de fichiers dans un répertoire.

l'utilisateur doit cocher les cases correspondantes pour lister les fichiers qu'il veut integrer.

comme j' ai créer les CB par vba, je n'arrive pas à les voir en temps d'objets dans le userform, donc je ne peux pas récupérer la liste des cases cochées.

ci joint le code pour créer mes CB

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
 
' construire le formulaire Cem
If Configuration.CheckBox_Cem = True Then
    CEM.Show 0
   max_ecarte = 100
  CEM.StartUpPosition = 3
  CEM.Left = 400
  CEM.Top = max_clim * 12 + 140
 
    max_CEM = UBound(list_cem)
    CEM.Height = max_CEM * 18 + 50
 
    For i = 1 To max_CEM
 
    Set NewCheckBox_CEM = CEM.Controls.Add("Forms.checkbox.1", list_cem(i), True)
    ecarte = Len(list_cem(i)) * 5
 
   If ecarte > max_ecarte Then max_ecarte = ecarte
   CEM.Width = max_ecarte + 10
 
     With NewCheckBox_CEM
            .Name = "CEM" & i
            .Caption = list_cem(i)
            .Top = 12 * i
            .Width = ecarte
            .Height = 12
            .Font.Size = 7
            .Font.Name = "Tahoma"
            '.BackColor = &HFF00&
            .Visible = True
        End With
 
    Next i
 
    ' bouton de validation
 
        With CEM.Valid_CEM
            .Top = max_CEM * 12 + 20
            .Left = 20
        End With
 
 
     ' bouton d'abandon
 
        With CEM.Abandon_CEM
            .Top = max_CEM * 12 + 20
            .Left = 120
        End With
 
End If
le formulaire CEM, avec les boutons validation et abandon a été créé "à la main", avec l'éditeur de userforms, donc ceux là je peux les gérer,

mais je ne vois pas les NewCheckBox_CEM

merci d'avance à qui peut m'aider.