ligne en couleur selon condition

MGexcel · 28 Mars 2006

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 · 28 Mars 2006

Bonjour,

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

A bientôt

MGexcel · 28 Mars 2006

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 · 28 Mars 2006

Bonjour,

Tu peux essayer le code suivant :

Code:

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 · 28 Mars 2006

merci, ça marche Nickel !!!

PascalXLD · 29 Mars 2006

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 · 29 Mars 2006

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

ligne en couleur selon condition

MGexcel

Guest

gagletor

Guest

MGexcel

Guest

JPM

Guest

MGexcel

Guest

PascalXLD

XLDnaute Barbatruc

PascalXLD

XLDnaute Barbatruc

Discussions similaires