extraire donnée et filtre selon critére

[titooooo]

bonjour

j'ai 3 feuille ou peut être plus et mon tableau contient plus de colone et de ligne mais je l'es ai suprimer pour la taille du zip

feuille
2013,2014,2015,…….

je veut que si je choisi l'année et la division que excel me donne de la l'année en question que les donnée de la division concerné

même format sur toute les feuille

et je veut que les résultat seront a partir de la ligne2

j'ai mis en exemple chois 2015 et sp1 en feuille résultat

 

[Chris401]

Re : extraire donnée et filtre selon critére

Bonjour

Sub Recap()
Sheets("resultat").Cells.Clear
Sh = "" & Range("D4")
Filt = Range("F4")
With Sheets(Sh).Range("A1:J" & Sheets(Sh).Range("A" & Rows.Count).End(xlUp).Row)
    .AutoFilter Field:=1, Criteria1:=Filt
    .Copy Sheets("resultat").Range("A1")
    .AutoFilter Field:=1
End With
Sheets("resultat").Activate
End Sub

Cordialement
Chris

 

[titooooo]

Re : extraire donnée et filtre selon critére

merci chris et le forum