Filtre VBA

Question

Bonjour le forum, 

je fais appel à votre aide afin de pouvoir avancer dans mon travail.
je souhaite filtrer sur une valeur différent de :
ex: j'ai la colonne A => colonne Pays
                               A2     France

                               A10   Total France
                               A11    Espagne
                               A18    Total Espagne

                               ........
                               A1500 Australie
                               A1508 Total Australie

ma demande est d'avoir le code pour garder juste la ligne Espagne et Total Espagne avec l'en tête 'pays' et supprimer le reste

Merci d'avance,
Bonne journée


Configuration: Windows 7 / Mozilla 11.0

Frenchie83 · Answer

Bonjour
Avec la liste en colonne A, positionnez-vous sur une cellule du pays à filtrer et lancez cette macro.

Option Compare Text

Sub FiltrePays()
    Application.ScreenUpdating = False
    If Selection.Column <> 1 Or Selection.Value = "" Then Exit Sub
    Pays = Selection.Value
    TotalPays = "Total " & Selection.Value
    If Worksheets("Feuil1").AutoFilterMode Then
        isOn = "On"
    Else
        isOn = "Off"
        Selection.AutoFilter 
    End If
    Dercol = [IV1].End(xlToLeft).Column
    ActiveSheet.Cells(1, 1).AutoFilter Field:=1, Criteria1:="=" & Pays, Operator:=xlOr, Criteria2:="=" & TotalPays
End Sub
Cdlt

Filtre VBA

1 réponse

Discussions similaires

Newsletters