XL 2019 case a cocher

toffduq · 12 Décembre 2022

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

fanch55 · 13 Décembre 2022

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

toffduq à dit:
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 :

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

fanch55 · 13 Décembre 2022

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

toffduq à dit:
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 :

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

toffduq · 13 Décembre 2022

fanch55 à dit:
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

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

XL 2019 case a cocher

toffduq

XLDnaute Occasionnel

fanch55

fanch55

XLDnaute Barbatruc

toffduq

XLDnaute Occasionnel

Discussions similaires

XL 2019 case a cocher

toffduq

XLDnaute Occasionnel

fanch55

XLDnaute Barbatruc

toffduq

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency