Procédure pour extraire puis copier les données

Bonjour,

Je dispose de données avec en-têtes de colonnes. Les colonnes vont de A à G et les lignes de 2 à 1600 sur feuille 1 du classeur

J'ai des données numériques (montants) en colonne D donc plage D2 : D1600

Je voudrai écrire une procedure VBA sous Excel 2007 pour

1- extraire les lignes de données dont la valeur (en colonne D) est supérieure à 5000

2- que la procédure copie ces lignes sur la feuille2 (vide), à partir de la colonne A et de la ligne 2 de cette nouvelle feuille



merci.

Bonsoir goofyto8 ,

as-tu essayé avec l'enregistreur de macro ?

Il suffirait ensuite de compléter le code générer avec la condition (>5000) voir encore plus simple, de lancer l'enregistreur de macro, filtrer la colonne D, faire le copier/coller vers la nouvelle feuille et enfin arrêter l'enregistreur de macro...Le code est créé.

Curt

Salut, pour cela utilise l'enregistreur de macros : Excel et l'enregistreur de macro
voir aussi Dernière ligne et la dernière colonne renseignées d'une feuille

Citation:

---

Envoyé par curt

Bonsoir goofyto8 ,

as-tu essayé avec l'enregistreur de macro ?

Il suffirait ensuite de compléter le code générer avec la condition (>5000) voir encore plus simple, de lancer l'enregistreur de macro, filtrer la colonne D, faire le copier/coller vers la nouvelle feuille et enfin arrêter l'enregistreur de macro...Le code est créé.

Curt

---

En utilisant l'enregistreur de macros et en faisant les manips à la souris, il me génère le code VBA suivant

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub filtrage()   ' filtre et copie les données supérieures à 5000   Columns("A:A").Select Selection.AutoFilter ActiveSheet.Range("$A$1:$A$1754").AutoFilter Field:=1, Criteria1:=">5000", _ Operator:=xlAnd Range("A:A,B:B,C:C,D:D,E:E,F:F,G:G").Select Range("G1").Activate Selection.Copy Sheets("feuill2").Select Range("A1").Select ActiveSheet.Paste   End Sub

---

mais je ne voudrai pas utiliser les réferences à une selection du filtre automatique d'Excel dans mon code VBA
Donc ne pas utiliser
Selection.AutoFilter
ActiveSheet.Range("$A$1:$A$1754").AutoFilter Field:=1

Salut,

j'ai fait la manip et ça donne :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub Macro1() ' ' Macro1 Macro '   ' ActiveSheet.Range("$A$1:$G$4").AutoFilter Field:=4, Criteria1:=">5000", _ Operator:=xlAnd Columns("A:G").Select Selection.Copy Sheets("Feuil2").Select ActiveSheet.Paste End Sub

---

Il va falloir être plus explicite quant au résultat à obtenir.
Pourquoi ne pas vouloir utiliser le filtre automatique d'Excel ?

Curt

Bonjour,

tu ne veux pas de filtre automatique.

Ca tombe bien ! Quand on veut filtrer selon un (ou des) critère(s) et exporter les données, y'a les filtres avancés qui sont les meilleurs atouts (rapidité, simplicité de code etc...)

http://philippetulliez.developpez.co...dvancedfilter/



Sinon, tout autre solution sera une usine à gaz par rapport aux outils excel de filtre
Piste la moins moche :

1) trier la plage sur la colonne D par ordre décroissant
2) tenter de trouver une cellule égale à 5000 (fonction FIND de l'objet Range).
3) si on trouve cette cellule, on récupère son numéro de ligne (numéro X)
3bis) si on la trouve pas alors
- boucle sur chaque cellule de D
- dès qu'une cellule est <=5000 : on récupère le numéro de ligne de la cellule (numéro X)

4) on copie de la ligne 2 à la ligne X - 1 à destination de la seconde feuille

mais bon ...