Boucle pour ajouter des checkbox a une frame

Résolu/Fermé
ngio1301 Messages postés 46 Date d'inscription jeudi 5 décembre 2019 Statut Membre Dernière intervention 14 mai 2022 - Modifié le 3 mars 2020 à 17:36
ngio1301 Messages postés 46 Date d'inscription jeudi 5 décembre 2019 Statut Membre Dernière intervention 14 mai 2022 - 3 mars 2020 à 18:17
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
A voir également:

2 réponses

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
3 mars 2020 à 18:02
1
ngio1301 Messages postés 46 Date d'inscription jeudi 5 décembre 2019 Statut Membre Dernière intervention 14 mai 2022
3 mars 2020 à 18:17
Salut Le Pivert et merci pour l'aide. Ça fonctionne nickel!!
0