insérer une couleur dans cellule

[BBRT14]

Bonjour,
je cherche une solution pour insérer une couleur dans plusieurs cellules par un double clic

Ex:
A3 = bleu
B3 = Vert
C3 = orange

Si je clic sur A3 j'aimerai que D3; E3;F3 prennent la couleur bleu
Idem pour B3 et C3
Sachant que les cellules possèdent des formules et des MFC
Merci de votre aide

 

[phlaurent55]

Re : insérer une couleur dans cellule

Bonjour BBRT

Sachant que les cellules possèdent des formules et des MFC

je crains qu'il ne soit possible de récupérer les couleurs des cellules si celles-ci sont colorées via une MFC

pour ce que tu demandes, il faudra ( dans la macro),utiliser les formules de la MFC pour "peindre" les cellules en colonne D, E & F

à+
Philippe

 

[xltools]

Re : insérer une couleur dans cellule

Bonjour

Dans la procédure SelectionChange() de la feuille courante insérez ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("D3").Interior.ColorIndex = Target.Interior.ColorIndex
Range("E3").Interior.ColorIndex = Target.Interior.ColorIndex
Range("F3").Interior.ColorIndex = Target.Interior.ColorIndex
End Sub


Hanane.

 

[BBRT14]

Re : insérer une couleur dans cellule

Merci à vous deux 😉

xltools la procédure fonctionne nickel