Bonjour tout le monde!=,

Une petit question pour vous avec les cases à cocher. J'en ai groupé quelques unes et je voudrais toutes les cocher ou décocher simultanément.

Connaissez-vous une commande qui permette de faire cela? Avant je passais par une procédure

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Sub Tout_Décocher()
Dim Shp As Shape
For Each Shp In Sheets("Feuille1").Shapes
    If Shp.Name Like "Case *" Then
        Shp.DrawingObject.Value = False
    End If
Next Shp
End Sub
Mais j'ai désormais besoin qu'elles soient groupées donc je ne peux plus faire cela. Quelqu'un a t-il une idée ?

Merci beaucoup!