Tri et export données

[Nanou42]

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

 

[Alza]

Bonjour,

Je n'ai pas bien compris ce que tu cherches à faire, qu'entends tu par "simplifier" ?

 

[Nanou42]

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]

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é

 

[Nanou42]

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

 

[Bougla972]

Bonjour Nanou, Alza,

un essai en pj

 

[Nanou42]

Bougla
tout fonctionne comme je voulais.
Merci à toi et à Alza.
Une question si j'ai des items en plus, cela s’ajoutera automatiquement ?

 

[Bougla972]

Bonjour,

Oui.

 

[Nanou42]

Bonjour,
Merci, cela me fera gagner beaucoup de temps.