Boucle pour ajouter des checkbox a une frame
Résolu
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.
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
