Discussion :

[Coxtox]

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

[joe.levrai]

Bonjour,

outre ton erreur de code liée à l'utilisation d'un ColorIndex qui attend un Long et pas un RGB (dans ce cas on utilise plutôt Color) ... pourquoi ne pas utiliser une mise en forme conditionnelle ??

attention quand on travaille sur des lignes .... mieux vaut prendre l'habitude d'utiliser des Long, sinon on se fait avoir tôt ou tard

[Coxtox]

C'est une alternative , c'est vrai .. j'y ai pensé
mais j'aurais aimé comprendre d'où vient l'erreur ... Si qqn à une idée

[Philippe Tulliez]

Bonjour,

J'ai une erreur d’exécution 9 : l'indice n'appartient pas à la sélection

Lorsque tu signales qu'il y a un message d'erreur, indiquer le n° de la ligne où cela se passe, serait un plus. Cela évite aux contributeurs de lire toutes les lignes de ta procédure.
La raison en est très simple, tu utilises la propriété ColorIndex dont la valeur maximale est 56.
Si tu travailles avec le code RGB, tu dois utiliser la propriété Color

[joe.levrai]

Ah Philippe est toujours là quand il faut !

j'ai édité mon message à l'instant car j'avais pas apporté la réponse ... je vois que tu m'avais (encore et toujours) devancé.

[Coxtox]

(J'ai précisé par la suite en modifiant le message la ligne ou il y avait une erreur / c'est un oubli de ma part)

Maintenant j'ai une erreur incompatibilité de type à la ligne ci-dessous :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
For I = 8 To 400
    For J = 4 To 35
        'Vert si positif
        If DPN.Cells(I, J).Value > 0 Then 'erreur sur cette ligne
        DPN.Cells(I, J).Interior.Color = RGB(0, 105, 72)
        End If
        'Rouge si négatif
        If DPN.Cells(I, J).Value <= 0 Then
        DPN.Cells(I, J).Interior.Color = RGB(0, 105, 72)
        End If
    Next J
Next I

[joe.levrai]

si tes données ne sont pas des chiffres (ou des chiffres au format texte) alors c'est normal

[Coxtox]

Bingo ! Effectivement mes données sont issues d'une rechercheV mais elles sont bien numériques.

Je pense que le problème vient de là ...

Dans ce cas je vais surement opté pour la MEFC