Besoin d'une macro Excel svp Résolu/Fermé

Question

Bonjour,

Voila mon Pb;
j'ai par exemple cette feuille Excel :
colA   colB    colC   ...
1001  nom1  pre1
1001  nom2  pre2
2002  nom3  pre3
2002  nom4  pre4
2002  nom5  pre5
3005  nom6  pre6
.....
a partir de cette liste, je voudrais créer autant de feuilles que de valeurs uniques de colA, soit pour l'exemple :
* une feuille nommée 1001 avec uniquement les lignes 1001
* une feuille nommée 2002 avec uniquement les lignes 2002
* une feuille nommée 3005 avec uniquement les lignes 3005     etc

Je pense qu'il n'y a qu'une macro pour réaliser cela,  mais comment faire ?

Merci pour votre aide,

Cordialement,

wilfried_42 · Answer

bonjour

combien de codes as tu ?, cela ferait combien de feuilles ? quelle version d'excel as tu ? 
une version inférieure à 2007 est limitée à 255 feuilles
maintenant il est facile de faire autrement, avec les filtres

Dicky-Bird · Answer

Merci pour ta réponse rapide,

Il y a environ, entre 40 et 50 codes différents;  pour un total de 2500 lignes

J'ai 2 versions d'Excel, 97 et 2003;

C'est un travail que je fait tous les mois, a la mano;  donc cette automatisation me rendrait un grand service;

merci encore,

Cordialement,

wilfried_42 · Answer

re:

s'il n'y a pas de problème de confidentialité, peux tu poster ton fichier pour faire des tests en réel
pour lier un fichier,
tu vas sur https://www.cjoint.com/index.php 
tu charges le fichier et tu postes le line qu'il te donne
@ te lire

Dicky-Bird · Answer

Merci encore pour ta rapidité et ta dispo,

J'ai transféré le fichier, voici le lien :
https://www.cjoint.com/?efkRvH35ut


l'éclatement en onglet, doit etre fait sur la 1ere colonne soit "Compte"

Cordialement,

A+tard

wilfried_42 · Answer

re:

1er essai
ton fichier en retour
https://www.cjoint.com/?eflZLa1YEB

Dicky-Bird · Answer

Ecoutes, c'est spectaculaire,

génial,

En cliquant sur "GO" ça crée bien tous les onglets avec les bonnes données;

L'ensemble est bon, sauf que ça met quand même un message d'erreur (voir lien)
https://www.cjoint.com/?efoQVysLnJ

Cordialement,

wilfried_42 · Answer

re:

oui c'est de ma faute, je n'ai pas testé jusqu'au bout, j'ai bloqué après 3 feuilles
à la place de sheets(1) tu mets sheets("Feuil1")

Dicky-Bird · Answer

Bonjour,

J'ai remplacé
 Sheets(1).Autofilter  par  Sheets("Feuil1").Autofilter  

mais l'erreur persiste;

C'était bien la manip a faire ?

Merci

Cordialement,

wilfried_42 · Answer

re:

je suis trop bête, la tête un peu à l'envers à cause d'un déménagement qui est maintenant terminé

autofilter est associé à un objet range et non sheet donc
Sheets("Feuil1").range("A1").Autofilter

Dicky-Bird · Answer

Voila, c'est parfait,

ça va me faire gagner un temps fou;

a charge de revanche (si je peux),

Merci encore,

Cordialement,

Besoin d'une macro Excel svp

10 réponses

Discussions similaires