Colorier une ligne selon une cellule

Gysmo

XLDnaute Junior
Bonjour

voici mon problème

Dans la colonne H je mets des valeurs de 1 à 6. J'aimerais faire une macro qui prend cette valeur et colorie toute la ligne d'une couleurs fixe selon la valeur(de A à G)
Ex:
Si H4=1 alord de A4 à G4 la couleur est rouge
H5 =3 alord de A5 à G5 la couleur est vert
H6=6 alord de A6 à G6 la couleur est orange

Donc il faut vérifier toute la colonne H car le nombre de ligne est variable dans mon tableau

Merci
 

argon1515

XLDnaute Junior
Re : Colorier une ligne selon une cellule

Bonjour a tous,
Je te met en PJ un classeur contenant une macro trouvé sur ce forum.
Tu peux l'adapter à tes besoins.
Alt F11 pour voir le code
Bon week end
 

Pièces jointes

  • MFC plus de 3 critéres.xls
    20.5 KB · Affichages: 651

jeanpierre

Nous a quitté
Repose en paix
Re : Colorier une ligne selon une cellule

Bonjour à tous,

Pour argon et pour de bonnes habitudes,

il eut été préférable de mettre le lien du fil en question et le nom du fichier, éventuellement l'heure, plutôt que rereredéposer un fichier (mille fois fait).

Si j'ai bien compris, un lien vers la version (la dernière, si elle a été modifée)....

Ce lien n'existe plus, descendre et MFC vers le bas

Bon week-end, un peu en avance.
 

wilfried_42

XLDnaute Barbatruc
Re : Colorier une ligne selon une cellule

Bonjour à tous

Il serait souhaitable d'avoir plus de detail, une Condition de mise en forme peut prendre des formes assez complexes, comme mes collegues, je m'oriente vers une MFC

Donc un fichier exemple, avec les conditions que tu cherches, et tu auras ta formule

maintenant si tu as plus de 3 couleurs à placer, regarde le fichier joint
 

Pièces jointes

  • Wilfried_MFC_MULTIPLE_V5.1.zip
    48.8 KB · Affichages: 369
  • Wilfried_MFC_MULTIPLE_V5.1.zip
    48.8 KB · Affichages: 359
  • Wilfried_MFC_MULTIPLE_V5.1.zip
    48.8 KB · Affichages: 360
Dernière édition:

veesti

XLDnaute Nouveau
Re : Colorier une ligne selon une cellule

Salut,
Voici une macro qui marche bien, qui permet de colorier une ligne d'une certaine couleur selon la valeur d'une de ses cellules:

Sub MEFC()
'
' Mise en forme conditionnelle
'
Dim RngCell As Range

Sheets("maison").Select

For Each RngCell In Range("C10:AB19").Cells
If RngCell.Value = "A" Then RngCell.EntireRow.Interior.ColorIndex = 3
If RngCell.Value = "B" Then RngCell.EntireRow.Interior.ColorIndex = 6
Next RngCell
Range("A1").Select

End Sub

Je l'ai trouvé sur ce forum, je ne sais plus où, mais elle marchait uniquement pour le coloriage des cellules. Là c'est pour toute une ligne...
Voila, bonne journée

Veesti
 

Discussions similaires

Statistiques des forums

Discussions
312 490
Messages
2 088 879
Membres
103 981
dernier inscrit
vinsalcatraz