1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
| Sub Recherche1Critère()
'Ce code permet d'automatiser l'action de filtres avancés :
'Notre source d'information est bien l'onglet BDD (sont préalablement copiées ici toutes les informations liés au P&L déjà traîtés)
'Nous sélectionnons la plage de A2 à U139
'Dans notre onglet de travail, la zone de critère préatablie se situe sur la plage A2 à H3 (de AYANTS-DROIT à NON OEUVRE)
'Enfin, nous souhaitons que la plage filtrée soit copiée en cellule A13
Sheets("BDD").Range("A2:U139").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A2:H3"), CopyToRange:=Range("A13"), Unique:=False
Range("A3").Select
End Sub
Sub Recherche2Critères()
'Ce code est quasiment identique à celui d'une recherche mono critère, seule la plage de critère change pour prendre en compte les lignes 2 et 4 :
Sheets("BDD").Range("A2:U139").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A2:H4"), CopyToRange:=Range("A13"), Unique:=False
Range("A3").Select
End Sub
Sub Recherche3Critères()
'Ce code est quasiment identique à celui d'une recherche mono critère, seule la plage de critère change pour prendre en compte les lignes 2 à 5 :
Sheets("BDD").Range("A2:U139").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A2:H5"), CopyToRange:=Range("A13"), Unique:=False
Range("A3").Select
End Sub |
Partager