XL 2016 décocher les cases à cocher

  • Initiateur de la discussion Initiateur de la discussion halecs93
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
Mais cette solution ne fonctionne pas avec mon fichier contrairement à celle de 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.
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
204
Réponses
15
Affichages
265
Réponses
5
Affichages
175
Réponses
5
Affichages
118
Retour