Sub selection_groupe()
'
Sheets("GROUPE").Select
Range("A2").Select
'le If ne sert qu'à copier directement tous les titulaires sur les lignes 1322 et suivant si l'option "TOUS GROUPES" est sélectionné
If ActiveCell.Value = ("TOUS GROUPES") Then
ActiveSheet.ShowAllData
Rows("1322:3000").Select
Selection.ClearContents
Rows("5:5").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
ActiveWindow.SmallScroll Down:=17
Rows("1322:1322").Select
ActiveSheet.Paste
'sinon, on fait un filtre élaboré sur la feuille et on colle les individus concernés sur les lignes 1322 et suivant
Else
Range("A4").Select
Range("A4:N1310").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("A1:A2"), Unique:=False
Rows("1322:3000").Select
Selection.ClearContents
Range("A4:N1310").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
("A1:A2"), CopyToRange:=Range("A1321:N1321"), Unique:=False
End If
'une fois fait, on fait des filtres sur toutes les feuilles qui sont en liaison avec les lignes 1322 et suivant de la feuille GROUPE pour virer les lignes vides
Sheets("DOSSIER1").Select
Range("A7:Q1313").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("B1:B2"), Unique:=False
Sheets("DOSSIER2").Select
Range("A7:Q1313").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("B1:B2"), Unique:=False
Sheets("DOSSIER3").Select
Range("A7:L1313").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("B1:B2"), Unique:=False
Sheets("DOSSIER4").Select
Range("A7:Q1313").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("B1:B2"), Unique:=False
Sheets("INDEX").Select
End Sub
Partager