Colori selon critère

[numrobis]

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.

 

[Banzai64]

Re : Colori selon critère

Bonjour

Tu peux remplacer

Columns("B:B" ).Select

par

  Range("A1").CurrentRegion.Select

 

[numrobis]

Re : Colori selon critère

Ah oui j'ai oublié de préciser que la colonne B est la seule à contenir des chiffres.

Dans les colonnes A & C il y a des lettres.

Merci à toi.

 

[Banzai64]

Re : Colori selon critère

Bonjour

A tester

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

 

[numrobis]

Re : Colori selon critère

Bonjour

A tester

Je te remercie.
Ca fonctionne nikel.

Je vais essayer de décortiquer tout ça.