Macro pour effacer toutes les cases a cocher sur toutes les feuilles

Fermé
chris - 22 mai 2020 à 20:46
cs_Le Pivert Messages postés 7859 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 1 décembre 2022 - 23 mai 2020 à 09:04
Bonjour,

Je suis débutant en VBA et je cherche une macro pour effacer toutes les case a cocher sur toutes les feuilles.

En vous remerciant.

Configuration: Windows / Chrome 83.0.4103.61

3 réponses

via55 Messages postés 13970 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 1 décembre 2022 2 522
Modifié le 22 mai 2020 à 23:15
Bonjour Chris

Sub efface()
Dim obj As OLEObject
For n = 1 To Sheets.Count
Sheets(n).Select
 For Each obj In ActiveSheet.OLEObjects
       If Left(obj.Name, 5) = "Check" Then obj.Object.Value = False
 Next obj
Next n
End Sub


Cdlmnt
Via

0
Le Pingou Messages postés 11312 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 1 décembre 2022 1 315
22 mai 2020 à 23:18
Bonjour,
S'il s'agit de contrôle de formulaire ce code devrait convenir:
Sub caseacocher()
' effacer les cases à cocher de formulaire
For f = 1 To Worksheets.Count
With Sheets(f)
For Each CheckBoxes In .CheckBoxes
If CheckBoxes.Value = xlOn Then CheckBoxes.Value = xlOff
Next
End With
Next f
End Sub

0
cs_Le Pivert Messages postés 7859 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 1 décembre 2022 723
23 mai 2020 à 09:04
Bonjour,

a mettre dans un module:

Sub SupShape()
Dim s As Shape
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Select
  For Each s In ActiveSheet.Shapes
    If s.Type = 8 Then s.Delete
  Next
  Next
End Sub

0