Discussion :

[anne83]

Bonjour,

je dois dans un fichier excel générer une macro qui permet d'identifier les conditions suivantes afin de déterminer la couleur de remplissage de la ligne :

si le contenu cellule de la ligne (ex: dans D5 j'ai TOTO) est identique à la cellule précédente (D4), alors je garde le même format de remplissage sinon, je change de couleur.

j'ai écrit le code suivant mais ça ne fonctionne pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim i As Integer 'déclare la variable i (Incrément de ligne)
    Dim j As Integer 'déclare la variable j (Incrément de colonne)
 
 
For i = 1 To 350
If Cells(i + 6, 4) = Cells(i + 5, 4) And Cells(i + 5, 4).Interior.ColorIndex = 2 Then Rows(i + 6).Interior.ColorIndex = 2
If Cells(i + 6, 4) = Cells(i + 5, 4) And Cells(i + 5, 4).Interior.ColorIndex = 20 Then Rows(i + 6).Interior.ColorIndex = 20
If Cells(i + 6, 4) <> Cells(i + 5, 4) And Cells(i + 5, 4).Interior.ColorIndex = 2 Then Rows(i + 6).Interior.ColorIndex = 20
If Cells(i + 6, 4) <> Cells(i + 5, 4) And Cells(i + 5, 4).Interior.ColorIndex = 2 Then Rows(i + 6).Interior.ColorIndex = 2
Next i
End If

Merci pour votre aide !

A+

[gFZT82]

Bonjour,

Essaie comme cela

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
Sub Test()
Dim Plage As Range, Cel As Range
    With Worksheets("Feuil1")
        Set Plage = .Range("D7:D356")
        Plage.EntireRow.Interior.ColorIndex = 20
        For Each Cel In Plage
            If Cel = Cel.Offset(-1, 0) And Cel.Offset(-1, 0).Interior.ColorIndex = 2 Then
                Cel.EntireRow.Interior.ColorIndex = Cel.Offset(-1, 0).Interior.ColorIndex
            Else
                If Cel.Offset(-1, 0).Interior.ColorIndex = 2 Then
                    Cel.EntireRow.Interior.ColorIndex = 20
                Else
                    Cel.EntireRow.Interior.ColorIndex = 2
                End If
            End If
        Next Cel
    End With
End Sub

Cordialement.