Problème de colorisation de cellules.

Version imprimable

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:

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 ?

Voilà une correction procédure qui fonctionne

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub Color()
    Dim I
    Dim J
 
    For J = 1 To 8
        If IsEmpty(ActiveCell) Then
            I = I + 1
            If I = 4 Then
                With Range(ActiveCell, ActiveCell.Offset(0, -(I - 1))).Interior
                    .ColorIndex = 6
                    .Pattern = xlSolid
                End With
                I = 0
            End If
        End If
        ActiveCell.Offset(0, 1).Activate
    Next J
End Sub

Mais pourquoi uniquement sur 8 colonne (j=1 to 8) ?
Et que fais tu s'il y a + de 4 cellules vides de suite ?

27/06/2008, 14h47
AkagiShigeru

Sur 8 car c'est juste un test ^^
et si il y en a plus de 4 ça continue à parcourir jusqu'à tomber sur une cellule non vide et à ce moment là ça colorie toute les cellules vides précédentes.

je suppose que si tu me poses la question ça signifie que mon code est complétement faux ^^ en tout cas je test tout de suite ce que tu viens de me fournir, merci :o)

Du coup j'ais trouvé la solution !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Sub Color2()
    Dim I
    Dim J
 
    For J = 1 To 40
        If IsEmpty(ActiveCell) Then
            I = I + 1
            ElseIf I > 4 Then
                With Range(ActiveCell.Offset(0, -1), ActiveCell.Offset(0, -(I))).Interior
                    .ColorIndex = 6
                    .Pattern = xlSolid
                End With
                I = 0
            Else: I = 0
 
            End If
 
        ActiveCell.Offset(0, 1).Activate
    Next J
End Sub

Merci beaucoup pour ton aide , du coup ça fonctionne bien :o)

Dans ce cas il faut corriger comme suit

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub Color()
    Dim I
    Dim J
 
    For J = 1 To 8
        If IsEmpty(ActiveCell) Then
            I = I + 1
        Else
            If I >= 4 Then
                With Range(ActiveCell.Offset(0, -1), ActiveCell.Offset(0, -I)).Interior
                    .ColorIndex = 6
                    .Pattern = xlSolid
                End With
            End If
            I = 0
        End If
        ActiveCell.Offset(0, 1).Activate
    Next J
End Sub

Mais réfléchi à la condition d'arrêt de ta boucle quand tu voudras tester plus de 8 colonnes ;)

Nos réponses se sont croisées :D