Comment centrer automatiquement une case à cocher dans une cellule dans Excel ?

Lors de l'insertion de cases à cocher dans des cellules dans Excel, vous pourriez remarquer qu'il est difficile d'organiser toutes les cases à cocher de manière ordonnée comme le montre la capture d'écran ci-dessous. En réalité, vous pouvez déplacer toutes les cases à cocher vers le centre des cellules pour les maintenir en ordre de manière nette. La méthode décrite dans cet article peut vous aider.

Centrer automatiquement une case à cocher dans une cellule avec du code VBA

Centrer automatiquement une case à cocher dans une cellule avec du code VBA

Pour centrer automatiquement toutes les cases à cocher dans les cellules d'une feuille de calcul actuelle, veuillez suivre les étapes ci-dessous.

1. Dans la feuille de calcul où vous devez centrer automatiquement toutes les cases à cocher, appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Dans la fenêtre Microsoft Visual Basic pour Applications, cliquez sur Insérer > Module. Ensuite, copiez et collez le code VBA dans la fenêtre de code.

Code VBA : Centrer automatiquement toutes les cases à cocher dans les cellules

Sub CenterCheckbox ()
    Dim xRg As Range
    Dim chkBox As OLEObject
    Dim chkFBox As CheckBox
    On Error Resume Next
    Application.ScreenUpdating = False
    For Each chkBox In ActiveSheet.OLEObjects
        If TypeName(chkBox.Object) = "CheckBox" Then
            Set xRg = chkBox.TopLeftCell
            chkBox.Width = xRg.Width * 2 / 3
            chkBox.Height = xRg.Height
            chkBox.Left = xRg.Left + (xRg.Width - chkBox.Width) / 2
            chkBox.Top = xRg.Top + (xRg.Height - chkBox.Height) / 2
        End If
    Next
    For Each chkFBox In ActiveSheet.CheckBoxes
        Set xRg = chkFBox.TopLeftCell
        chkFBox.Width = xRg.Width * 2 / 3
        chkFBox.Height = xRg.Height
        chkFBox.Left = xRg.Left + (xRg.Width - chkFBox.Width) / 2
        chkFBox.Top = xRg.Top + (xRg.Height - chkFBox.Height) / 2
    Next
    Application.ScreenUpdating = True
End Sub

3. Appuyez sur la touche F5. Ensuite, toutes les cases à cocher sont immédiatement déplacées au centre des cellules comme le montre la capture d'écran ci-dessous.

Remarque : Ce code VBA peut être appliqué aux deux types de CheckBox (Contrôle ActiveX) et CheckBox (Contrôle de formulaire).

Articles connexes :

• Comment créer une liste déroulante avec plusieurs cases à cocher dans Excel ?
• Comment changer la valeur ou la couleur d'une cellule spécifiée lorsque la case à cocher est cochée dans Excel ?
• Comment mettre en évidence une cellule ou une ligne avec une case à cocher dans Excel ?
• Comment cocher une case à cocher en fonction de la valeur d'une cellule dans Excel ?