copier couleur de fond d'une cellule

[pascal21]

bonsoir
je cherche le code qui permet de copier la couleur de fond de la cellule de la colonne A sur la me^me ligne
exemple:
la cellule A10 est colorée en rouge, je sélectionne b10:f10 et sur un double clic ou un clic droit, celles ci prennent la couleur rouge
la couleur peut changer en fonction de la ligne ainsi que la zone de recopie
merci de votre aide
edit les couleurs ne sont pas issues de MFC

 

[youky(BJ)]

Re : copier couleur de fond d'une cellule

Bonsoir,
Voici une solution avec le click droit de souris

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Selection.Interior.ColorIndex = Cells(Target.Row, 1).Interior.ColorIndex
End Sub


Bruno

 

[pascal21]

Re : copier couleur de fond d'une cellule

bonsoir youky
merci ça fonctionne parfaitement je vais juste rajouter une ligne pour le réserver à une zone de cellules