Discussion :

[sebing]

Bonjour,

Je voudrai savoir si c'est possible de filtrer un tableau par rapport à plusieurs critéres (+2) en passant par une liste déroulante.

J'ai reussi a créer un macro pour effectuer le filtre élaboré:

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 2010-08-16 par seb
'
 
'
    Range("A5:J2600").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Sheets("Critères").Range("A4:J7"), Unique:=False
End Sub

Mais je n'arrive pas à mettre une liste déroulante dans la case J2 de ma feuille où lorsqu'un critere sera choisi un filtre sera éffectué.

Exemple: la liste comporte critere 1, critere 2, critere 3...
Si le critere 2 est choisi un filtre sera fait par rapport au critere: commence par a, c, j.

Est-ce possible qu'il n'y ai pas de bouton.

Merci par avance

Seb

[sebing]

Bonjour,

J'ai trouvé la solution je vous la donne:

J'ai créé une liste, puis j'ai mis une ComboBox directement sur ma feuille Excel.

Aprés dans proprietés j'ai mis:
pour ListFillRange: le nom de la liste crée
Pour Style: frmStyleDropDownList

Puis dans l'éditeur j'ai mis:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub cbolist_Change()
Select Case cbolist.Value
Case "critere1"
 Range("A5:J2600").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Sheets("Critères").Range("A4:J7"), Unique:=False
Case "critere2"
Range("A5:J2600").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Sheets("Critères").Range("A4:J7"), Unique:=False
        End Select
 
End Sub

Bonne soirée

Seb