Reinitialiser tout les option button

salut,

je suis nouveau à excel, j'ai cree un long questionnaire, en le testant j'ai coché toutes les options boutons maintenant je dois réinitialiser tous les options button pour que je l'envoie pour être remlis de nouveau

Merci d'avance.

bonjour,

sub test()
Dim Ctrl  As Control
    For Each Ctrl In Me.Controls
        IF TypeName(Ctrl) = "CheckBox" Then Ctrl.Value = False
    Next
End Sub

A+

Bonjour,

Et pour compléter si les objets sont sur une feuille :

'Case à cocher "Formulaire sur une feuille
Sub Imprimer()

    Dim C As Shape

    For Each C In ActiveSheet.Shapes

        If TypeName(C.OLEFormat.Object) = "CheckBox" Then C.ControlFormat.Value = 0

    Next C

End Sub

'Case à cocher ActiveX sur une feuille
Sub Decocher()

Dim C  As OLEObject

    For Each C In ActiveSheet.OLEObjects

        If TypeName(C.Object) = "CheckBox" Then C.Object.Value = False

    Next

End Sub

Comme c'est un MAC tu as toutes les chances de gagner !