Bonjour à tous

Tout d'abord je tiens à préciser que je suis très mauvais en ce qui concerne VBA et j'espère que quelqu'un aura une solution à mon problème

Mon problème est le suivant :

A l'aide de listes déroulantes et de la fonction auto-filter, je souhaite affiner une base de données (cf. Onglet Index du fichier excel) pour que seules celles qui m'intéressent puissent s'afficher.

J'ai trouvé sur le net une formule qui m'a permis d'appliquer le premier filtre qui est le mois :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range) 
 
If Target.Address = "$D$2" Then 
    Dim Lig As Long, Critère As String 
    Lig = ActiveSheet.Cells(Rows.Count, 9).End(xlUp).Row 
    Critère = Target.Value 
 
    ActiveSheet.Range("$O$4:$O$" & Lig).AutoFilter Field:=1, Criteria1:=Critère 
End If 
End Sub
une fois ce filtre appliqué, j'aimerai appliquer un deuxième filtre comme la date par exemple pour affiner encore plus la base, cependant je ne sais pas comment faire


Voilà un lien vers le fichier (onglet "Index) : http://xls.lu/C41p/

Merci pour votre aide !!