Discussion :

[Daniel MERCIER]

Bonjour,
je voudrais colorer les lignes en alternance dès que le chiffre est plus grand.
Je sait faire avec pair ou imper, mais dans ce cas, j'ai deux séries d'impair en suivant !

1 ColorIndex=35
1 ColorIndex=35
1 ColorIndex=35
2 ColorIndex-36
2 ColorIndex=36
3 ColorIndex=35
3 ColorIndex=35
3 ColorIndex=35
5 ColorIndex=36
5 ColorIndex=36

Merci de m'aiguiller.

[jerome.vaussenat]

Salut Daniel et bonne année 2017,

Pour faire ce que tu veux, tu n'as pas besoin de VBA.

Tu peux utiliser une mise en forme conditionnelle.

Je t'ai fait une illustration pour que tu puisse comprendre.


En gros, tu ajoutes une colonne avec la formule SI. Cette colonne peut être cachée pour faire propre.
Ensuite, tu mets en place 2 MFC.
Une Si la colonne supplémentaire = VRAI
L'autre si c'est FAUX.

En plus, en cas d'ajout, modification, la MFC se met à jour automatiquement.

[Daniel MERCIER]

Bonjour Jerome et bonne année 2017

Non, il est impératif de faire cela en VBA car la feuille que je traite
a étée crée par VBA avec récupération d'une plage de cellule !

A te lire.

[Invité]

Bonjour,

J'ai mis en ligne sur mon blog un code qui peut vous intéresser Excel-alterner-couleurs-lignes-fonction-valeurs-colonne

Une différence tout de même : le changement de couleur s'exécute sur changement de valeur et pas sur changement avec valeur croissante, mais j'imagine que votre tableau est trié.

Je n'utilise pas les valeurs d'Interior.colorindex mais les valeurs RGB avec Interior.Color.

Cordialement.

Bonjour Jérôme.

[unparia]

Bonjour

Je ne m'embarrasserais personnellement pas outre mesure avec ce genre de choses cosmétiques, que je coderais sans hésitation à la louche, ainsi, par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 derlig = Range("A" & Rows.Count).End(xlUp).Row
  Range("A" & 1 & ":A" & derlig).Interior.Color = vbYellow
  Dim c1 As Range, c2 As Range
  For i = 1 To derlig
    Set c1 = Range("A" & i)
    Set c2 = Range("A" & i + 1)
    If c2.Value > c1.Value Then
      Range("A" & i + 1 & ":A" & derlig).Interior.Color = IIf(c1.Interior.Color = vbRed, vbYellow, vbRed)
    End If
  Next

[Daniel MERCIER]

Bonsoir unparia,

Ton code tourne parfaitement !

Que dois-je changer si je veut utiliser en alternance :
Interior.ColorIndex = 35
Interior.ColorIndex = 36

Mais déja un grand merci.

[unparia]

Ta question est déconcertante.
Mais bon --->>

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
derlig = Range("A" & Rows.Count).End(xlUp).Row
  Range("A" & 1 & ":A" & derlig).Interior.ColorIndex = 35
  Dim c1 As Range, c2 As Range
  For i = 1 To derlig
    Set c1 = Range("A" & i)
    Set c2 = Range("A" & i + 1)
    If c2.Value > c1.Value Then
      Range("A" & i + 1 & ":A" & derlig).Interior.ColorIndex = IIf(c1.Interior.ColorIndex = 35, 36, 35)
    End If
  Next

[Daniel MERCIER]

Génial !

Merci a toi et aux autres pour le coup de main.

Super Forum.

[Invité]

Snober un message est déjà humiliant pour celui ou celle qui vous a répondu, les remerciements de votre dernier message relèvent en plus du cynisme.
Bienvenue à mon club des ignorés. Inutile de me répondre, je ne pourrai vous lire.

Je salue Jacques et Jérôme.