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 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 23 mai 2020 à 09:04
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 23 mai 2020 à 09:04
A voir également:
- Supprimer case à cocher excel
- Supprimer une page word - Guide
- Supprimer compte instagram - Guide
- Liste déroulante excel - Guide
- Aller à la ligne excel - Guide
- Formule excel - Guide
3 réponses
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
2 702
Modifié le 22 mai 2020 à 23:15
Modifié le 22 mai 2020 à 23:15
Bonjour Chris
Cdlmnt
Via
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
Le Pingou
Messages postés
12035
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
1 avril 2024
1 425
22 mai 2020 à 23:18
22 mai 2020 à 23:18
Bonjour,
S'il s'agit de contrôle de formulaire ce code devrait convenir:
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
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
23 mai 2020 à 09:04
23 mai 2020 à 09:04
Bonjour,
a mettre dans un module:
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