Discussion :

[malabarbe]

Bonsoir,

Je n'arrive pas a faire tourner mon code corrèctement
Voilà ce que je voudrais faire :
C'est de coloriser les lignes de 2 a la fin pour les colonnes P, Q, R et S
en prenant la valeur du dernier caractèrede la col K
et a alterner les couleurs pour chaque changement de valeur

Voici mon code :

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
 
'Colorie les lignes des colonnes en inverse
Vert = 34
Jaune = 36
 
With Sheets("Feuil3")
    Derlig = .Range("A65536").End(xlUp).Row
    Fond = Vert
    For i = 2 To Derlig
aaa = Right(Cells(i, 11), 1)
    If i = 1 Then
            .Cells(i, 16).Resize(15, 4).Interior.ColorIndex = Fond
        ElseIf Left(.Cells(i, 11), aaa) <> Left(.Cells(i - 1, 1), 1) Then
            If Fond = Vert Then
                Fond = Jaune
            Else
                Fond = Vert
            End If
            .Cells(i, 16).Resize(15, 4).Interior.ColorIndex = Fond
        ElseIf Left(.Cells(i, 11), aaa) = Left(.Cells(i - 1, 1), 1) Then
            .Cells(i, 16).Resize(15, 4).Interior.ColorIndex = Fond
        End If
    Next i
End With

J'ai joint mon fichier pour tester

Merci à vous

[fring]

Bonsoir,

Essaie 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
19
20
21
22
23
24
25
26
27
Sub test()
Dim Derlig As Integer, i As Integer, x As String, fond As Byte
 
'Colorie les lignes des colonnes en inverse
'Vert = 35
'Jaune = 36
 
With Sheets("Feuil3")
    x = Right(Cells(2, 11), 1)
    fond = 36
    Derlig = .Range("K65536").End(xlUp).Row
    For i = 2 To Derlig
        If Right(.Cells(i, 11), 1) = x Then
            .Range(.Cells(i, 16), .Cells(i, 19)).Interior.ColorIndex = fond
        Else
            x = Right(.Cells(i, 11), 1)
            If fond = 35 Then
                fond = 36
            Else
                fond = 35
            End If
            .Range(.Cells(i, 16), .Cells(i, 19)).Interior.ColorIndex = fond
        End If
    Next i
End With
 
End Sub

[malabarbe]

Bonsoir fring,

C'est tout pil-poil

Cela tourne parfaitement

Un grand MERCI

@ +