Sujet Précédent Sujet Suivant

Mise en couleur dans Excel

Résolu/Fermé
jack751 Messages postés 3 Date d'inscription dimanche 4 novembre 2012 Statut Membre Dernière intervention 30 septembre 2014 - 27 sept. 2014 à 12:34
jack751 Messages postés 3 Date d'inscription dimanche 4 novembre 2012 Statut Membre Dernière intervention 30 septembre 2014 - 30 sept. 2014 à 11:46
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 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
28 sept. 2014 à 09:47
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 dimanche 4 novembre 2012 Statut Membre Dernière intervention 30 septembre 2014
28 sept. 2014 à 14:53
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 dimanche 4 novembre 2012 Statut Membre Dernière intervention 30 septembre 2014
30 sept. 2014 à 11:46
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