Tri et export données

Nanou42

XLDnaute Nouveau
Salut à toutes et à tous.

J'aimerais créer automatiquement un onglet par item au lieu de le faire manuellement, les items peuvent évoluer en croissant

Et exporter données de ces items dans le bon onglet,

Cette macro enregistrée me sert pour l'export de donnée.
J'aimerais la simplifié, car le nombre de ligne risque d'évoluer

Sub exportDonnées()

' exportDonnées Macro'
ActiveSheet.Range("$E$1:$E$6999").AutoFilter Field:=1, Criteria1:="=A0*", _
Operator:=xlAnd
Columns("A:E").Select
Selection.Copy
Sheets("A0").Select
Range("A1").Select
ActiveSheet.Paste

End Sub

Merci
 
Dernière modification par un modérateur:

Nanou42

XLDnaute Nouveau
Salut,
disons, juste à raccourcir le code. Comme je l'ai fait avec l'enregistreur de macro,
je pensais qu'il y avais des éléments en trop, si ce n'est pas le cas tant mieux.

ActiveSheet.Range("$E$1:$E$6999").
De E1 à E6999, je sais que le nombre de ligne évoluera, peut on mettre
E1:E ?
 

Alza

XLDnaute Junior
Une solution à tester ci-joint.

Alza'

Edit : Oops petite coquille, corrigé dans le nouveau fichier pense à le reprendre si tu as déjà téléchargé
 

Pièces jointes

  • Copie de Export selon critères-1.xlsm
    328.4 KB · Affichages: 16

Nanou42

XLDnaute Nouveau
Salut Alza,
Je viens de faire des essais mais ça ne fonctionne pas comme je le voudrais.
En effet ça fonctionne bien, pour A0, mais si j'ajoute un onglet B0, rien ne fonctionne.
J'ai rajouté un morceau de code mais cela ne fonctionne pas si je veux rajouter les données de B0.
Peux t'on rajouter les items en automatique.

Merci
 

Pièces jointes

  • Copie de Export selon critères-2.xlsm
    387.9 KB · Affichages: 13

Discussions similaires

Réponses
38
Affichages
4 K