Discussion :

[Kedash]

Bonjour,

Voila j'ai réalisé un programme qui réalise un filtre selon plusieur couleurs de cellule,
cependant il semble que le test multiple ne s'applique que sur la première solution proposée:

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
Sub Filtreparcouleur()
 
Application.ScreenUpdating = False
Application.Calculation = xlManual
 
Dim i
 
For i = 11 To 1200
If Not Cells(i, "L").Interior.ColorIndex = 8 Or Cells(i, "L").Interior.ColorIndex = 28 Or Cells(i, "L").Interior.ColorIndex = 33 Or Cells(i, "L").Interior.ColorIndex = 42 Then
Rows(i).EntireRow.Hidden = True
End If
Next i
 
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic
 
End Sub

Ici la seule seule couleur qui reste après le filtre est la "8", les autre sont cachées malgré le fait qu'elles soient énumérée dans les solution multiples.

Merci beaucoup de m'aider à comprendre ce qui cloche dans mon programme!

[rvtoulon]

bonjour,
si je comprend tu veux cacher toutes les lignes sauf celles qui ont la couleur de fond dans le "If" ?

je ferais comme ceci :

Code :

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

1
2
 If Cells(i, "L").Interior.ColorIndex <> 8 Or Cells(i, "L").Interior.ColorIndex <> 28 Or Cells(i, "L").Interior.ColorIndex <> 33 Or Cells(i, "L").Interior.ColorIndex <> 42 Then
'etc...

[pgz]

Bonjour.

Je crois que c'est plutôt des And dans l'expression de RV. Sinon l'expression est toujours VRAI

PGZ

[smacksime]

Bonjour pgz,
Une cellule ne peut pas avoir plusieurs couleur de fond, donc l'expression sera toujours Fausse. Donc c'est bien des Or, et je suis d'accord avec rvtoulon.
Bien a vous,

[Kedash]

La fonction fonctionne comme suit :

Code :

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

If Cells(i, "L").Interior.ColorIndex <> 34 And Cells(i, "L").Interior.ColorIndex <> 8 Then Rows(i).EntireRow.Hidden = True

Quand je mets des "or", je me retrouve avec tout caché (pourtant c'est ce qui me semblait le plus logique également).

Merci beaucoup RV et PGZ

[pgz]

Re,

Une cellule ne peut pas avoir plusieurs couleur de fond, donc l'expression sera toujours Fausse. Donc c'est bien des Or, et je suis d'accord avec rvtoulon.

Si par exemple colorindex = 8, alors il sera <> 28, et donc l'expression du If renvoie VRAI si on met des OU. D'ailleurs quelque soit la valeur de colorindex, elle sera différente d'au moins 3 des valeurs testées, chaque "<>" renvoie VRAI et grâce au OU, l'expression est toujours VRAI. Ainsi on masque TOUTES les lignes, qq soit la couleur.

Non, définitivement c'est ET. Et je pense que RV sera d'accord.

Cordialement,

PGZ

[narci12]

bonsoir,

si je me souviens de mes cours de logique,

If ( Cells(i, "L").Interior.ColorIndex <> 34 AND Cells(i, "L").Interior.ColorIndex <> 8 )


If NOT ( Cells(i, "L").Interior.ColorIndex = 34 OR Cells(i, "L").Interior.ColorIndex = 8 )

c'est pareil , je pense que la formule initiale etait bonne , il manquait juste des parentheses.