Mise en couleur dans Excel

Résolu
jack751 Messages postés 4 Statut Membre -  
jack751 Messages postés 4 Statut Membre -
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
.......... ..........

1 réponse

  1.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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
    1. jack751 Messages postés 4 Statut Membre
       
      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
    2. jack751 Messages postés 4 Statut Membre
       
      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

Changer la couleur de fond d'un en-tête
Adamantine -
Karine -

5 réponses