Mise en couleur dans Excel Résolu/Fermé

Question

Bonjour, 
Pour faciliter la lecture d'un fichier, je cherche à mettre des lignes en couleur, en fonction d'un code client qui peut se répéter ou non et je voudrais qu'à chaque changement de client que la ligne change de couleur de fond une fois sur deux. (2 couleurs de fond pas plus)
J'ai eu beau cherché, je n'ai pas réussi, ou cela ne fonctionne que très mal.
Pourriez-vous m'aider
Merci par avance !!

Exemple :

Code Client
101            ligne en jaune
101            ligne en jaune
101            ligne en jaune
123            ligne en bleu
150            ligne en jaune
150            ligne en jaune
375            ligne en bleu
375            ligne en bleu
375            ligne en bleu
380            ligne en jaune
227            ligne en bleu
872            ligne en jaune
..........         ..........

f894009 · Answer

Bonjour,

un exemple en code VBA a mettre dans le VBA de la feuille

Const CJaune = 27Const CBleu = 25Private Sub Worksheet_SelectionChange(ByVal Target As Range)    Range("a2").EntireRow.Interior.ColorIndex = CJaune    For x = 3 To 14        Ccolor = Range("a" & x - 1).EntireRow.Interior.ColorIndex        If Range("a" & x) = Range("a" & x - 1) Then            Range("a" & x).EntireRow.Interior.ColorIndex = Ccolor        Else            If Ccolor = CJaune Then                Ccolor = CBleu            Else                Ccolor = CJaune           End If            Range("a" & x).EntireRow.Interior.ColorIndex = Ccolor        End If    Next x    End Sub

si vous modifiez ou ajoutez un code client les couleurs sont redistribuées

Mise en couleur dans Excel

1 réponse

Discussions similaires