Option Explicit
' Mise en place des événements d'une feuille de calcul classique
Public WithEvents oneCheckBox As MSForms.[COLOR="Red"][B]Control[/B][/COLOR]
' Quand on sélectionne un truc
Private Sub OneCheckBox_Click()
[COLOR="red"][B]If Not TypeName(oneCheckBox) = "CheckBox" Then Exit Sub[/B][/COLOR]
' Par défaut
frmParam.cmdSuppr.Enabled = False
' Recherche d'une checkbox cochée
Dim oneCheckBox As Control
For Each oneCheckBox In frmParam.frmList.Controls
If TypeName(oneCheckBox) = "CheckBox" Then
If oneCheckBox.Value Then
frmParam.cmdSuppr.Enabled = True
Exit For
End If
End If
Next oneCheckBox
End Sub