Filtre VBA
missabc2016
Messages postés
3
Statut
Membre
-
Frenchie83 Messages postés 2254 Statut Membre -
Frenchie83 Messages postés 2254 Statut Membre -
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
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:
- Filtre VBA
- Photo filtre 7 gratuit - Télécharger - Retouche d'image
- Filtre whatsapp - Accueil - Messagerie instantanée
- Filtre teams - Accueil - Visio
- Filtre manga - Accueil - TikTok
- Excel compter cellule couleur sans vba - Guide
1 réponse
Bonjour
Avec la liste en colonne A, positionnez-vous sur une cellule du pays à filtrer et lancez cette macro.
Cdlt
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
