Macro Excel

Bonjour ,

Dans un ficher Excel j'ai fais une liste de personne. En face deux cases à cocher, oui / non ...

Quelle peut-être la macro pour décocher toutes les cases en une seule macro.

Les cases à cocher ont été créées à partir de la barre à outils de Contrôle.

La macro que j'ai élaboré est :

Sub case_decoche()

Dim cb As CheckBox

'décoche toutes les cases à cocher

With Sheets("Test")

For Each cb In .CheckBoxes

cb.Value = xlOff

ActiveWorkbook.Saved = False

End If

Next

ActiveWorkbook.Saved = False

End With

End Sub

Mais aucune case ne se décoche.

Le fichier est joint pour voir la suite.

Merci de m'aider !..... j'ai déjà fais 6 forum avec des essais de tout type..

Version Excel : 2003

OS : Windows XP.

Bonjour,

une astuce est de nommer tes checkboxs de la même façon, ( chkTest1, chkTest2 , ... ) et ensuite de tester toutes les shapes de la feuille. Si elle commence par chkTest, on décoche :

Sub case_decoche()
Dim cb As Shape

    With Sheets("Test")
    For Each cb In .Shapes
        If LCase(Left(cb.Name, 8)) = "checkbox" Then
            .OLEObjects(cb.Name).Object.Value = 0
        End If
    Next cb
    End With
End Sub

Je viens de tester la macro mais aucune case ne se décoche..

Salut le forum

Pour boucler sur tes CheckBox's et les décocher

Sub case_decoche()
Dim obj As OLEObject

 For Each obj In ActiveSheet.OLEObjects
       If TypeOf obj.Object Is msforms.CheckBox Then
       obj.Object.Value = False
       End If
 Next obj

End Sub

Mytå

Mytå a écrit :

Salut le forum

Pour boucler sur tes CheckBox's et les décocher

Sub case_decoche()
Dim obj As OLEObject

 For Each obj In ActiveSheet.OLEObjects
       If TypeOf obj.Object Is msforms.CheckBox Then
       obj.Object.Value = False
       End If
 Next obj

End Sub

Mytå

Je viens de tester la macro mais aucune case ne se décoche..

Re le forum

Mathlamort, le problème vient surement de l'interface chaise-clavier.

Car autant la macro de math que la mienne fonctionne sur le fichier que tu as joint.

Mytå