XL 2016 décocher les cases à cocher

mapomme à dit:

Bonsoir @halecs93 ,

Essayez :

VB:

Sub DecocherTous()
   Worksheets("Feuil1").Range("t_BDD[Sélection]") = Chr(168)
End Sub

Cliquez pour agrandir...

Phil69970 à dit:

Bonjour @halecs93
Edit Bonjour @mapomme

Il me semble que l'on t'avait déjà dit que les cases à cocher pouvaient être remplacer avantageusement....

==> https://excel-downloads.com/threads/execution-macro-tres-tres-longue.20086265/page-2#post-20678490

Cliquez pour agrandir...

ChTi160 à dit:

Bonsoir halecs93

Plusieurs solutions en Voici une :

VB:

Sub CheckBoxesOff()
    Dim chkBox As CheckBox
    Application.ScreenUpdating = False
    For Each chkBox In ActiveSheet.CheckBoxes
        chkBox.Value = xlOff
    Next chkBox
    Application.ScreenUpdating = True
End Sub

Edit : il faudrait aussi faire en sort de ne pas avoir X ChecBoxes sur chaque Ligne en prévoyant d'effacer ou de nommer tes ChecBoxes et vérifier si elles exixtent !
Jean marie

Cliquez pour agrandir...