Re : Valider cochage de plusieurs dizaines de checkbox
Bonjour, en supposant que TOUS tes CheckBox se suivent numériquement parlant (c'est à dire de 1 à 4 comme dans mon exemple), et pour peu qu'ils aient un Caption, tu peux mettre ceci :
Private Sub CommandButton1_Click()
For i = 1 To 4
If Controls("CheckBox" & i).Value = False Then
MsgBox "Au moins un contrôle non validé " & Controls("CheckBox" & i).Caption: Exit Sub
End If
Next i
MsgBox "merci"
Unload Me
End Sub
|