Note: The other languages of the website are Google-translated. Back to English
Se connecter  \/ 
x
or
x
INSCRIPTION  \/ 
x

or

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 dans l'ordre comme la capture d'écran de gauche montrée. En fait, vous pouvez déplacer toutes les cases à cocher vers le centre de la cellule pour les garder en ordre. 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).

Pointe: Si vous souhaitez insérer plusieurs cases à cocher dans une plage sélectionnée en bloc, vous pouvez essayer le Cases à cocher d'insertion par lots utilitaire pf Kutools pour Excel. Ou insérez par lots plusieurs boutons d'options avec le Boutons d'option d'insertion par lots utilitaire. En outre, vous pouvez supprimer toutes les cases à cocher à la fois avec le Cases à cocher de suppression par lots utilitaire comme ci-dessous les captures d'écran montrées. Tu peux aller à télécharger gratuitement le logiciel sans limitation dans 30 jours.


Articles Liés:


Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtrée...
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammes...
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellules...
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement votre travail

  • Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
bas de cabine
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    quadma · 1 years ago
    The VBA does not work at all for me. When I press F5, it appears that the module runs, but the checkboxes did not move.
    • To post as a guest, your comment is unpublished.
      quadma · 1 years ago
      After some more experimenting, I figured out that the VBA does work for manually inserted checkboxes, but if I use Kutools batch insert, it does not. How do I center all the checkboxes inserted with Kutools?
      • To post as a guest, your comment is unpublished.
        crystal · 1 years ago
        Hi quadma,
        The code also works for the checkboxes inserted by Kutools. Which Excel version are you using?
        • To post as a guest, your comment is unpublished.
          quadma · 1 years ago
          I'm using office 360. I think the issue that I'm having is that when I use the Kutools batch insert, the size of the the checkbox object is as wide as the column that it's inserted into (i.e. the checkbox object width is greater than it's height), with the visible checkbox itself on being left justified within the object. If I select all the checkbox objects and then resize them so that the height and length are equal, and then run the VBA, it does then center the checkboxes within the column.


          This seems like an unnecessary step, given that checkboxes are square, why is Kultools not making the checkbox objects square?
          • To post as a guest, your comment is unpublished.
            crystal · 1 years ago
            Hi quadma,
            The check boxes inserted by Kutools are the same as the Check Box (Form Control) which inserted by Excel.
            I don't really understand you said "making the checkbox object square". Normally a check box include the box field and the value field. Kutools keeps the check boxes' value empty if the selected cells are blank. And if there are values in selected cells, the cell value will be taken as the check box value.
            • To post as a guest, your comment is unpublished.
              quadma · 1 years ago
              I've uploaded a picture to show what I mean. Hopefully that helps.
              • To post as a guest, your comment is unpublished.
                crystal · 1 years ago
                Hi quadma, I got your point. We will think about it and thank you for your patience.
  • To post as a guest, your comment is unpublished.
    Phughes@LadyLake.org · 1 years ago
    This worked great for me except it doesn't align it with the text in the next cell which is bottom aligned. Is there a way to align the checkboxes for bottom aligned in order to get them to align with the text in the next cell? Thanks!
  • To post as a guest, your comment is unpublished.
    DG · 3 years ago
    You VDA script is partly working. Because when i applied it, linked cell next to Checkbox get changed and got linked with a cell under it.