Filtre VBA

missabc2016 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -  
Frenchie83 Messages postés 2240 Date d'inscription   Statut Membre Dernière intervention   - 28 avril 2016 à 15:01
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

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


A voir également:

1 réponse

Frenchie83 Messages postés 2240 Date d'inscription   Statut Membre Dernière intervention   338
 
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
0