Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment lier des cases à cocher à plusieurs cellules dans Excel?

Lier les cases à cocher à plusieurs cellules relatives peut vous aider à effectuer rapidement et facilement des calculs lorsque vous devez additionner, compter ou faire la moyenne des cellules cochées ou non cochées. Mais, avez-vous déjà essayé de relier les cases à cocher à plusieurs cellules à la fois dans une feuille de calcul?

Lier des cases à cocher à plusieurs cellules avec la formule un par un

Lier des cases à cocher à plusieurs cellules à la fois avec le code VBA


Insérez rapidement plusieurs cases à cocher dans les sélections ta une fois:
Kutools for Excel's Boîtes de contrôle d'insertion par lots utilitaire peut vous aider à insérer rapidement plusieurs cases à cocher à la fois. En savoir plus sur cette fonctionnalité ...
doc-create-combobox22

flèche bleue droite bulle Lier des cases à cocher à plusieurs cellules avec la formule un par un


Pour lier la case à une cellule spécifique, vous pouvez en fait appliquer une formule simple pour les lier manuellement.

1. Après avoir inséré les cases à cocher dans votre feuille de calcul, pour cocher la case, appuyez sur Ctrl Cliquez sur la clé, puis cliquez sur la première case à cocher que vous souhaitez lier à une autre cellule.

2. Ensuite, dans la barre de formule, tapez le signe égal =, puis cliquez sur une cellule que vous souhaitez lier à la case à cocher, B2 par exemple, voir capture d'écran:

doc-link-multiple-cases à cocher-1

3. Et puis appuyez sur Entrer touche sur le clavier, maintenant, lorsque vous cochez cette case, la cellule liée affichera VRAI, si décochez-le, il affichera FAUX, voir capture d'écran:

doc-link-multiple-cases à cocher-2

4. Répétez les étapes ci-dessus pour relier les autres cases un par un.


flèche bleue droite bulle Lier des cases à cocher à plusieurs cellules à la fois avec le code VBA

S'il y a des centaines et des milliers de cases à cocher doivent être liées à d'autres cellules, la première méthode ne fonctionnera pas efficacement, pour les lier à plusieurs cellules à la fois, vous pouvez appliquer le code VBA suivant. S'il vous plaît faites comme ceci:

1. Accédez à votre feuille de calcul avec la liste des cases à cocher.

2. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour Applications fenêtre.

3. Cliquez insérer > Moduleet collez le code suivant dans le Fenêtre du module.

Code VBA: cochez les cases pour plusieurs cellules à la fois

Sub LinkChecks()
'Update 20150310
i = 2
For Each cb In ActiveSheet.CheckBoxes
cb.LinkedCell = Cells(i, "B").Address
i = i + 1
Next cb
End Sub

4. Et puis appuyez sur F5 clé pour exécuter ce code, toutes les cases à cocher dans la feuille de calcul active ont été liées aux cellules, lorsque vous cochez la case, sa cellule relative affichera VRAISi vous désactivez une case à cocher, la cellule liée doit afficher FAUX, voir capture d'écran:

doc-link-multiple-cases à cocher-3

Note: Dans le code ci-dessus, i = 2, le nombre 2 est la ligne de départ de votre case à cocher, et la lettre B est l'emplacement de la colonne où vous devez lier les cases à cocher. Vous pouvez les changer selon vos besoins.


Articles Liés:

Comment sélectionner toutes les cases à cocher en utilisant une seule case à cocher dans Excel?

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

Comment supprimer rapidement plusieurs cases à cocher dans Excel?



Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
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.
    Eyale · 2 months ago
    How about if you have some empty rows in ColumnA (as per your example) in between checkboxes? Using the above code it gets the linked cells wrong if there are empty rows because it does not skip them. Interested to see the solution
  • To post as a guest, your comment is unpublished.
    Richard Anthony · 1 years ago
    Sub LinkCheckBoxes()

    Dim chk As CheckBox

    Dim lCol As Long

    lCol = 1 'number of columns to the right for link



    For Each chk In ActiveSheet.CheckBoxes

    With chk

    .LinkedCell = _

    .TopLeftCell.Offset(0, lCol).Address

    End With

    Next chk



    End Sub
  • To post as a guest, your comment is unpublished.
    Wedzmer Munjilul · 1 years ago
    Hello! Nice post about the VBA...
    but what if there are 3 columns that has checkboxes that needs to be linked in three other columns as well? Let's say columns B, C, and D has checkboxes and should be linked to columns H, I, and J respectively.
    • To post as a guest, your comment is unpublished.
      Paul Forde · 1 years ago
      Hi,

      Having same problem - Have you found out how to get around this?

      Thanks,
      Paul
      • To post as a guest, your comment is unpublished.
        Marcos Grazina · 1 years ago
        Hey,

        Try this:

        Sub LinkCheckBoxes()
        Dim chk As CheckBox
        Dim lCol As Long
        lCol = 2 'number of columns to the right for link

        For Each chk In ActiveSheet.CheckBoxes
        With chk
        .LinkedCell = _
        .TopLeftCell.Offset(0, lCol).Address
        End With
        Next chk

        End Sub



        If you have for example, checkboxes in D,E,F change "Icol" to 1, so it links to G,H and I, respectively.
  • To post as a guest, your comment is unpublished.
    thea · 2 years ago
    Can I do this and program the boxes to say something other than true and false?
  • To post as a guest, your comment is unpublished.
    Louise · 2 years ago
    Hi,

    In your VBA code: link checkboxes to multiple cells at once, the code is set up to link the cell below it. How is the code if I want to link the cell to the left of the first one?

    Thanks!