Case pour tout décocher [Résolu]

Signaler
Messages postés
68
Date d'inscription
lundi 4 avril 2016
Statut
Membre
Dernière intervention
26 août 2020
-
Messages postés
100
Date d'inscription
mercredi 23 avril 2008
Statut
Membre
Dernière intervention
17 septembre 2020
-
Bonjour,

J'aimerais qu'en A4 il y ai une case ou bouton pour effacer tout les entrés de la feuilles. (écriture voir exemple lignes 6 à 9 et aussi les cases qui auraient été coché (exemple C34)

https://www.cjoint.com/c/JHhodQbE0gl

Je ne suis pas encore totalement habituer avec les macros et BVL si vous pourriez m'expliquer le chemin que vous avez pris afin de bien apprendre la technique.

Merci d'avance avec votre aide

1 réponse

Messages postés
100
Date d'inscription
mercredi 23 avril 2008
Statut
Membre
Dernière intervention
17 septembre 2020
18
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