Mise en couleur dans Excel

Résolu
jack751 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -  
jack751 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -
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
.......... ..........
A voir également:

1 réponse

Réponse 1 / 1
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

un exemple en code VBA a mettre dans le VBA de la feuille 

Const CJaune = 27
Const CBleu = 25

Private 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
0
jack751 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour, je vais essayer ce code d'ici peu (je ne suis pas devant mon micro pour le moment - au travail), mais au vu du programme que vous avez fait, cela devrait très bien fonctionner. Merci beaucoup. Dès que je pourrai tester, je vous en dirai plus. Encore merci !
0
jack751 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour f894009, Désolé pour le retard pour vous répondre, mais votre petit programme fonctionne à merveille. J'ai juste enlevé la ligne "Private Sub".....car je ne savais pas à quoi cela correspondait.
Merci beaucoup pour votre aide
0

Discussions similaires

sertissage des cables rj45
lekludo -
brupala -

7 réponses