Discussion :

[AkagiShigeru]

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 ?

[J.Michel]

Voilà une correction procédure qui fonctionne

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
 
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 ?

[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)

[AkagiShigeru]

Du coup j'ais trouvé la solution !

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
 
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)

[J.Michel]

Dans ce cas il faut corriger comme suit

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
 
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