Donner des couleurs aux filtres

**Mehdiel1995** · 03/02/2021, 12h23

bonjour, je cherche à générer un filtre pour les dates J, J+1 et J+2, ce filtre est déjà effectué. maintenant je cherche à donner des couleur au dates J+1 et J+2. le code que j'ai utilisé pour le filtre est le suivant:

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Sub RechercheDate()
    Dim wsS1 As Worksheet 'Sheet1
    Dim wsS2 As Worksheet 'Sheet3
    Dim lastrow As Long
    Dim lastrow2 As Long
    Dim tempCriteria As String
    Dim criter As String
 
 
 
    Set wsS1 = Sheets("OPE")
    Set wsS2 = Sheets("AFFICHAGE")
 
 
    'hide dialogs
    Application.ScreenUpdating = False
 
    lastrow2 = wsS2.Range("A" & Rows.Count).End(xlUp).Row
    wsS2.Range("A10:R" & lastrow2).Delete
 
    tempCriteria = wsS2.Range("B4").Value + 1
    criter = wsS2.Range("B4").Value + 2
 
    'select sheet
    'ActiveWorkbook.Sheets("OPE").Activate
 
    'filter for records that have criteria in column defined by tempCriteria
    wsS1.Cells.AutoFilter Field:=7, Criteria1:=tempCriteria, Operator:=xlOr, Criteria2:=criter
 
'Last row in A
        lastrow = wsS1.Range("A" & Rows.Count).End(xlUp).Row
 
'Copy A:R and paste into A10
        wsS1.Range("A1:R" & lastrow).Copy wsS2.Range("A10")
 
        If wsS1.FilterMode = True Then
 
        wsS1.AutoFilter.ShowAllData
 
        End If
' select destination sheet
        ActiveWorkbook.Sheets("AFFICHAGE").Activate
 
        Application.ScreenUpdating = True
 
End Sub

**Philippe Tulliez** · 03/02/2021, 12h32

Bonjour,
Sauf si c'est un devoir pour un prof, pourquoi passer par VBA pour appliquer un filtre sur des couleurs.
Il suffit d'utiliser la mise en forme conditionnelle et appliquer une couleur pour les trois cas et ensuite filtrer sur une couleur particulière et il est même possible d'effectuer un tri hiérarchique sur plusieurs couleurs

Autre astuce : créer une colonne avec condition renvoyant un texte quelconque en fonction des conditions et utiliser un segment sur cette colonne là

**Mehdiel1995** · 03/02/2021, 12h45

Bonjour,

Il s'agit d'un devoir, je dois passer par vba.

**Philippe Tulliez** · 03/02/2021, 16h36

Bonjour,
Voici un exemple qui donne une couleur (Code RGB) en fonction de J, J+1 et J+2 de la colonne dont le nom est défini par la constante Date
J est défini pas la constante StartDate
Le tableau est un tableau structuré dont le nom est défini par la constante NameOfTable

Attention :

la procédure doit être lancée après avoir filtré les dates
ne pas oublier, s'il y a lieu, de remettre les caractères dans leur couleur d'origine lorsque l'on supprime le filtre

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
18
19
20
21
22
23
24
25
26
Sub t()
  ' Delaration et affactation
  Const NameOfTable As String = "t_Facsor"
  Const Label As String = "Date"
  Const StartDate As Date = #2/22/2021#
  Dim rng As Range, Cell As Range
  Dim CodeRng As Long
  Dim flag As Boolean
  Set rng = Range(NameOfTable).ListObject.ListColumns(Label).DataBodyRange
  '
  ' Boucle sur les cellules visible de la colonne dont le nom est défini par la contante Label
  For Each Cell In rng.SpecialCells(xlCellTypeVisible)
    With Cell
      Select Case .Value
        ' Test les dates j, j+ et j+2 oµ j est défini par la constante StartDate
        Case StartDate: flag = True: CodeRng = vbRed
        Case StartDate + 1: flag = True: CodeRng = vbBlue
        Case StartDate + 2: flag = True: CodeRng = vbGreen
        Debug.Print .Value
      End Select
      If flag Then .Font.Color = CodeRng: flag = False
    End With
  Next
  ' EndOfJob
  Set rng = Nothing: Set Cell = Nothing
End Sub