Sujet Précédent Sujet Suivant

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 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 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
A voir également:

3 réponses

Réponse 1 / 3
via55 Messages postés 14495 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 7 novembre 2024 2 735
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
Réponse 2 / 3
Le Pingou Messages postés 12190 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 19 novembre 2024 1 450
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
Réponse 3 / 3
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
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