extraire donnée et filtre selon critére

titooooo · 10 Avril 2016

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 · 10 Avril 2016

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

Bonjour

Code:

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 · 10 Avril 2016

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

merci chris et le forum

extraire donnée et filtre selon critére

titooooo

XLDnaute Occasionnel

Pièces jointes

Chris401

XLDnaute Accro

Pièces jointes

titooooo

XLDnaute Occasionnel

Discussions similaires