Lier cellules sur cases à cocher Résolu

Question

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.

f894009 · Answer

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

Heikro · Answer

Il y a un message d'erreur à la fin mais ça a marché, du coup c'est bon merci.

Lier cellules sur cases à cocher

2 réponses

Discussions similaires

Newsletters