ligne en couleur selon condition

[MGexcel]

bonjour,

je débute en excel, et je voudrais savoir comme réaliser la macro suivante:
-----------------------------------------
Pour toutes les cases F1 à F500 {
Si ( contenu de FX > yyy ET contenu de FX < zzz )
{
Alors colorier toute la ligne en couleur X
}
}
-----------------------------------------

merci d'avance

 

[gagletor]

Bonjour,

Dans le menu format de excel tu as une fonction mise en forme conditionelle.

A bientôt

 

[MGexcel]

la mise en forme conditionnelle ne met oblige à entrer à la main les conditions (elles sont nombreuses) et ce pour chaque fichier excel que je dois traiter.

Je voudrais une macro qui puisse faire de manière automatique ce traitement. Je ne sais pas si cela est possible en Basic.

Merci

 

[JPM]

Bonjour,

Tu peux essayer le code suivant :

Sub MGexcel()
  Dim c As Range
  Dim mini As Integer, maxi As Integer
  mini = 40
  maxi = 60
  For Each c In Range('F1:F5000')
    If c > mini And c < maxi Then
      c.EntireRow.Interior.ColorIndex = 7 'magenta
    Else
      c.EntireRow.Interior.ColorIndex = xlNone
    End If
  Next
End Sub

Bonne journée

Jean-Pierre

 

[MGexcel]

merci, ça marche Nickel !!!

 

[PascalXLD]

Nouvelle question de MGexcel

Bonjour,

si on essaye d'améliorer un peu l'algorithme en ne donnant pas en dur le nombre de lignes à traiter:
l'algorithme trouve lui même la fin de fichier et s'arrête de colorier les lignes. (ce qui évite d'éditer chaque fois la macro... surtout qu'elle est dans le perso.xls)

Est ce que c possible ? si oui, quelle est la commande que je peux entrer dans mon script basic.

Merci

Message édité par: Pascal76, à: 29/03/2006 14:16

 

[PascalXLD]

Bonjour

essaies

Sub MGexcel()
Dim c As Range
Dim mini As Integer, maxi As Integer
Dim Ligne As Integer
mini = 40
maxi = 60

Ligne = Range('F65536').End(xlUp).Row
For Each c In Range('F1:F' & Ligne)
  If c › mini And c ‹ maxi Then
    c.EntireRow.Interior.ColorIndex = 7 'magenta
  Else
    c.EntireRow.Interior.ColorI ndex = xlNone
  End If
Next
End Sub