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

tototiti2008

XLDnaute Barbatruc

• 7 Septembre 2011

• #2

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

Bonjour chrismah,

Bienvenue sur XLD,

Peut-être

Code:

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

 

Vote positif 0 Vote négatif

C

chismah

Guest

• 7 Septembre 2011

• #3

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!

 

Vote positif 0 Vote négatif

C

chismah

Guest

• 7 Septembre 2011

• #4

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.

 

Vote positif 0 Vote négatif

C

chismah

Guest

• 7 Septembre 2011

• #5

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

J'ai trouvé!

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

Code:

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!

 

Vote positif 0 Vote négatif