Bonjour,

Je me suis mis depuis peu au VBA, et j'ai quelques difficultés.
Je voudrais faire une macro qui parcours des cellules, qui teste si elles sont inférieurs à -1, et si c'est le cas qu'elle les vide et les colorie en rouge.
Ces cellules vont de D3 à G5 (ça ne fait pas beaucoup mais ce n'est qu'un essai pour appliquer avec beaucoup plus de cellules), et j'ai pensé imbriquer deux boucles For Next ayant chacune un indice (i et j) censés représenter la ligne et la colonne.
Mais ça ne marche pas.
Quelqu'un pourrait-il m'aider ? Je suis ouvert à d'autres solutions mais j'aimerais quand même résoudre ce problème avec mes indices i et j.

Voici mon code :

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 Macro1()
'
' Macro1 Macro
' Macro enregistrée le 2009-06-09 par NXP20176
'
 
'
    Dim i As Integer
    Dim j As Integer
 
    For i = 4 To 7
        For j = 3 To 5
            If Range(Cells(j, i)) < (-1) Then
                Range(Cells(j, i)).Select
                Selection.ClearContents
                 With Selection.Interior
                 .ColorIndex = 3
                 .Pattern = xlSolid
                 End With
            End If
        Next
    Next
 
End Sub
Merci d'avance pour vos réponses.