XL 2016 décocher les cases à cocher

[halecs93]

Bonjour,

je ne réussis pas à décocher, via macro, les cases cochées en colonne D sur ma feuille active.

Merci à tout le monde

 

[mapomme]

Bonsoir @halecs93 ,

Essayez :

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

 

[halecs93]

Bonsoir @halecs93 ,

Essayez :

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

Et pourtant si simple... grand merci

 

[Phil69970]

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

 

[halecs93]

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

Oui...mais....

 

[halecs93]

Bonsoir halecs93

Plusieurs solutions en Voici une :

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

Mais cette solution ne fonctionne pas avec mon fichier contrairement à celle de mapomme

 

[mapomme]

@Phil69970 😉,

@halecs93 utilise bien une méthode similaire à la tienne c'est à dire utilisation de deux caractères pour simuler les cases cochées et les cases décochées. A la place de "X", @halecs93 utilise chr(254) pour une case cochée (police Wingdings) et à la place de "", @halecs93 utilise chr(168) pour une case décochée (police Wingdings).

C'est aussi l'explication du pourquoi le code @ChTi160😉 ne fonctionne pas ici car il n'y a pas de vraie case à cocher de type checkbox mais simplement deux types de caractères.