Case pour tout décocher
Résolu/Fermé
Blondy485
Messages postés
69
Date d'inscription
lundi 4 avril 2016
Statut
Membre
Dernière intervention
30 octobre 2020
-
7 août 2020 à 16:05
franc38 Messages postés 197 Date d'inscription mercredi 23 avril 2008 Statut Membre Dernière intervention 27 février 2023 - 7 août 2020 à 16:44
franc38 Messages postés 197 Date d'inscription mercredi 23 avril 2008 Statut Membre Dernière intervention 27 février 2023 - 7 août 2020 à 16:44
A voir également:
- Case pour tout décocher
- Aller à la ligne dans une case excel - Guide
- Si case cochée alors excel ✓ - Forum Excel
- Raccourci clavier case à cocher ✓ - Forum Excel
- Excel somme case couleur - Guide
- Excel case choix multiple - Guide
1 réponse
franc38
Messages postés
197
Date d'inscription
mercredi 23 avril 2008
Statut
Membre
Dernière intervention
27 février 2023
38
7 août 2020 à 16:44
7 août 2020 à 16:44
Bonjour
Tu as déjà une macro décoche tout
Sinon une macro qui décoche tout et qui efface les validations de données (1,2,3,4)
Private Sub CommandButton1_Click()
Dim CTL As Shape, i As Integer, j As Integer
For Each CTL In ActiveSheet.Shapes
If Left(CTL.Name, 9) = "Check Box" Then
CTL.ControlFormat.Value = False
End If
Next
For i = 9 To 31 'boucle de la ligne 9 à la ligne 31
For j = 3 To 49 'boucle de la colonne 3 à la colonne 49
If Cells(i, j).Value > 0 And Cells(i, j).Value < 5 Then Cells(i, j).Value = Null
Next
Next
MsgBox "Terminé"
End Sub
A+ François
Tu as déjà une macro décoche tout
Sinon une macro qui décoche tout et qui efface les validations de données (1,2,3,4)
Private Sub CommandButton1_Click()
Dim CTL As Shape, i As Integer, j As Integer
For Each CTL In ActiveSheet.Shapes
If Left(CTL.Name, 9) = "Check Box" Then
CTL.ControlFormat.Value = False
End If
Next
For i = 9 To 31 'boucle de la ligne 9 à la ligne 31
For j = 3 To 49 'boucle de la colonne 3 à la colonne 49
If Cells(i, j).Value > 0 And Cells(i, j).Value < 5 Then Cells(i, j).Value = Null
Next
Next
MsgBox "Terminé"
End Sub
A+ François
