ChekBox

[Jeanvoil]

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..

 

[Creepy]

Hello all,

Essaie ca :

Private Sub cbkCompTurb_Click() 

Dim i As Integer
Dim Var As Variant

For i = 1 To 8 Step 1
userform1.controls('cbk_' & i).value=true ' Si c'est sur une userform
'mets feuil1 si les controles se trouvent sur la feuil1 par exemple
Next i

End Sub

++

Creepy