Dim Ctrl As Control Dim numero As Integer 'Boucle sur la collection de contrôles For Each Ctrl In Me.Controls If TypeOf Ctrl Is MSForms.CheckBox Then If Ctrl.Object.Value = True Then numero = Replace(Ctrl.Name, "CheckBox", "") 'numero checkBox seul Select Case numero Case Is < 2 MsgBox "check 1" Case Is < 3 MsgBox "check 2" Case Is < 4 MsgBox "check 3" End Select End If End If Next
Select Case numero Case Is = 1 MsgBox "check 1" Case Is = 2 MsgBox "check 2" Case Is = 3 MsgBox "check 3" End Select