Coloration ligne Automatique suivant condition

Bonjour à tous,

je cherche à automatiser un fichier de suivi dans Excel. Actuellement je suis en train d'essayer de mettre au point un code me permettant de colorier une ligne en une certaine couleur suivant le critère qui est indiqué dans une colonne.

Voici le code que j'ai créé:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub Bouton2_Cliquer()   'coloration ligne suivant statut   Dim ligne As Integer   For ligne = 6 To 150 If (Cells(2, ligne).Value = "fermé") Then With Rows(ligne).Select .Color = RGB(166, 166, 166) End With End If   If (Cells(2, ligne).Value = "ouvert") Then With Rows(ligne).Select .Color = RGB(0, 176, 80) End With End If   Next ligne   End Sub

---

Ce code n'est pas fonctionnel actuellement. Pourriez-vous m'indiquer où son mes erreurs svp?

Merci d'avance :)

Bonjour,

Citation:

---

Envoyé par My_DiDi

Pourriez-vous m'indiquer où son mes erreurs svp?

---

L'erreur c'est d'utiliser VBA alors qu'une MFC suffirait.
Il faut toujours penser Excel avant d'envisager VBA.

Salut.

Je plussoie Patrice, tant sur la remarque générale concernant Excel que sur l'utilisation de la mise en forme conditionnelle qui fait partie des outils natifs d'Excel et qui a été remise en évidence dans le ruban en intégrant l'onglet Accueil. L'avantage d'utiliser la Mise en Forme Conditionnelle (MFC) est que si tu changes la valeur d'une cellule, sa MFC sera adaptée en temps réel⁽¹⁾ alors qu'avec une solution VBA, tu devras relancer le code (sauf écoute de l'évènement Change, mais nous n'en sommes pas là).

Le code que tu donnes, ainsi que la boucle, me laisse penser que tu n'utilises pas les tableaux structurés. Ce serait pourtant une bonne chose.


Voici ce que tu pourrais réaliser sur base d'un tableau structuré dont tu sélectionnes la plage de données (te mettre en A2 puis CTRL+A). Tu vas en MFC via l'onglet Accueil/Mise en forme conditionnelle/Nouvelle règle, tu choisis "Utiliser une formule" et tu saisis la formule =($B2="Fermé") (Attention, tant le $ que le fait que A2 soit actif ont leur importance ici).


Pièce jointe 592626



Pour info, dans ton code, tu as inversé les lignes et les colonnes dans Cells(2, Ligne), il n'est pas nécessaire de sélectionner une cellule pour jouer avec, et en général, pour itérer sur les lignes d'une feuille, on utilise un entier long pour ne pas être limité à 32.767 lignes ;)



⁽¹⁾ En cas de calcul manuel, il faudra parfois le recalcul pour adapter la MFC selon la configuration du classeur.