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

[ARTURO83]

Bonjour,

Essayez ceci

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
Public Sub MACRO1()
    Dim nbLignes As Long
    Dim i As Integer
    Sheets("Historique de production NEOP4").Columns(2).Insert
    nbLignes = Cells(Rows.Count, "A").End(xlUp).Row
    Range("$B$2:B" & nbLignes).Formula = "=RIGHT(C2, 6)"
    For i = 2 To 200
        If Cells(i, 2).Value = Cells(i - 1, 2).Value Then
            Cells(i, 2).Interior.Color = Cells(i - 1, 2).Interior.Color
        ElseIf Cells(i, 2).Value <> Cells(i - 1, 2).Value Then
            If Cells(i - 1, 2).Interior.Color = RGB(255, 128, 0) Then
                Cells(i, 2).Interior.Color = RGB(0, 160, 0)
            Else
                Cells(i, 2).Interior.Color = RGB(255, 128, 0)
            End If
        End If
    Next
End Sub

Cdlt

[voldedeath]

C'est parfait ca marche très bien, je me suis emmêler les pinceaux aces les i, i+1 et i-1
merci encore