XL 2019 case a cocher

[toffduq]

bonjour
j'utilise cette macro pour copié des case à cocher (trouvé sur ce forum)
mais comment faire pour qu'elle garde la suite des cellules sélectionne de la 1er case a cocher
exemple de ma 1er case :
feuil1 B4 case à cocher
Feuil2!$B$4 vrai ou faux
merci pour votre aide

Private Sub Worksheet_Change(ByVal Target As Range)
Dim s As Shape
On Error Resume Next
For Each s In Me.Shapes
s.ControlFormat.LinkedCell = s.TopLeftCell.Offset(, 1).Address
Next
End Sub

 

[fanch55]

Bonjour,
Je ne vois pas trop ce que vous demandez,
Mais si c'est :

feuil1 B4 case à cocher
Feuil2!$B$4 vrai ou faux

le code pour ce faire n'est pas à mettre dans l'événement Change mais :

Private Sub Worksheet_Activate()
Dim Ckb As CheckBox
    For Each Ckb In Me.CheckBoxes
        Ckb.LinkedCell = "Feuil2!" & Ckb.TopLeftCell.Offset(, 1).Address
    Next
End Sub

 

[toffduq]

Bonjour,
Je ne vois pas trop ce que vous demandez,
Mais si c'est :

le code pour ce faire n'est pas à mettre dans l'événement Change mais :

Private Sub Worksheet_Activate()
Dim Ckb As CheckBox
    For Each Ckb In Me.CheckBoxes
        Ckb.LinkedCell = "Feuil2!" & Ckb.TopLeftCell.Offset(, 1).Address
    Next
End Sub

c'est pile ce que je voulais
merci pour votre aide