Filtre multicritères vba

Bonjour;

j'aimerais filtrer un tableau de 3 colonnes avec le contenu de 3 cellules ,si une des cellules est renseignée tout le tableau doit être filtré après avoir cliquer sur un bouton que j'ai lié à la macro .
je suis parvenu avec le code ci-dessous à filtrer avec le contenu d'une seul cellule . j'ai besoin de votre aide pour pouvoir filtrer au choix en fonction de la cellule renseignée

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub Macro1() Dim t,v,s As String t = "*" + CStr(ActiveSheet.Range("A1").Value) + "*" ' v = "*" + CStr(ActiveSheet.Range("B1").Value) + "*" 's = "*" + CStr(ActiveSheet.Range("C1").Value) + "*" ActiveSheet.Range("$A$2:$C$25000"). _ AutoFilter Field:=1, Criteria1:=t ' .AutoFilter Field:=1, Criteria1:=v   End Sub

---

Bonjour simo001

Tu as le tutorial sur Les filtres avancés ou élaborés dans Excel

ou

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub Autofiltre()   a = ActiveSheet.Range("A2").Value b = ActiveSheet.Range("B2").Value c = ActiveSheet.Range("C2").Value   Range("A4").AutoFilter If a <> "" Then ActiveSheet.Range("$A$4:$C$10").AutoFilter Field:=1, Criteria1:=a End If If b <> "" Then ActiveSheet.Range("$A$4:$C$10").AutoFilter Field:=2, Criteria1:=b End If If c <> "" Then ActiveSheet.Range("$A$4:$C$10").AutoFilter Field:=3, Criteria1:=c End If End Sub

---

salut

merci pour ton retour ,je n'ai pas vraiment trouvé sur le tuto ce que je cherche exactement en revanche ton code est très utile seulement quand je l'ai essayé avec la condition <>"" ça na pas donner de résultat je l'ai remplacé donc par len(a)>0 qui marche très bien, mais le problème reste le même ma macro filtre avec le champ A1 et ne reconnait les autres champs :(

exemple de mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub Macro1() Dim a As String Dim b As String a = "*" + Trim(CStr(ActiveSheet.Range("A1").Value)) + "*" b = "*" + Trim(CStr(ActiveSheet.Range("B1").Value)) + "*" Range("A5").AutoFilter If Len(a) > 0 Then ActiveSheet.Range("$A$5:$B$17").AutoFilter Field:=1, Criteria1:=a End If If Len(b) > 0 Then 'Range("B5").AutoFilter ActiveSheet.Range("$A$5:$B$17").AutoFilter Field:=2, Criteria1:=b End If End Sub

---

Plutôt que d'utiliser <>"" , utilise >""

Je comprends que tu veux plusieurs éléments de la même colonne.
Avec Autofilter, tu peux utiliser l'enregistreur de macros pour obtenir le code correspondant à tes sélections manuelles dans le Filtre.
Tu vas obtenir quelque chose comme ceci:

Code:

---

1 2 3

Selection.AutoFilter ActiveSheet.Range("$A$5:$C$13").AutoFilter Field:=1, Criteria1:="=*albert*", _ Operator:=xlOr, Criteria2:="=*Roger*"

---

Avec le filtre élaboré, si tu veux demander plusieurs éléments de la même colonne, tu dois ajouter une ligne à la zone de critères pour chaque élément.

Pour être plus technique, quand tu ajoutes une ligne à la zone de critères, tu ajoutes une condition "Or" (en français "OU")
Exemple: Si la ligne contient Albert ou Roger, affiche-la.

Quand tu ajoutes une colonne à la zone de critères, tu ajoutes au filtre une condition "And" (en français "ET")
Exemple :
Colonne A : >10
Colonne B : <100

En fait ce que je veux c'est filtrer la première colonne avec la variable a et la deuxième colonne avec la variable b si le champ correspondant n'est pas vide

Voici un exemple d'Autofiltre et de Filtre élaboré avec un seul critère par colonne.

Merci beaucoup ..........; c'est exactement ce que je cherchais :D