Case à cocher

bonjour

je voudrais cocher ou decocher une "case à cocher" de ma feuille de calcul et ce en vba , j'utilise le petit bout de code

suivant :

dim form as OLEObjects
with sheets("Feuil1")
For Each form In ActiveSheet.OLEObjects
If form.Name Like "Check*" Then form.ControlFormat.Value = False
Next form

mais ma case reste toujours cochée ! auriez vous une idée ?

Merci pour vos réponses

Bonjour,

Si tes checkboxs sont bien issus de la boîte à outils "Contrôle", tu peux essayer ainsi :

Sub ee()
Dim Form As Object
With Sheets("Feuil1")
    For Each Form In .OLEObjects
        If Form.Name Like "Check*" Then Form.Object.Value = False
    Next Form
End With
End Sub

Bonne journée

ca ne marche toujours pas , ma case a cocher à été crée à partir de "formulaire " par clic droit sur la barre de menu puis j'ai selectionné une case à cocher que j'ai placé sur ma feuille de calcul

Re-,

Dans ce cas, essaie ainsi :

Dim Chk As Shape
With Sheets("Feuil1")
    For Each Chk In .Shapes
        If Chk.Name Like "Check*" Then Chk.DrawingObject.Value = False
    Next Chk
End With

Bon courage

Merci pour cette réponse rapide "Cosinub"

j'ai pour le code que tu m'a proposé un bug à la ligne :

Chk.DrawingObject.Value = False

avec le message d'erreur " proprieté ou methode non gerée par cet objet "

Re-,

Tu comprendras aisément que j'ai fait des tests avant de poster...

Que ce soit par ton code :

Dim form As Object
With Sheets("Feuil1")
    For Each form In .Shapes
        If form.Name Like "Check*" Then form.ControlFormat.Value = False
    Next form
End With

Que par le mien :

Dim Chk As Object
With Sheets("Feuil1")
    For Each Chk In .Shapes
        If Chk.Name Like "Check*" Then Chk.DrawingObject.Value = False
    Next Chk
End With

Je ne rencontre aucun problème....

Donc, à moins de joindre un fichier exemple, qui reproduit l'erreur que tu cites, je ne vois pas trop comment faire...

Bon courage

désolé , l'erreur venais de moi , ! j'ai pu rectifié ce qui n'allais pas ( un nom de feuille qui ne correspondait pas )

Encor merci à toi pour le temps que tu a accordé à cette question