1 pièce(s) jointe(s)
VBA macro pour colorer colonne avec conditions
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
Pièce jointe 610524
voici le code, merci d'avance
Code:
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 |
