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
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
A voir également:
- Filtre VBA
- Photo filtre 7 gratuit - Télécharger - Retouche d'image
- Filtre teams - Accueil - Visio
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Excel compter cellule couleur sans vba - Guide
- Équivalent fonction filtre excel 2016 - Forum Excel
1 réponse
Frenchie83
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
338
28 avril 2016 à 15:01
28 avril 2016 à 15:01
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