copier la couleur d'un bouton dans une cellule

[pascal21]

bonjour le forum
je cherche à appliquer dans des cellules la couleur d'un bouton en cliquant sur celui ci
ou si vous préferez
je sélectionne une cellule et en cliquant sur un bouton et la cellule prend la couleur de ce bouton
je ne connais pas la syntaxe de" selection.copy commandbutton1.fondcolor"
merci de votre aide

 

[Pierrot93]

Re : copier la couleur d'un bouton dans une cellule

Bonjour Pascal

regarde le code ci-dessous, devrait fonctionner si la couleur du bouton ea été définie dans la palette...

ActiveCell.Interior.Color = CommandButton1.BackColor

bonne journée
@+

 

[pascal21]

Re : copier la couleur d'un bouton dans une cellule

bonjour pierrot
comme ça n'avait pas l'air de fonctionner facilement j'ai contourné le problème

Private Sub CommandButton5_Click()
ActiveCell.Interior.Color = Range("c10").Interior.Color
End Sub

je copie la couleur d'une cellule,tout bêtement
merci