Colorier une ligne selon une cellule

  • Initiateur de la discussion Initiateur de la discussion Gysmo
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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.
 
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

Dernière édition:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
393
Réponses
5
Affichages
314
Retour