Colorier des lignes

[sylvain]

Bonjour a tous.
Je suis débutant en VBA et je désirerais faire une macro:

Pour chaque cellule dans la colonne AE (de 2 a 5000) faire
si la valeur de la cellule est <0 alors
colorier toute la ligne correspondante (de A a AF) en rouge
finsi
finpour

 

[Yo]

Salut,
Essaye ça :

Sub Colorier_Ligne()
For i = 2 To 5000
If Cells(i, 31) < 0 Then Range(Cells(i, 1), Cells(i, 32)).Interior.ColorIndex = 3
Next i
End Sub

Je te joins un fichier exemple.

 

[Jean-Marie]

Bonjour, Sylvain

Il est possible de le faire sans VBA. Il faut utliser le format conditionnel des cellules

1) Selectionne la plage A2:AF5000, astuce : pour plus de faciliter, clique sur le menu Edition/Atteindre, dans le champ du bas, tu tapes A2:AF5000 et tu valide, excel à sélectionner la plage à ta place.

2) Clique sur le menu Format/Mise en forme conditionnelle, dans la boîte de dialogue, change la valeur de la cellule par la formule est puis dans le champ juste à côté,indique cette formule =$AE2<0, puis clique sur format, donne les caractéristiques voulues. Valide deux fois.

Bonne journée
@+Jean-Marie

 

[sylvain]

Merci beaucoup et surtout merci pour la rapidité!

Bonne journée

 

[sylvain]

Merci beaucoup et bonne journée a toi aussi.