Boucle pour ajouter des checkbox a une frame

Résolu/Fermé

ngio1301 Messages postés 49 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 49 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

Réponse 1 / 2

cs_Le Pivert Messages postés 7885 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 28 mars 2023 725
3 mars 2020 à 18:02

Bonjour,

cela devrait t'aider:

https://silkyroad.developpez.com/VBA/VisualBasicEditor/#LV-A

Réponse 2 / 2

ngio1301 Messages postés 49 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!!

Newsletters