Discussion :

[housemiouzic]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

Bonjour
Utilise plutôt des Checkbox ActiveX

Et avec ce code, tu aura ton msgbox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[housemiouzic]

Merci !

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

[housemiouzic]

j'ai trouvé !
voici la syntaxe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

en tout cas merci mercatog !