XL 2019 case a cocher

toffduq

XLDnaute Occasionnel
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

VB:
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
 

Discussions similaires

Statistiques des forums

Discussions
312 933
Messages
2 093 734
Membres
105 803
dernier inscrit
metroMBP