Coloriser des lignes suivant un critère

Résolu/Fermé

mijean94 Messages postés 415 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 16 mars 2025 - 11 août 2021 à 10:34
mijean94 Messages postés 415 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 16 mars 2025 - 11 août 2021 à 12:47

Bonjour à tous,

Ce que j'aimerais réaliser en vba :

J’ai un tableau avec des données sur x lignes (dans l’exemple 1 à 4 ).
Je souhaite coloriser chaque ligne une fois en blanc l’autre fois en grisé en fonction du critère de la colonne E si celle-ci change de valeur, uniquement les colonnes A à E par exemple.

A B C D E
1 Rouge vert bleu noire violer
2 Violet rose gris violet rouge
3 vert marron jaune rouge rouge
4 gris jaune noir rose vert

Pour le tableau ci-dessous le résultat serait :

Ligne 1 : blanc
Ligne 2 : grisée
Ligne 3 : grisée
Ligne 4 : blanc
Et ainsi de suite …

Merci par avance de votre aide.

Bien cordialement

A voir également:

Coloriser des lignes suivant un critère
Suivi des modifications word - Guide
Partager des photos en ligne - Guide
Excel trier par ordre alphabétique en gardant les lignes - Guide
Écrire plusieurs lignes dans une cellule excel mac - Guide
Comment supprimer des lignes dans un tableau word - Guide

4 réponses

Réponse 1 / 4

via55 Messages postés 14512 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 janvier 2025 2 742
11 août 2021 à 12:07

Bonjour

A adapter :

Public col As Integer

Sub colorer()
col = 2
maxligne = Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row 'dernière ligne remplie

For n = 2 To maxligne
    If Range("E" & n) <> Range("E" & n - 1) Then
    If col = 2 Then col = 15 Else col = 2 '2 est code couleur excel pour blanc et 15 pour gris
    End If
Range("A" & n & ":E" & n).Interior.ColorIndex = col
Next

End Sub

Cdlmnt
Via

mijean94 Messages postés 415 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 16 mars 2025 11
11 août 2021 à 12:19

Merci je vais mettre en place.

bien cordialement

mijean94 Messages postés 415 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 16 mars 2025 11
11 août 2021 à 12:41

j'ai un petit pb que je ne comprend pas.

lorsque je lance la procédure elle bloque sur maxligne : variable non définie ?

merci de l'aide

bien cordialement

mijean94 Messages postés 415 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 16 mars 2025 11
11 août 2021 à 12:47

j'ai trouvé la solution en ajoutant : Dim maxligne As Variant

Réponse 2 / 4

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
11 août 2021 à 10:43

Bonjour,

pas besoin de vba:

https://www.pcastuces.com/pratique/astuces/4180.htm

Réponse 3 / 4

mijean94 Messages postés 415 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 16 mars 2025 11
11 août 2021 à 10:50

Bonjour,

Merci pour cette réponse.

dans mon la colorisation n'est jamais la même fonction du critère de la colonne E

il faut par exemple 8 lignes blanches, 1 ligne gris, puis 4 lignes blanches, et 2 lignes grises cela change. de plus mon programme est protégé en VBA après un traitement de mise en forme lignes et colonnes, mais je ne trouve pas la solution pour ajouter la colorisation en vba, le pourquoi de ma question.

Bien cordialement

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
Modifié le 11 août 2021 à 11:45

Voir ceci:

https://www.excel-pratique.com/fr/vba/couleurs

https://www.excel-pratique.com/fr/vba/liste-couleurs-rgb

A adapter:

Sub couleur()
Dim j As Long
For j = 1 To Range("A65000").End(xlUp).Row 'boucle colonne A
If Cells(j, 5).Value = "rouge" Then 'colonne E
'Rows(j & ":" & j).Interior.Color = RGB(224, 224, 255) 'a adapter
Rows(j & ":" & j).Interior.Color = 14540253  'a adapter
End If
Next j
End Sub

Voilà

mijean94 Messages postés 415 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 16 mars 2025 11 > cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024
Modifié le 11 août 2021 à 12:00

Merci pour cette réponse,

j'ai l'impression que je n'ai pas bien expliqué mon problème ou je ne comprend pas bien le code.

le changement de couleur dépend du changement de désignation dans la colonne E , ( il est limité à x colonnes) mais ça peut-être n'importe quoi dans la cellule E, une date un nom qui ce suit au minimum deux ou x fois donc les lignes restent de la même couleur, grisées ou blanc suivant celle d'avant.

et la procédure s'arrête lorsque la case en E est vide.

bien cordialement

Réponse 4 / 4

PapyLuc51 Messages postés 4485 Date d'inscription dimanche 3 mai 2009 Statut Membre Dernière intervention 12 mai 2025 1 471
11 août 2021 à 12:15

Salutations à tous,

Si j'ai bien compris, inutile pour le blanc si le fond est déjà blanc

Pour le gris 2 MFC ; une qui concerne uniquement la ligne 1 et une autre pour les autres lignes

ligne 1

=ET($E1<>"";$E1=$E2)

autres lignes

=ET($E2<>"";OU($E2=$E3;NB.SI($E1:$E2;$E2)=2))

https://www.cjoint.com/c/KHlkkhtpR7S

Cordialement

mijean94 Messages postés 415 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 16 mars 2025 11
11 août 2021 à 12:20

Merci pour l'aide, je vais tester aussi cette solution.

bien cordialement

Discussions similaires

ordre alphabetique sous word

remettre toutes les colonnes et les lignes masquées

Probleme d'affichage de ligne dans Excel

Impossible d'afficher ou de masquer lignes et colonne excel 2007

re-afficher des colonnes masquées