Sujet Précédent Sujet Suivant

Filtre VBA

Fermé
missabc2016 Messages postés 3 Date d'inscription lundi 25 avril 2016 Statut Membre Dernière intervention 26 avril 2016 - Modifié par zipe31 le 26/04/2016 à 12:05
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 - 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 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


A voir également:

1 réponse

Réponse 1 / 1
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
28 avril 2016 à 15:01
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

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
VBA : Range avec références variables..
Antoine -
MIKE59 -

7 réponses
comment contourner la fonction FILTRE
Gabby -
DjiDji59430 -

3 réponses
VBA erreur 1004
séverine -
Floroan -

9 réponses
ouverture d'un fichier excel à partir d'un code VBA
TraderAS -
pijaku -

3 réponses