format remplissage cellule

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:

---

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+

Bonjour,

Essaie comme cela

Code:

---

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.