Extraction de données avec critères et extract sur feuil active

Fermé

Bigmoustache - 27 janv. 2015 à 14:26
Patty5083 Messages postés 34 Date d'inscription lundi 14 avril 2014 Statut Membre Dernière intervention 10 novembre 2019 - 27 janv. 2015 à 20:03

Bonjour,

je suis un peu novice avec les macros et je voudrais mettre ce nom de feuille "9522 AGE 01" en référence contenant ce nom car celui ci est variable pour chaque feuille. Mon classeur peut contenir entre 500 et 1500 feuilles nommées par une liste variable.

Sub Extraction()
'
' Extraction Macro
'
Sheets("Base4").Select
Range("Q15").Select
Range("A8:R1523").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Sheets("9522 AGE 01").Range("F1:H2"), CopyToRange:=Range("X8:AF9"), Unique _
:=False
Range("X9").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Cut
Sheets("9522 AGE 01").Select
Range("E24").Select
ActiveSheet.Paste
Range("E24").Select
End Sub

je suis sur excel 2013

merci pour l'aide

A voir également:

Extraction de données avec critères et extract sur feuil active
Effacer les données de navigation - Guide
Reinstaller windows sans perte de données - Guide
Service de diffusion de données - Forum TNT / Satellite / Réception
Tnt base de données vide ✓ - Forum TNT / Satellite / Réception
Comment sauvegarder toutes les données de mon téléphone - Guide

1 réponse

Réponse 1 / 1

Patty5083 Messages postés 34 Date d'inscription lundi 14 avril 2014 Statut Membre Dernière intervention 10 novembre 2019
27 janv. 2015 à 20:03

Bonsoir
Peut-être est-il possible d'appeler la fonction Extraction avec le nom de la feuille souhaitée en paramètre ??

Extraction("9522 AGE 01")

A voir ??

Discussions similaires

Index+Equiv avec 3 critères

Germain

Bonjour, impossible de trouver le pilote Acquisition de données PCI

Enlever le pass. Telecomm. Active

Exemple de base de données access

Discussions similaires

Newsletters