VBA EXCEL, alternance

Version imprimable

04/01/2017, 14h16
Daniel MERCIER

VBA EXCEL, alternance

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.
04/01/2017, 14h56
jerome.vaussenat

1 pièce(s) jointe(s)

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.
Pièce jointe 232124

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.
04/01/2017, 15h04
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.
04/01/2017, 15h36
Invité

Citation:

Envoyé par Daniel MERCIER

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.

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:

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

04/01/2017, 17h15
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.

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

Code:

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

04/01/2017, 17h53
Daniel MERCIER

Génial !

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

Super Forum.
05/01/2017, 03h34
Invité

Citation:

Envoyé par Daniel MERCIER

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.