Comment décocher ou désélectionner toutes les cases à cocher en une seule fois dans Excel ?

Comment pourriez-vous décocher ou désélectionner toutes les cases à cocher cochées en une seule fois dans une feuille de calcul comme le montre la capture d'écran suivante ? Dans cet article, je vais parler de quelques codes rapides pour résoudre ce problème.

Décocher ou désélectionner toutes les cases à cocher cochées avec du code VBA

Décocher ou désélectionner toutes les cases à cocher cochées avec du code VBA

Décocher ou désélectionner toutes les cases à cocher (Contrôles de formulaire) :

Si vos cases à cocher sont des contrôles de formulaire, vous pouvez les décocher en une seule fois avec le code VBA suivant :

1. Maintenez les touches ALT + F11 enfoncées pour ouvrir la fenêtre Microsoft Visual Basic for Applications.

2. Cliquez sur Insertion > Module, puis collez le code suivant dans la fenêtre Module.

Code VBA : Décocher ou désélectionner toutes les cases à cocher (Contrôles de formulaire) :

Sub ClearCheckBoxes()
'Updateby Extendoffice
    Dim chkBox As Excel.CheckBox
    Application.ScreenUpdating = False
    For Each chkBox In ActiveSheet.CheckBoxes
            chkBox.Value = xlOff
    Next chkBox
    Application.ScreenUpdating = True
End Sub

3. Appuyez ensuite sur la touche F5 pour exécuter ce code, et toutes les cases à cocher cochées ont été décochées en une seule fois dans la feuille de calcul active.

Décocher ou désélectionner toutes les cases à cocher (Contrôles ActiveX) :

Si les cases à cocher sont des Contrôles ActiveX, veuillez appliquer le code VBA ci-dessous :

1. Maintenez les touches ALT + F11 enfoncées pour ouvrir la fenêtre Microsoft Visual Basic for Applications.

2. Cliquez sur Insertion > Module, puis collez le code suivant dans la fenêtre Module.

Code VBA : Décocher ou désélectionner toutes les cases à cocher (Contrôles ActiveX) :

Sub clearcheckbox()
'Updateby Extendoffcie
    Dim c As Object
    For Each c In ActiveSheet.OLEObjects
        If InStr(1, c.Name, "CheckBox") > 0 Then
            c.Object.Value = False
        End If
    Next
End Sub

3. Appuyez ensuite sur la touche F5 pour exécuter ce code, et toutes les cases à cocher cochées ont été désélectionnées en une seule fois dans la feuille de calcul active.

Insérer plusieurs cases à cocher dans les sélections en une seule fois

L'utilitaire Batch Insert Check Boxes de Kutools for Excel peut vous aider à insérer rapidement plusieurs cases à cocher en une seule fois. Cliquez pour télécharger Kutools for Excel !