Lier cellules sur cases à cocher [Résolu/Fermé]

Signaler
Messages postés
40
Date d'inscription
mardi 28 mai 2013
Statut
Membre
Dernière intervention
5 mars 2019
-
Messages postés
40
Date d'inscription
mardi 28 mai 2013
Statut
Membre
Dernière intervention
5 mars 2019
-
Bonjour,

j'ai dans un formulaire des cases à cocher sur 4 colonnes d'une centaine de lignes. Je voudrais savoir si il est possible de lier chaque case à cocher aux cellules correspondante d'une autre feuille (sans le faire manuellement bien sûr...)
Exemple : case à cocher qui est cellule B2 feuille 1 -> liée à cellule B2 feuille 2. case à cocher qui est cellule B3 feuille 1 -> liée à cellule B3 feuille 2, etc...

Merci d'avance.

2 réponses

Messages postés
15391
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
25 octobre 2020
1 383
Bonjour,

valable si les checkboxs sont dans l'ordre des cellules sur feuil1

Sub Macro1()
'
' Macro1 Macro excel2007
'
    Dim nom_check As String
'boucle:
'a parametrer
    nb_check = 1
    For x = 1 To nb_check
        nom_check = "Check Box " & x
        ActiveSheet.Shapes("Check Box " & x).Select
        With Selection
            .LinkedCell = "Feuil2!$B" & x + 1
        End With
    Next x
End Sub



Sub Macro1()
'
' Macro1 Macro excel 2010 et plus
'
    Dim nom_check As String
'boucle:
'a parametrer
    nb_check = 1
    For x = 1 To nb_check
        nom_check = "Check Box " & x
        ActiveSheet.Shapes.Range(Array("Check Box " & x)).Select
        With Selection
            .LinkedCell = "Feuil2!$B" & x + 1
        End With
    Next x
End Sub


a voir
Messages postés
40
Date d'inscription
mardi 28 mai 2013
Statut
Membre
Dernière intervention
5 mars 2019
8
Il y a un message d'erreur à la fin mais ça a marché, du coup c'est bon merci.