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:
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.
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
Merci beaucoup de m'aider à comprendre ce qui cloche dans mon programme!
Partager