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

Comment insérer rapidement plusieurs cases à cocher dans Excel? Veuillez suivre ces méthodes délicates dans Excel:

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

Insérer plusieurs cases à cocher avec le code VBA

Insérez et supprimez plusieurs cases à cocher en un seul clic à l'aide de Kutools for Excel

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

Dans Excel, Fill Handle est une fonction puissante pour faire beaucoup de choses. Il peut également remplir les cases à cocher. Tout d'abord, vous devez insérer une case à cocher. Procédez comme suit:

1Cliquez 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 la capture d'écran:

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

3. Cochez la case et déplacez-la dans une cellule, puis supprimez le nom de la case à cocher.

4. Sélectionnez ensuite la cellule dans laquelle la case à cocher reste. Puis faites glisser la poignée de recopie sur la plage de cellules que vous souhaitez remplir. Voir la capture d'écran:

Insérer plusieurs cases à cocher avec le code VBA

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

1Cliquez sur Développeur > Visual Basic, Un nouveau Microsoft Visual Basic pour les applications la fenêtre s'affichera, cliquez sur insérer > Moduleet 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 clique bouton pour exécuter le code. Et une boîte de dialogue apparaîtra pour vous rappeler de sélectionner une plage de cellules dans laquelle vous souhaitez insérer les cases à cocher. Voir la capture d'écran:

3. Et puis cliquez OK, les cases à cocher ont été insérées dans la gamme proprement et magnifiquement. Voir la capture d'écran:

Insérez plusieurs cases à cocher avec Kutools for Excel

Ici, je peux vous présenter un moyen simple et pratique d'insérer plusieurs cases à cocher-Kutools for Excel, Avec son Case à cocher Insertion par lots fonctionnalité, vous pouvez insérer les cases à cocher dans des cellules vides ou des cellules avec des données.

Après l'installation de Kutools for Excel, veuillez suivre les étapes suivantes:

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

2Cliquez sur Kutools > insérer > Cases à cocher d'insertion par lots, voir capture d'écran:

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

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

Insérer et supprimer plusieurs cases à cocher avec Kutools for Excel

Article connexe:

Comment supprimer rapidement plusieurs cases à cocher dans Excel?