Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Autres Simplifier une macro

chilo27

XLDnaute Occasionnel
Bonjour le Forum

J'ai fait cette macro pour trier une base de données de plusieurs colonnes pour ne prendre que 4
Le but est de lister les adhérents de 65 ans et plus

Est il donc possible de simplifier cette macro

En remerciant


Application.Goto Reference:="resultat"
ActiveWindow.SmallScroll Down:=-6
Range("B1").Select
Selection.AutoFilter
ActiveSheet.Range("$B$1:$F$156").AutoFilter Field:=4, Criteria1:=Array( _
"65 ans", "66 ans", "67 ans", "68 ans", "70 ans", "71 ans", "72 ans", "73 ans", "74 ans", "75 ans", "76 ans", "77 ans", "78 ans", "79 ans", _
"80 ans", "81 ans", "82 ans", "83 ans", "84 ans", "85 ans", "86 ans", "87 ans", "88 ans", "89 ans", _
"90 ans", "91 ans", "92 ans", "93 ans", "94 ans", "95 ans", "96 ans", "97 ans", "98 ans", "99 ans"), Operator:=xlFilterValues
Range("B2:E152").Select
Selection.Copy
Sheets("résultat").Select
Range("A2").Select
ActiveSheet.Paste
Sheets("BD").Select
Application.CutCopyMode = False
Selection.AutoFilter
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…