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

Lors de l'insertion de cases à cocher dans des cellules dans Excel, vous remarquerez peut-être 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 fait, vous pouvez déplacer toutes les cases à cocher vers le centre de la cellule pour les maintenir bien ordonnées. La méthode décrite dans cet article peut vous aider.

Case à cocher de centrage automatique dans la cellule avec le code VBA

Case à cocher de centrage automatique dans la cellule avec le code VBA

Pour centrer automatiquement toutes les cases à cocher dans les cellules d'une feuille de calcul actuelle, procédez comme suit.

1. Dans la feuille de calcul, vous devez centrer automatiquement toutes les cases à cocher, appuyez sur le bouton autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, veuillez cliquer 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. appuie sur le F5 clé. Ensuite, toutes les cases à cocher sont déplacées au centre des cellules immédiatement comme illustré ci-dessous.

Notes: Ce code VBA peut être appliqué à la fois à CheckBox (contrôle ActiveX) et CheckBox (contrôle de formulaire).

Articles Liés:

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