Discussion :

[simo001]

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 :

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

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

[Docmarti]

Bonjour simo001

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

ou

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
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

[simo001]

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 :

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

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

[Docmarti]

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 :

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

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

[simo001]

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

[Docmarti]

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