Obtenir les Valeurs de toutes les Cases à Cocher dans Excel à l'aide de VBA

- Je ajouter de nombreuses cases à cocher sur la feuille excel programaticaly en utilisant le code suivant:

With ActiveSheet.CheckBoxes.Add(rCell.Left, rCell.Top, rCell.Width, rCell.Height)
        .Interior.ColorIndex = xlNone
        .Caption = ""
End With

Maintenant j'ai besoin d'un code qui permettrait d'analyser toutes les cases à Cocher qui sont présents dans la feuille et d'obtenir leur valeur(true ou false), et aussi la cellule à laquelle ils sont présents.
Comment faire cela?

Merci...

OriginalL'auteur Manoj | 2009-09-11

  1. 6
    Sub Add_CheckBoxes()

With ActiveSheet.CheckBoxes.Add(ActiveCell.Left, ActiveCell.Top, ActiveCell.Width, ActiveCell.Height)
    .Interior.ColorIndex = xlNone
    .Caption = ""
End With

For Each chk In ActiveSheet.CheckBoxes
    If chk Then MsgBox "Checked"
Next
End Sub
    Merci pour la réponse! Il fonctionne! Mais est-il possible que je peux obtenir de la cellule dans laquelle la case à cocher est présent?
    Vous ne savez pas si vous pouvez le trouver directement. La case a à la fois une propriété à Gauche et en Haut de la propriété, qui représentent sa position. Vous pouvez comparer chk.Gauche avec la Gauche de la propriété de chaque colonne dans ActiveSheet.Les colonnes(1).À gauche etc - jusqu'à ce que vous avez trouvé le match le plus proche, puis répétez l'opération pour le Haut de la propriété, et chaque ligne à son tour

    OriginalL'auteur systemovich

  2. 2

    Une fois que vous ajoutez les cases à cocher, vous pouvez les parcourir en boucle comme ceci:

    Sub Checkbox_Test()

Dim chk As CheckBox
Dim cell As Range

For Each chk In ActiveSheet.CheckBoxes
    If chk.Value = Checked Then        '1 is true, but the constant
        Set cell = chk.TopLeftCell     ' "Checked" avoids "magic numbers".

        'do whatever with cell
        MsgBox cell.Address
    End If
Next chk

    End Sub

    OriginalL'auteur Fink