VBA : AutoFilter sur 3 critères avec *

[Zepiii]

Bonjour,

Je suis débutant en macro et je cale sur un cas "simple".

J'ai une liste du type :

A1
A2
A...
B1
B2
B...
Et ainsi de suite jusque Z.​

Je veux sélectionner tous ceux qui commencent par A et C. J'utilise donc la macro suivante :

AutoFilter Field:=1, Criteria1:=Array("A*", "C*"), Operator:=xlFilterValues​

Jusque là, pas de soucis. Tout fonctionne pour 2 critères.

Le problème est que si je veux sélectionner tous ceux qui commencent par A, C et D en utilisant la macro suivante :

AutoFilter Field:=1, Criteria1:=Array("A*", "C*", "D*"), Operator:=xlFilterValues​

Là, plus rien ne fonctionne 🙁

Comment faire pour sélectionner tout ce qui commence A, C et D ?

Merci,
Zepiii

 

[Staple1600]

Bonjour le fil, le forum, @Zepiii

@Zepiii [Bienvenue sur le forum]

Bonjour,
Comment faire pour sélectionner tout ce qui commence A, C et D ?
Merci,
Zepiii

En utilisant le filtre élaboré (avec un critère "formulé")

Sub a()
Range("D2").Formula = "=OR(LEFT(A2)=""A"",LEFT(A2)=""C"",LEFT(A2)=""D"")"
Range(Cells(1,1),Cells(Rows.Count,1).End(3)).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("D1:D2"), Unique:=False
End Sub

PS: Test OK sur mon fichier de test et sur mon PC.

 

[kingfadhel]

Bonjour, le fil, le forum
@Zepiii , @Staple1600

Sub Filter_me()
Raneg("AD1") = "Filtre"
montableau = Array("A*", "C*", "D*")
For i = 2 To Application.CountA(Range("A:A"))
    x = Range("A" & i)
    trouve = False
    For j = LBound(montableau) To UBound(montableau)
       If x Like montableau(j) Then trouve = True
    Next
    If trouve Then
       Range("AD" & i) = 1
    Else
       Range("AD" & i) = 0
    End If
Next
Range("$AD$1:$AD$2700").AutoFilter Field:=1, Criteria1:="1"
End Sub

 

[kingfadhel]

Re,
Autre méthode sans passer ni par l’auto-filtre, ni l'ajout d'une colonne.
Juste masquer la ligne.

Sub Filter_me()
Cells.EntireRow.Hidden = False
Range("A1").Select
montableau = Array("A*", "C*", "D*")
For i = 2 To Application.CountA(Range("A:A"))
    x = Range("A" & i)
    trouve = False
    For j = LBound(montableau) To UBound(montableau)
       If x Like montableau(j) Then trouve = True
    Next
    If trouve Then
       GoTo suite
    Else
       Rows(i).EntireRow.Hidden = True
    End If
suite:
Next
End Sub

 

[Staple1600]

Bonjour kingfahel

@kingfadhel
Pourquoi se compliquer la vie en faisant avec 15 lignes de codes ce qu'on peut faire en 2 lignes de code ?

 

[kingfadhel]

Re,
@Staple1600 , 22388>>>>409
Quand j'aurais ton expérience peut être je le traduit en une ligne. 😉😉😉🙂

 

[Staple1600]

Re

L'expérience n'a rien à voir là-dedans.
Je pose juste la question: pourquoi se compliquer la vie 😉

D'ailleurs pourquoi ici passer par une macro, on pourrait se contenter d'utiliser le filtre élaboré comme je l'ai fait mais manuellement.

PS: je suis adepte du principe K.I.S.S

 

[Zepiii]

Merci @Ce lien n'existe plus et @kingfadhel

J'ai pris la version de Staple et ça fonctionne.

Je suis aussi pour le principe K.I.S.S. donc j'aurais une petite question :

Sub a()
Range("D2").Formula = "=OR(LEFT(A2)=""A"",LEFT(A2)=""C"",LEFT(A2)=""D"")"
Range(Cells(1,1),Cells(Rows.Count,1).End(3)).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("D1:D2"), Unique:=False
End Sub

Est-il possible de ne pas devoir écrire la formule dans une case mais de directement l'incorporer dans le CriteriaRange? J'ai essayé mais ça me donne des erreurs et ne comprends pas pourquoi.

Grand merci à vous 2 en tout cas.

 

[Staple1600]

Re

Si cela avait été possible, je l'aurais fait 😉
Mais tu peux toujours supprimer la formule en fin de macro, non ?

 

[Zepiii]

Bien sûr, c'était de la curiosité comme je suis nouveau dans le monde des macros.
J'ai du mal à comprendre pourquoi ce n'est pas possible mais je vais le découvrir petit à petit!

Un grand merci pour votre aide 🙂 Topic résolu!

 

[Staple1600]

Re

Avec des endives

Sub b()
With Range("D2")
    .Formula = "=OR(LEFT(A2)=""A"",LEFT(A2)=""C"",LEFT(A2)=""D"")"
    Range(.Offset(-1, -3), Cells(Rows.Count, 1).End(3)).AdvancedFilter 1, .Offset(-1).Resize(2), Unique:=False
    .Clear
End With
End Sub

Ce n'est pas possible, parce que le filtre élaboré fonctionne avec une plage de cellules comme critère.