XL 2010 colorer une ligne de la même couleur qu'une cellule qui contient une MFC

[SANDRA2012]

Bonjour,

Voici mon tableau :

J'ai une mise en forme conditionnnelle dans la colonne F et je souhaiterais faire une macro qui colore toute ma ligne à l'identique de ma cellule correspondante : soit ligne 3 (A à K) de le même couleur que F3 et ainsi de suite. Si quelqu'un peut m'aiguiller
Merci d'avance

Bonne fin de journée

 

[JBOBO]

Bonjour,
Sans fichier , pas sur que mon idée fonctionne, mais dans mise en forme conditionnelle / gerer les regles / s'applique à, tu indiques la ou les lignes concernées, par exemple au lieu de F3:F10, tu mets $1:$10.

 

[JHA]

Bonjour à tous,
Bonjour JBOBO

Sur ton image, il faut mettre MFC/Gérer les règles/s'applique à $A$3:$K$11 pour les lignes 3 à 11

JHA

 

[DoubleZero]

Bonjour, SANDRA2012, JBOBO, JHA , le Forum,

Autre possibilité, par macro dans un module standard.

Option Explicit
Sub Ligne_couleur_x()
'adapation d'un code de eriiic (merci !)
    Dim c As Range
    Columns(6).Interior.Color = xlNone
    For Each c In Columns(6).SpecialCells(xlCellTypeAllFormatConditions)
        c.EntireRow.Interior.Color = c.DisplayFormat.Interior.Color
    Next
End Sub

A bientôt

 

[SANDRA2012]

Je ne peux pas faire comme ça avec la MFC que j'ai faite , je vous joint mon fichier

 

[SANDRA2012]

Pour la macro c'est tout à fait ce que je voulais ! juste une dernière question je souhaiterais que la couleur s'arrête à la fin de mon tableau soit en colonne K et ligne 1000 ou maximum
merci d'avance

 

[JHA]

Re bonjour à tous,
Bonjour Double Zero
Voir exemple sur fichier, il ne faut pas prendre la valeur de la cellule mais mettre une formule

JHA

 

[SANDRA2012]

parfait ! merci beaucoup à tous pour votre aide

 

[SANDRA2012]

c'est parfait ! merci à tous pour votre aide
bonne fin de journée

 

[DoubleZero]

Re-bonjour,

... je souhaiterais que la couleur s'arrête à la fin de mon tableau soit en colonne K et ligne 1000 ou maximum...

Comme ceci ?

Option Explicit
Sub Couleur_x_de_a_à_k()
   Dim c As Range
    Columns(6).Interior.Color = xlNone
    For Each c In Columns(6).SpecialCells(xlCellTypeConstants).SpecialCells(xlCellTypeAllFormatConditions)
        c.Offset(, -5).Resize(, 11).Interior.Color = c.DisplayFormat.Interior.Color
    Next
End Sub

A bientôt