XL 2013 colorer une cellule en fonction d'une autre

[mychoufleur]

Bonjour à tous et toutes,

J'ai cherché en vain une solution à mon soucis, j'ai expliqué dans le doc ce que je souhaite faire en espérant avoir été assez précise et que quelqu'un trouve une solution, cela me ferais gagner un temps précieux, d'avance merci à la communauté !

 

[laurent950]

Bonsoir,

Sub Color()
' colorer une cellule en fonction d'une autre
'
' En fonction d'une autre = Rgn
Dim rgn As Range
    Set rgn = Range(Cells(1, 1), Cells(1, 1))
'
' colorer une cellule = ActiveCell
With ActiveCell.Interior
    .Pattern = rgn.Interior.Pattern
    .PatternColorIndex = rgn.Interior.PatternColorIndex
    .Color = rgn.Interior.Color
    .TintAndShade = rgn.Interior.TintAndShade
    .PatternTintAndShade = rgn.Interior.PatternTintAndShade
End With
'
End Sub

 

[mychoufleur]

Bonjour Laurent950,

Je vous remercie beaucoup d'avoir pris le temps de trouver une solution.

Malheureusement, je n'y connais rien en macro mais je vais surement pouvoir regarder sur ce site comment l'appliquer dans mon fichier.

Si vous avez une autre solution sans macro ce serait super,

Merci d'avance,