J
Jeanvoil
Guest
Je souhaite cocher toute les cases lorsque l'utilisateur en coche une en particulier: 'cbkCompTurb_Click'
Voici mon code: (qui ne fonctionne pas)
Private Sub cbkCompTurb_Click()
Dim i As Integer
Dim Var As Variant
For i = 1 To 8 Step 1
Var = 'cbk_' & i
Var.Value = True
Next i
End Sub
'Pour toutes les cases caption = cbk_1, cbk_2, etc..
Voici mon code: (qui ne fonctionne pas)
Private Sub cbkCompTurb_Click()
Dim i As Integer
Dim Var As Variant
For i = 1 To 8 Step 1
Var = 'cbk_' & i
Var.Value = True
Next i
End Sub
'Pour toutes les cases caption = cbk_1, cbk_2, etc..