Discussion :

[voldedeath]

Bonjour, j'ai écris une macro qui créée une nouvelle colonne dans ma feuille pour ensuite appliqué une formule (=RIGHT) pour récupérer une partie du contenu de la colonne C et ensuite colorer chaque case de la nouvelle colonne (donc ici B) en comparant la cellule (i,2) = B2 et (i+1, 2) = B3 et ainsi de suite avec i = 2 to 200
sauf que les 2 conditions que j'ai mis respecte la consigne jusqu'à arriver à une cellule différente de celle d'avant et là c'est inversion des couleur

ce que je souhaite c'est différentier la suite des lignes par une couleur (si même valeur c'est même couleur sinon alterner entre deux couleurs)

sur la photo on voit bien que la ligne 3 et 4 ont la même valeur mais de couleur différente



voici le code, merci d'avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Public Sub MACRO1()
 
Sheets("Historique de production NEOP4").Columns(2).Insert
 
Dim nbLignes As Long
 
nbLignes = Cells(Rows.Count, "A").End(xlUp).Row
Range("$B$2:B" & nbLignes).Formula = "=RIGHT(C2, 6)"
 
Dim i As Integer
 
For i = 2 To 200
 
    If Cells(i, 2).Value <> Cells(i + 1, 2).Value Then
 
        Cells(i, 2).Interior.Color = RGB(255, 128, 0): Cells(i + 1, 2).Interior.Color = RGB(0, 160, 0)
 
    Else
 
 
        If Cells(i + 2, 2).Value = Cells(i + 1, 2).Value Then
            Cells(i + 2, 2).Interior.Color = RGB(0, 160, 0): Cells(i + 1, 2).Interior.Color = RGB(0, 160, 0)
 
 
        End If
 
    End If
Next
End Sub