Filtre par macro Excel

[Maxpuff]

Bonjour,

Je souhaite filtrer un classeur Excel à l'aide d'une macro. J'ai un filtre qui exécute une comparaison ligne par ligne, ce qui est assez long:

j = 2
While (Range("A" & j).Value <> "")
If (Range("A" & j).Value <> CompanyToKeep) Then
Rows(j).Delete Shift:=xlUp
Else
j = j + 1
End If
Wend

Y a-t-il un moyen plus rapide pour filtrer le tableur d'un coup..?

 

[job75]

Re : Filtre par macro Excel

Bonjour Maxpuff,

Esayez :

Sub Trier()
Dim CompanyToKeep$
[COLOR="Red"]CompanyToKeep = "toto"[/COLOR]
Application.ScreenUpdating = False
[A1:A65536].AutoFilter Field:=1, Criteria1:="<>" & CompanyToKeep
Range([A2], [A65536].End(xlUp)).SpecialCells(xlVisible).EntireRow.Delete
[A1:A65536].AutoFilter
End Sub

A+

 

[Maxpuff]

Re : Filtre par macro Excel

Merci, ça fonctionne beaucoup mieux à présent

Peut-on enlever le filtre ensuite de la case A2 ?

 

[job75]

Re : Filtre par macro Excel

Re,

Revoyez mon post précédent, j'ai modifié une petite erreur (A1 au lieu de A2 pour le filtre).

Normalement le filtre est désactivé .

A+