XL 2013 colorer une cellule en fonction d'une autre

mychoufleur · 28 Juin 2021

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 · 28 Juin 2021

Bonsoir,

VB:

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 · 29 Juin 2021

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,

XL 2013 colorer une cellule en fonction d'une autre

mychoufleur

XLDnaute Nouveau

Pièces jointes

laurent950

XLDnaute Barbatruc

mychoufleur

XLDnaute Nouveau

Discussions similaires