Changer couleur Résolu/Fermé

Question

Bonjour, 

J'aimerais faire une macro Excel permettant d'alterner la couleur lorsque la valeur change d'une ligne à l'autre dans la colonne A.
J'ai le fichier ci-dessous :





Et j'aimerais que la macro fasse ça :




J'ai essayer de faire une boucle sans succès
Merci de votre aide.

Arkana0 · Answer

Bonjour,

Ce site peut te débloquer sur plusieurs points :
https://www.excel-pratique.com/fr/vba.php
- Leçon sur les boucles
- Leçon sur les feuilles et cellules pour les couleurs.

Pour détecter le changement de valeur, tu peux utiliser une variable intermédiaire qui stocke la valeur de la cellule qui passée en revue et qui est gardée telle quelle jusqu'au tour de boucle suivante où elle pourra servir de comparaison.

pijaku · Answer

Bonjour,

Combien de lignes comporte la colonne A?

--

pijaku · Answer

Voici :
Adapte ce qui doit l'être...
    Sub Colore()
        Dim Wsh As Worksheet, PremLig As Integer, DrLig As Integer, Col As Integer, DrCol As Integer
        Dim Couleur As Integer, Couleur_1 As Integer, Couleur_2 As Integer
        
        Set Wsh = Worksheets("Feuil1")  'A ADAPTER : Nom de la feuille
        Col = 1                         'A ADAPTER : Numéro de la colonne à traiter  (ici A)
        DrCol = 10                      'A ADAPTER : Numéro de la dernière colonne à colorer
        PremLig = 1                     'A ADAPTER : Numéro de la première ligne traitée (ici 1)
        Couleur_1 = 3                   'A ADAPTER : Couleur n° 1
        Couleur_2 = 27                  'A ADAPTER : Couleur n° 2
        
        Couleur = Couleur_1
        With Wsh
            DrLig = .Columns(Col).Find("*", , , , , xlPrevious).Row
            For Lig = PremLig To DrLig
                .Range(.Cells(Lig, Col), .Cells(Lig, DrCol)).Interior.ColorIndex = Couleur
                If .Cells(Lig, Col).Value <> .Cells(Lig + 1, Col).Value Then
                    Couleur = IIf(Couleur = Couleur_1, Couleur_2, Couleur_1)
                End If
            Next Lig
        End With
    End Sub

Changer couleur

3 réponses

Discussions similaires