Colorier une cellule de ligne

[Katoch]

Bonsoir ,

Je souhaiterais obtenir le code pour colorier par un simple clic n'importe qu'elle cellule d'une même ligne en fonction de la couleur de la cellule de référence située en A1 par ex.

Le hic , c'est qu'il me faut ceci pour chaque ligne , qui aura bien sûr une cellule couleur de référence différente (A2 pour ligne 2 , A3 L3 , etc...)

merci, par avance !

 

[Robert]

Re : Colorier une cellule de ligne

Bonsoir Katoch et bienvenu, bonsoir CC, bonsoir le forum,

En pièce jointe une proposition qui réagit au double-clic dans une cellule... Tu double-cliques sur n'importe quelle cellule (autre qu'en colonne A) et elle prend la couleur de la cellule de la même ligne en colonne A.

Le code :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True 'annule le mode édition lié au double-clic
'récupère la coleur de la cellule en colonne A et la place dans la cellule double-cliquée
Target.Interior.ColorIndex = Cells(Target.Row, 1).Interior.ColorIndex
End Sub

Le fichier :

 

[Katoch]

Re : Colorier une cellule de ligne

Extra ! super ! Rapide , efficace , sympa.
Merci Robert.