Bonjour,

je dois faire une petite macro, assez simple :
Elle doit parcourir une ligne a partir de la cellule selectionnée et detecter quand il y a plus de 4 cellules vides et si c'est le cas, mettre un fond de couleur au groupe de cellules vides detectées. Voici le code que j'ais pondu, mon problème est que cela semble parcourir correctement mais ne colorie pas les cellules vides !
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
Sub Color()
 
For j = 1 To 8
 
Dim i
i = 0
 
If IsEmpty(ActiveCell) Then
i = i + 1
ActiveCell.Offset(0, 1).Select
 
ElseIf i > 4 Then Range(ActiveCell.Offset(0, -1), ActiveCell.Offset(0, -i)).Select
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
i = 0
 
Else: ActiveCell.Offset(0, 1).Activate
 
End If
Next j
 
End Sub
Quelqu'un voit il de quoi cela peut venir ?