Bonjour à tous,

Je souhaite faire une mise en forme sur une plage de cellules ! J'utilise deux boucles pour parcourir mes plages si la valeur est supérieure à 0 alors la trame de fond est d'une couleur et si elle est inférieure ou égale à 1 d'une autre couleur.

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
 
For I = 8 To 400
    For J = 4 To 35
     If Cells(I, J) <> "" Then
        'Vert si positif
        If Cells(I, J).Value > 0 Then
        Cells(I, J).Interior.ColorIndex = RGB(0, 105, 72)
        End If
        'Rouge si négatif
        If Cells(I, J).Value <= 0 Then
        Cells(I, J).Interior.ColorIndex = RGB(236, 33, 36)  'erreur sur cette ligne
        End If
     End If
    Next J
Next I
J'ai une erreur d’exécution 9 : l'indice n'appartient pas à la sélection

Je ne vois pas d'ou ça peut venir ... j'ai bien déclaré I et J en Integer

Cordialement