Case pour tout décocher
Résolu
Blondy485
Messages postés
73
Statut
Membre
-
franc38 Messages postés 198 Statut Membre -
franc38 Messages postés 198 Statut Membre -
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
A voir également:
- Case pour tout décocher
- Excel case choix multiple - Guide
- Aller à la ligne dans une case excel - Guide
- Supprimer case à cocher excel ✓ - Forum Excel
- Supprimer des cases à cocher (Excel 2003) - Forum Excel
- Case à cocher libre office - Forum LibreOffice / OpenOffice
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
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
