couleur cellule en cliquant sur un objet

[koko_spv89]

Bonjour

J'aimerai pouvoir colorier la cellule actuellement sélectionnée en cliquant simplement sur un objet (rectangle).

Merci

 

[kjin]

Re : couleur cellule en cliquant sur un objet

Bonjour,
Dans un module standard

Sub Macro1()
ActiveCell.Interior.ColorIndex = 5
End Sub

Click droit sur le rectangle et affecte lui la macro "Macro1"
A+
kjin

 

[Banzai64]

Re : couleur cellule en cliquant sur un objet

Bonjour

Bonjour Kjin

Tu affectes cette macro à ton rectangle

Sub Couleur_cellule()
  ActiveCell.Interior.ColorIndex = 3
End Sub

Bonne journée

 

[koko_spv89]

Re : couleur cellule en cliquant sur un objet

Merci c'est le interior qui me manquait dans mon code!