Utilisation de case à cocher dans un fonction vb

Bonjour,
Ma question est quelqu'un sait-il s'il est possible de modifier l'état(coché ou décoché) d'une case à cocher via une focntion VB?
Je ne parle pas de checkbox mais de case à cocher, quand j'appel une case à cocher j'ai une erreur 424 'objet inconu' alors que quand j'appel une checkbox tout se passe comme prévu.
Mon problème est que je dois partir d'un fichier ou il y a déjà de très nombreuse case à cocher et que je n'ai pas trop envie de toutes les changer en checkbox...

J'espère tout du moins qu'il est possible d’interagir avec du code vb sur une case à cocher. J'ai lu quelque part qu'il ne serait possible d’interagir que sur des checkbock. Est-ce vrai? Sinon quel nom de variable excel donne t'il par défaut à une case à cocher.
Merci

Code:

---

1 2 3 4 5 6 7

Sub Effacertout() 'KO : Cette ligne provoque une erreur 424 'objet inconu' Caseàcocher1.Value = False 'OK : Cette ligne décoche la CheckBox CheckBox1.Value = False End Sub

---

Bonjour,

En parlant de "Case à cocher" tu parle de celles issues de la boite "Contrôles Formulaire" déposés sur une feuille Excel ? Regarde si le code convient :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub Effacertout()   Dim CaseACocher As Shape   For Each CaseACocher In Worksheets("Feuil1").Shapes   If CaseACocher.Type = msoFormControl Then   CaseACocher.ControlFormat.Value = 0   End If   Next   End Sub

---

Hervé.

Oui en effet vous avez raison, pour le type formulaire (case à cocher) et activeX (checkbox).
J'ai essayé votre code qui me paraissait très bien mais malheureusement j'ai une erreur à l’exécution 438 'propriété ou méthode non gérée par cet objet'.
pourtant vous testez le type d'objet. peux-etre un test supplémentaire est nécessaire mais je ne connais pas les différents champs de cet objet comment les trouver?

cependant suite à l’exécution de votre fonction toutes les coches sont décochées mais un autre objet doit être identité à tord comme une case à cocher. Et du coup l'utilisateur doit ignorer cette erreur : un peu gênant...

J'ai fini par trouver une solution :
Ajouter un test sur le champ nom de la variable à cocher en plus du type.
En effet chaque case à cocher semble avoir comme nom "Check Box N".
Tester le type ne suffit pas car des boutons ou autre peuvent avoir ce même type et du coup générer une erreur.
Merci pour votre aide.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub Effacertout()   Dim CaseACocher As Shape   For Each CaseACocher In Worksheets("Feuil1").Shapes   If CaseACocher.Type = msoFormControl Then   If CaseACocher.Name Like "Check Box*" Then   CaseACocher.ControlFormat.Value = 0   End If   End If   Next   End Sub

---