L'indice n'appartient pas à la sélection

Version imprimable

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:

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

28/05/2015, 15h12
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 :mrgreen:
28/05/2015, 15h15
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
28/05/2015, 15h15
Philippe Tulliez

Bonjour,

Citation:

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
28/05/2015, 15h17
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é. :ptdr:

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

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

28/05/2015, 15h29
joe.levrai

si tes données ne sont pas des chiffres (ou des chiffres au format texte) alors c'est normal ;)
28/05/2015, 15h50
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