J Jeanvoil Guest 30 Juin 2005 #1 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..
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..
C Creepy XLDnaute Accro 30 Juin 2005 #2 Hello all, Essaie ca : Code: 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 Vote positif 0 Vote négatif
Hello all, Essaie ca : Code: 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