Comment insérer rapidement plusieurs cases à cocher dans Excel ?

Comment pouvons-nous insérer rapidement plusieurs cases à cocher dans Excel ? Veuillez suivre ces méthodes astucieuses dans Excel :

Insérer plusieurs cases à cocher avec la poignée de remplissage

Insérer plusieurs cases à cocher avec du code VBA

Insérer et supprimer plusieurs cases à cocher en un clic en utilisant Kutools pour Excel

Insérer plusieurs cases à cocher avec la poignée de remplissage

Dans Excel, la poignée de remplissage est une fonction puissante pour faire beaucoup de choses. Elle peut également remplir les cases à cocher. Tout d'abord, vous devez insérer une case à cocher. Suivez les étapes ci-dessous :

1. Cliquez sur Développeur dans la barre de menu, puis cliquez sur Insérer, et choisissez l'image de la case à cocher sous Contrôle de formulaire. Voir capture d'écran :

2. Cliquez sur l'image de la case à cocher, et vous verrez un pointeur en forme de signe plus, cliquez là où vous souhaitez ajouter la case à cocher.

3. Sélectionnez la case à cocher et déplacez-la vers une cellule, puis supprimez le nom de la case à cocher.

4. Ensuite, sélectionnez la cellule où se trouve la case à cocher. Puis faites glisser la poignée de remplissage sur la plage de cellules que vous souhaitez remplir. Voir capture d'écran :

Insérer plusieurs cases à cocher avec du code VBA

Si vous trouvez que la première méthode est quelque peu fastidieuse, le code VBA suivant peut vous aider à insérer facilement et rapidement plusieurs cases à cocher.

1. Cliquez sur Développeur > Visual Basic, une nouvelle fenêtre Microsoft Visual Basic pour applications s'affichera, cliquez sur Insérer > Module, et saisissez le code suivant dans le Module :

Sub InsertCheckBoxes()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim Ws As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set Ws = Application.ActiveSheet
Application.ScreenUpdating = False
For Each Rng In WorkRng
    With Ws.CheckBoxes.Add(Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        .Characters.Text = Rng.Value
    End With
Next
WorkRng.ClearContents
WorkRng.Select
Application.ScreenUpdating = True
End Sub

2. Puis cliquez sur le bouton pour exécuter le code. Une boîte de dialogue apparaîtra pour vous rappeler de sélectionner une plage de cellules où vous souhaitez insérer les cases à cocher. Voir capture d'écran :

3. Puis cliquez sur OK, les cases à cocher ont été insérées dans la plage de manière nette et soignée. Voir capture d'écran :

Insérer plusieurs cases à cocher avec Kutools pour Excel

Ici, je peux vous présenter une méthode simple et pratique pour insérer plusieurs cases à cocher - Kutools pour Excel, avec sa fonctionnalité Batch Insert Check Box, vous pouvez insérer des cases à cocher dans des cellules vides ou des cellules contenant des données.

Après avoir installé Kutools pour Excel, veuillez suivre les étapes ci-dessous :

1. Sélectionnez une plage de cellules où vous souhaitez insérer les cases à cocher.

2. Cliquez sur Kutools > Insérer > Batch Insert Check Boxes, voir capture d'écran :

3. Ensuite, vos cellules sélectionnées ont été remplies avec les cases à cocher comme le montrent les captures d'écran suivantes :

Insérer des cases à cocher dans des cellules vides	Insérer des cases à cocher dans des cellules contenant des données

Article connexe :

Comment supprimer rapidement plusieurs cases à cocher dans Excel ?