Résolu [Excel] colori selon critère

Résolu [Excel] colori selon critère - VB/VBA/VBS - Programmation

Marsh Posté le 12-12-2007 à 09:38:36    

Bonjour,
 
je me pose une question sur la mise en forme conditionnelle.
Je l'applique à une plage donnée mais j'aimerai que la ligne entière et non seulement la cellule concernée soit coloré.
 
Voici mon code que j'ai récupéré via l'enregistrement de macro:
 

Code :
  1. Columns("B:B" ).Select
  2.     Selection.FormatConditions.Delete
  3.     Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
  4.         Formula1:="450", Formula2:="500"
  5.     Selection.FormatConditions(1).Font.ColorIndex = 5
  6.     Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
  7.         Formula1:="500", Formula2:="30000"
  8.     Selection.FormatConditions(2).Font.ColorIndex = 3


 
mon tableau est de la forme suivante:
 
A1 | B1 | C1
A2 | B2 | C2
A3 | B3 | C3
......
 
 
 
Merci de votre aide.


Message édité par numrobis le 14-12-2007 à 09:17:01

---------------
- Feed-back - - Jeu du moment: J’ai un backlog monstre sur Switch - C'est moi Bananecafe
Reply

Marsh Posté le 12-12-2007 à 09:38:36   

Reply

Marsh Posté le 14-12-2007 à 09:16:50    

Voici la solution:
 

Code :
  1. Range("A1" ).CurrentRegion.Select
  2.   Selection.FormatConditions.Delete
  3.   Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
  4.       "=ET($B1>=450;$B1<=500)"
  5.   Selection.FormatConditions(1).Font.ColorIndex = 5
  6.   Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
  7.       "=ET($B1>=500;$B1<=3000)"
  8.   Selection.FormatConditions(2).Font.ColorIndex = 3


 
 :hello:


---------------
- Feed-back - - Jeu du moment: J’ai un backlog monstre sur Switch - C'est moi Bananecafe
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed