Comment faire un filtre avec VBA avec plus de 2 criteres

Bonjour,

Je n'arrive pas a faire un filtre avec plus de 2 criteres avec VBA.

Je souhaite que lorsque l'on appuie sur le bouton x, mon tableau composé de 10 colonnes et de plus de 3000 lignes se filtre par rapport a plusieurs criteres.

Exemple: Filtre sur la colonne A avec les criteres suivant: doit commencer par AS ou ER, ou TR.

Merci par avance

Seb

Bonjour,

Exemple: Filtre sur la colonne A avec les criteres suivant: doit commencer par AS ou ER, ou TR.

Le critère est choisi comment ? Là tu as trois valeurs

Sinon, pourquoi n'utilises tu pas simplement l'option "Filtre automatique" disponible dans excel via DONNEES / FILTRE.

AMicalement

REgarde du coté des filtres élaborés

Explication

Dan a écrit :

Bonjour,

Sinon, pourquoi n'utilises tu pas simplement l'option "Filtre automatique" disponible dans excel via DONNEES / FILTRE.

Avec le filtre automatique on ne peut mettre que 2 valeurs c'est la mon problème.

Je vais m'orienter vers les filtres élaborés mais je ne sais pas les mettre dans VBA, afin que lorsque l'on appuie sur le bouton les 3 critères soient pris en compte

Merci encore pour vos aides

Seb

as-tu regardé mon exemple?

Math a écrit :

as-tu regardé mon exemple?

J'ai eu du mal a enlever la protection "macro" sur open office donc je l'ai ouvert avec un autre ordinateur.

Ça marche super bien, merci beaucoup

Si j'ai bien compris La macro 1 doit etre affecté sur le bouton.

Je dois maintenant déchiffrer ces macros

Sub Feuil1
Rem Private Sub cmdShowAll_Click()
Rem     On Error Resume Next
Rem     ActiveSheet.ShowAllData
Rem     Columns("G:H").ClearContents
Rem End Sub
Rem 
Rem Private Sub cmdTri_Click()
Rem     Columns("A:B").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Rem         Sheets("Critères").Range("A1:B4"), Unique:=False
Rem End Sub
Rem 
Rem Private Sub cmdTriNew_Click()
Rem     Columns("A:B").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets( _
Rem         "Critères").Range("A1:B4"), CopyToRange:=Range("G1"), Unique:=False
Rem End Sub
Rem 
End Sub

Merci encore

Bonne soirée

Seb

Bonjour,

J'ai modifié le code afin que celui-ci filtre un tableau qui ne se trouve pas tout en haut:

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

Je souhaiterai savoir comment relier cette macro à un liste déroulante.

Pourriez vous m'aider

Merci

Bonne journée

Seb

Bonsoir,

Merci de joindre un fichier, qu'on sache de quoi on parle

Amicalement

Claude