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
le code pour ce faire n'est pas à mettre dans l'événement Change mais :
Code:
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
le code pour ce faire n'est pas à mettre dans l'événement Change mais :
Code:
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
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 :
Code:
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