checkbox erreur 438

Bonjour à tous,

Normalement j'arrive toujours à me démerder en vba, mais la je bloque sur quelque chose que je ne comprend pas.

Dans un onglet "synthèse" j'ai un tableau avec des colonnes et une de ces colonnes contient 13 checkboxes(1 pour chaque mois et une pour un ligne vide) que j'ai créé manuellement (développeur>> inserer>>contrôle de formulaire >> case à cocher)

Par défaut, les checkboxes se nomment : "case à cocher 1", "case à cocher 2" etc...

Moi je les ai renommées en CheckBoxJanvier, CheckBoxFevrier etc...

Pour créer un macro, j'ai fais un clic droit sur un checkbox et j'ai cliqué sur affecter à une nouvelle macro et voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub CheckBox_janvier_Clic()   Set ws_synthese = Sheets("Synthèse")   If ws_synthese.Shapes("CheckBoxJanvier").Value = True Then   MsgBox ("clic")   End If     End Sub

---

mais lorsque je coche ma case(ou que je la décoche) j’obtiens l'erreur : erreur d’exécution 438, propriété ou méthode non gérée par l'objet.


Est ce que quelqu'un a une idée?

merci d'avance

Bonjour
Utilise plutôt des Checkbox ActiveX

Et avec ce code, tu aura ton msgbox

Code:

---

1 2 3 4

Private Sub CheckBoxJanvier_Click()   If Sheets("Synthèse").CheckBoxJanvier Then MsgBox "Toto" End Sub

---

Merci !

En effet cela marche, mais j'aimerais bien comprendre pourquoi en contrôle de formulaire mon code ne marche pas ..

j'ai trouvé !
voici la syntaxe :

Code:

---

ws_synthese.Shapes("CheckBoxJanvier").ControlFormat.Value = xlOn

---

en tout cas merci mercatog !