utiliser les checkbox crées par macro

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:

---

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.

Bonjour,

Il te faut parcourir les contrôles à la recherche des CheckBox et savoir leur valeur :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub Cocher()   Dim Ctrl As Object   For Each Ctrl In Me.Controls   'si c'est une case à cocher et qu'elle est true If TypeName(Ctrl) = "CheckBox" And Ctrl.Value = True Then   MsgBox Ctrl.Name   End If   Next   End Sub

---

Hervé.

merci mais ça cole pas
j'ai essayé mais ça ne me renvoie que les controls créés à la main
car c'est bien ça le sens de ma question.

les controls créés par vba doivent avoir une propriété supplémentaire que je ne connais pas,

Re,

Ce code doit te renvoyer les noms des CheckBox cocher qu'elles soient manuelles ou dynamiques. Fait un test en ajoutant une form sur laquelle tu pose un bouton de commande et ensuite, tu colle ce code dans le module de la form et tu teste :

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 37 38 39 40 41

Private Sub UserForm_Initialize()   Dim NewCheckBox_CEM As MSForms.CheckBox Dim I As Integer   'crée 10 cases à cocher For I = 1 To 10   Set NewCheckBox_CEM = Me.Controls.Add("Forms.checkbox.1", "Case" & I, True)   With NewCheckBox_CEM   .Name = "CEM" & I .Caption = .Name .Top = 20 * I .Width = 100 .Height = 20   End With   Next I   End Sub   Private Sub CommandButton1_Click()   Dim Ctrl As Object   For Each Ctrl In Me.Controls   'si c'est une case à cocher et qu'elle est true If TypeName(Ctrl) = "CheckBox" And Ctrl.Value = True Then   MsgBox Ctrl.Name   End If   Next   End Sub

---

Hervé.

dommage

j'ai porté ton code dans un fichier neuf,
j'ai crée un userform

j' ai lancé ta macro

et je n'ai eu aucun résultat

je suis ( boulot oblige) encore en office 2000.

je crois vraiment qu'il ya qqch en plus à faire pour rendre actif les CB créés.
mais j'arrive pas à savoir ce que c'est.

Re,

Avant de poster le code tu pense bien que je l'ai testé ! Je ne vois pas ce qui cloche, je suis au boulot sur Excel 2003 donc quasi identique à 2000.
As-tu coché au moins une des cases ?

Hervé.

ok merci ton code marche si on rajoute

Me.show 0 au début de ton prog appelé par le bouton. :ccool:

je vais essayé de l'utiliser pour mon projet :roll:

merci encore Theze & à plus
Pat