décocher tout !

[babouze64]

y a t'il un moyen de cocher ou décocher toutes les cases à cocher d'une même feuille en une seule fois ?

 

[pierrejean]

Re : décocher tout !

bonjor babouze

Vois si cela te convient

 

[Modeste]

Re : décocher tout !

Bonjour babouze64,

Une proposition en pièce jointe.

Edit: Sorry pierrejean ... et bonjour

 

[job75]

Re : décocher tout !

Bonjour,

Tous les objets ont été créés avec "Formulaires".

Les cases à cocher ne doivent pas avoir été renommés.

Les 2 macros de Classeur(1) :

Sub Coche()
Dim o As Object
For Each o In Sheets("Feuil1").DrawingObjects
  If o.Name Like "Check Box*" Then o.Value = True
Next
End Sub

Sub Decoche()
Dim o As Object
For Each o In Sheets("Feuil1").DrawingObjects
  If o.Name Like "Check Box*" Then o.Value = False
Next
End Sub

La macro unique de Classeur(2) :

Sub CocheDecoche()
Dim test As Boolean, o As Object
With Sheets("Feuil1")
  test = Not .DrawingObjects("Bouton 9").Text Like "*dé*"
  For Each o In .DrawingObjects
    If o.Name Like "Check Box*" Then o.Value = test
  Next
  .DrawingObjects("Bouton 9").Text = "tout " & IIf(test, "dé", "") & "cocher"
End With
End Sub

Edit : bonjour pierrejean et Modeste, je suis bien en retard

A+

 

[babouze64]

Re : décocher tout !

merci à tous pour vos propositions !! ça fonctionne !! (comme si je pouvais en douter !!).

c'est fou la rapidité avec laquelle vous trouvez les solutions !!