Changer "BackColor" et "LinkedCell" par macro

[François]

Bonjour à tous

Dans une feuille Excel comportant plus de 100 "CheckBox" (ActiveX, pas formulaire) quelle est la syntaxe d'une macro pour changer la couleur de fond(BackColor) et la cellule liée(Linkedcell) sans passer par la feulle de propriété de chacun des contrôles.

Merci d'avance à tous

François.

 

[François]

ReBonjour

Je me réponds tout seul.

J'ai trouvé pour LinkedCell :

Sub Lier_cellule()

Dim i As Byte

For i = 2 To 100

ActiveSheet.Shapes("CheckBox" & i).Select

With Selection
.LinkedCell = "F" & i
End With

Range("F" & i).Formula = "0"

Next i

End Sub

Si il y a une syntaxe plus concise merci de me le dire.

Je n'ai toujours pas trouvé pour Backcolor.

Merci à tous

Francois