XL 2010 Ventilation de données dans des onglets

[IngridR]

bonjour à toutes et à tous,
après plusieurs jours de recherche et d'essais infructueux, pourriez-vous me venir en aide SVP.
j'ai un fichier Excel avec un onglet "données", j'ai créé des onglets à partir de la colonne "rubrique" (colonne C), jusque là, je m'en suis sortie avec une extraction sans doublon et une macro.
ensuite, avec un code VBA ("Ventilation"), je souhaite que les lignes de la feuille "données" soient ventilées dans les onglets appropriés. Je ne suis pas experte en code VBA, j'ai donc suivi un tuto en l'adaptant (je pense....j'espère) à mon fichier, mais il n'exécute pas.
pourriez-vous lire, corriger et m'expliquer pourquoi il ne fonctionne pas.
merci infiniment

 

[sylvanu]

Bonjour IngridR, et bienvenue sur XLD,
Votre fichier fait 1088 lignes, quand vous faites

DerniereLigne =Range("a1000").End(xlUp).Row

Comme la ligne max est >1000 il renvoie Derniere ligne=1, d'où l'erreur.
J'ai remplacé par :

DerniereLigne = Range("a65000").End(xlUp).Row

Mais c'est long, sur mon PC cela met 14s. Il y a beaucoup de select qui prennent du temps.
Je vous propose une autre macro qui est censé faire la même chose ( dans Sylvanu/Ventilation2 ) et qui ne met que 0.5s sur le même PC.

 

[vgendron]

Hello
Comme tu as mis tes données dans une table structurée (bravo pour ca !!) on peut utiliser cet avantage pour traiter les données
voir en PJ ton fichier avec UNE seule macro qui fait l'ensemble des opérations

 

[IngridR]

Merci infiniment, c'est impeccable, votre version exécute en effet beaucoup plus rapidement

 

[Arnaud Legay]

Bonjour à tous,
Je viens de lire ce post, qui correspond plutôt bien à ce que je cherche, mais des amélioration perso serait bien.
Pourrait on imaginer la même chose mais avec les modifications suivantes ? :
- vider l'onglet de saisie une fois que les données sont exportées sur les onglets,
- lorsqu'on ressaisi des infos dans l'onglet de saisie, pouvoir exporter à nouveau ces données mais sans écraser les précédentes ? les mettre à la suite,
- création nouveaux d'onglets si certaines catégories n'existent pas ? (personnellement, je n'aurai surement pas de liste car trop variable).

A toutes fins utiles, je joint mon fichier.
Le but pour moi est de pouvoir saisir au fur et à mesure de mes évènement les heures de mes employés et de les spliter dans un onglet par employé selon un modèle pour faire une récap en fin de mois et faire les salaires. Les noms/prénoms varient souvent et cela peut monter jusqu'à une cinquantaine de personnes différentes.