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!