Case pour tout décocher Résolu/Fermé

Question

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

franc38 · Answer

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

Case pour tout décocher

1 réponse

Discussions similaires