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
Frenchie83 Messages postés 2240 Date d'inscription Statut Membre Dernière intervention - 28 avril 2016 à 15:01
A voir également:
- Filtre VBA
- Photo filtre 7 gratuit - Télécharger - Retouche d'image
- Filtre teams - Accueil - Visio
- Filtre whatsapp - Accueil - Messagerie instantanée
- Excel compter cellule couleur sans vba - Guide
- Forum Excel
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