XL 2010 Couleur de cellule en fonction de

[Myst]

Bonjour le forum
je suis en cours de modification de mon fichier planning et je cherche a modifier la couleur de certaine cellule en fonction d'autre, j'ai joint un petit fichier avec tous les détails
merci

 

[vgendron]

Hello,

voir PJ pour une solution

 

[vgendron]

Ou peut etre ce code ci..

Sub coloration()
LastLigne = Range("E" & Rows.Count).End(xlUp).Row
LastColonne = Range("E2").End(xlToRight).Column

'mise à jour de la couleur de police selon la colonne D
For i = 3 To LastLigne
    CouleurPolice = Range("D" & i).Font.ColorIndex
    Range("E" & i).Resize(1, LastColonne - 4).Interior.ColorIndex = CouleurPolice
Next i

'mise à jour de la couleur de cellule (gris) selon le contenu de la ligne 2
For j = 5 To LastColonne
'    MsgBox Cells(2, i).Font.ColorIndex
    If Cells(2, j).Font.ColorIndex = 1 Then
        Cells(3, j).Resize(LastLigne - 2, 1).Interior.ColorIndex = 16 'gris
    End If
    'mise à jour en rouge des cellules vides  et police "blanc" en ligne 2
    If Cells(2, j).Font.ColorIndex = 2 Then 'couleur blanc
        For k = 3 To LastLigne
            If Cells(k, j) = "" Then Cells(k, j).Interior.ColorIndex = 3 'couleur Rouge
        Next k
    End If
       
Next j

End Sub

 

[Myst]

Bonjour le forum, vgendron
tout d'abord merci pour tes solutions
le deuxième code répond parfaitement a m'a demande sauf pour faire passer les cellules en gris lorsque les textes en ligne 2 sont noir et les cellules vident de E3 A P23
J'ai essayé de modifié quelque peu mais sans succès
merci

 

[vgendron]

hello
Je ne sais pas ce que tu as modifié car dans le fichier V2 que tu as posté.. il n'y a aucune macro.

et de mémoire.. dans ton premier fichier.. le texte noir. n'est pas vraiment noir... l'indice couleur n'est pas 1
d'ailleurs dans mon code, comme ca ne marchait pas. j'avais mis un msgbox, qui est resté en commentaire
MsgBox Cells(2, i).Font.ColorIndex
et lorsque je passais sur ces colonnes à griser. l'indice couleur était de -4125

vérifie.. et du coup. suffirait soit de changer la condition
If Cells(2, j).Font.ColorIndex = 1 Then 'mettre -4125 à la place 1
soit de selectionner le texte noir.

 

[Myst]

Hello
Je n'aurais jamais pensé a ça, dans le fichier complet je passe le texte en noir par une macro et au lieu de définir la couleur noir par "1" il y a ça "xlAutomatic"
j'ai donc remplacé par "xlAutomatic" dans le code que tu m'as donné et sa fonctionne
encore un grand merci