[RESOLU] attribution valeur linked cell à toutes les checkbox de la feuille

[chismah]

Bonjour,

J'ai une feuille avec de très nombreuses checkbox (plus de 1000)
je souhaiterais attribuer comme valeur linked cell pour chacune des checkbox la cellule dans laquelle se trouve la checkbox (et qu'à la fin de la manip elles soient décochées).
Je débute en VBA, j'ai essayer d'adapter différents codes trouvé sur divers forum sans succès.

Pouvez vous m'aider?

Merci d'avance

 

[tototiti2008]

Re : attribution valeur linked cell à toutes les checkbox de la feuille

Bonjour chrismah,

Bienvenue sur XLD,

Peut-être

Sub Test()
Dim CC As Object
    For Each CC In ActiveSheet.CheckBoxes
        CC.LinkedCell = CC.TopLeftCell.Address(True, True, xlA1)
        CC.Value = xlOff
    Next CC
End Sub

 

[chismah]

Re : attribution valeur linked cell à toutes les checkbox de la feuille

bon ben cela ne fonctionne pas!

les checkbox ont été crées à partir de la barre d'outils contrôle (pour info, je sais pas si cela fait une différence)
dans les propriétés des checkbox, la valeur linked cell reste vierge après exécution de la macro (je l'ai placée dans feuille1)

que représente "CC"?

merci!

 

[chismah]

Re : attribution valeur linked cell à toutes les checkbox de la feuille

Sinon

est-il possible de définir une plage de cellule pour laquelle créer une checkbox centrée dans chaque cellule avec le linkedcell = address (,0), le backstyle en transparent.

j'avoue ne pas savoir par quel bout prendre la rédaction d'un tel code.

Merci d'avance.

 

[chismah]

Re : attribution valeur linked cell à toutes les checkbox de la feuille

J'ai trouvé!

j'ai modifier le code As Objects par As OLEObjects!

Sub Test()
Dim CC As OLEObject
    For Each CC In ActiveSheet.OLEObjects
        CC.LinkedCell = CC.TopLeftCell.Address(0, 0)
    Next CC
End Sub

merci beaucoup tototiti!