Case pour tout décocher
Résolu
Blondy485
Messages postés
71
Date d'inscription
Statut
Membre
Dernière intervention
-
franc38 Messages postés 197 Date d'inscription Statut Membre Dernière intervention -
franc38 Messages postés 197 Date d'inscription Statut Membre Dernière intervention -
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
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
-
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
