Selectionner par Macro les Données Filtrées

ljoue · 2 Septembre 2005

Bonjour à tous,

J'ai un tableau où je filtre les données par Mois (colonne H).

Une fois le Filtrage effectué, j'aimerais pouvoir par Macro sélectionner ces données pour les copier sur une autre feuille nomée 'Liste Finale'
Le nombre de données varient d'un mois à l'autre il me faut donc une sélection dynamique.

En gros ne sélectionner que ce qui est visible sur la fenêtre !

Merci d'avance pour votre aide...

Cordialement,
Laurent

Staple1600 · 2 Septembre 2005

Bonjour

Une première approche

Sub Macro2()
z = InputBox('Mois sélectionné?', 'Choix du mois')
Application.ScreenUpdating = False
Range('B1').Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=z
Selection.CurrentRegion.Select
Selection.Copy
Sheets('Liste Finale').Select
Range('A1').Select
ActiveSheet.Paste
Sheets('Feuil1').Select
Application.CutCopyMode = False
Selection.AutoFilter
End Sub

colonne A contient des dates
en colonne B: =TEXTE(A1;'mmmm')

ljoue · 2 Septembre 2005

Staple1600 écrit:

Selection.CurrentRegion.Select
Selection.Copy
Sheets('Liste Finale').Select
Range('A1').Select
ActiveSheet.Paste
Sheets('Recup NAV').Select
Application.CutCopyMode = False
Selection.AutoFilter
End Sub

Trop bon c'est exactement ce bout de code que je cherchais !
Merci à toi Staple1600

Code Allégé :
Selection.AutoFilter Field:=8, Criteria1:=Range('B1').Value
Selection.CurrentRegion.Copy
ActiveSheet.Paste Destination:=Worksheets('Liste Finale').Range('A5')
Selection.AutoFilter
Application.CutCopyMode = False

@+

Cliquez pour agrandir...

Selectionner par Macro les Données Filtrées

ljoue

XLDnaute Junior

Staple1600

XLDnaute Barbatruc

ljoue

XLDnaute Junior

Discussions similaires