Boucle pour ajouter des checkbox a une frame

Résolu
ngio1301 Messages postés 46 Date d'inscription   Statut Membre Dernière intervention   -  
ngio1301 Messages postés 46 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
j'ai un petit soucis, je n'arrive pas à créer toutes les checkbox avec le nom des onglets. une seul checkbox est créée c'est la dernière. merci de votre aide.

Private Sub BtnValid_Click()
Dim i As Integer
Dim chk As Control


For i = 1 To Sheets.Count
Set chk = FrCheck.Controls.Add("Forms.CheckBox.1", "Checkbox2", True)
chk.Caption = Sheets(i).Name

Next
End Sub

2 réponses

cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
1
ngio1301 Messages postés 46 Date d'inscription   Statut Membre Dernière intervention  
 
Salut Le Pivert et merci pour l'aide. Ça fonctionne nickel!!
0