Comment accéder à Checkbox à partir de VBA dans Excel 2007

Question

Lors de l'ajout d'une case à cocher, comment accéder à la valeur de VBA?

• Dans Excel 2007, sur le ruban de développeur
• Insertion, contrôles de formulaire, cases à cocher
• Renommé Case à cocher chkMyCheck
• Ajouté Macro case à cocher, j'ai maintenant Module1 avec chkMyCheck_Clicked

Tous les échecs suivants

Sheets("Sheet1").chkMyCheck.Checked 
Sheets("Sheet1").chkMyCheck.Value 
Sheets("Sheet1").Shapes("chkMyCheck").Checked 
Sheets("Sheet1").Shapes("chkMyCheck").Value 
Sheet1.chkMyCheck.Checked 
Sheet1.chkMyCheck.Value 

Sheet1.Shapes ("chkMyCheck") semble trouver l'objet, mais n'expose aucune propriété susceptible de renvoyer l'état vérifié.

Answer 1

figured it out

If Sheet1.Shapes("chkMyCheck").ControlFormat.Value = xlOn Then 
..... 

Answer 2

Une façon:

Dim oCheck As Object 
Set oCheck = Sheet1.CheckBoxes("chkMyCheck") 
MsgBox (oCheck.Value = xlOn) 

Edit: voici une autre méthode - peut-être celui-ci travaillera pour vous ...

Sub Tester2() 
    Dim sh As Shape 
    For Each sh In Sheet1.Shapes 
     If sh.Type = msoFormControl Then 
      If sh.FormControlType = xlCheckBox Then 
       Debug.Print sh.Name & "=" & sh.ControlFormat.Value 
      End If 
     End If 
    Next sh 
End Sub 

Answer 3

Pour être complet, Si vous utilisez une case à cocher ActiveX au lieu d'une case à cocher standard, la syntaxe est

If Sheet1.Shapes("chkMyCheck").OLEFormat.Object.Object.Value Then 
... 

trouvé en utilisant la fenêtre Locals et un ensemble variable à la forme -

Dim shp as Shape 
Set shp = Sheet1.Shapes("chkMyCheck") 
Stop