Besoin d'une macro Excel svp

Résolu/Fermé
Dicky-Bird Messages postés 16 Date d'inscription lundi 10 octobre 2005 Statut Membre Dernière intervention 6 avril 2009 - 3 avril 2009 à 08:38
Dicky-Bird Messages postés 16 Date d'inscription lundi 10 octobre 2005 Statut Membre Dernière intervention 6 avril 2009 - 6 avril 2009 à 08:56
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,
A voir également:

10 réponses

wilfried_42 Messages postés 907 Date d'inscription mardi 19 août 2008 Statut Contributeur Dernière intervention 8 décembre 2009 243
3 avril 2009 à 09:47
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
0
Dicky-Bird Messages postés 16 Date d'inscription lundi 10 octobre 2005 Statut Membre Dernière intervention 6 avril 2009
3 avril 2009 à 09:52
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,
0
wilfried_42 Messages postés 907 Date d'inscription mardi 19 août 2008 Statut Contributeur Dernière intervention 8 décembre 2009 243
3 avril 2009 à 10:28
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

0
Dicky-Bird Messages postés 16 Date d'inscription lundi 10 octobre 2005 Statut Membre Dernière intervention 6 avril 2009
3 avril 2009 à 10:44
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
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
wilfried_42 Messages postés 907 Date d'inscription mardi 19 août 2008 Statut Contributeur Dernière intervention 8 décembre 2009 243
3 avril 2009 à 11:51
re:

1er essai
ton fichier en retour
https://www.cjoint.com/?eflZLa1YEB
0
Dicky-Bird Messages postés 16 Date d'inscription lundi 10 octobre 2005 Statut Membre Dernière intervention 6 avril 2009
3 avril 2009 à 14:43
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,
0
wilfried_42 Messages postés 907 Date d'inscription mardi 19 août 2008 Statut Contributeur Dernière intervention 8 décembre 2009 243
3 avril 2009 à 19:48
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")
0
Dicky-Bird Messages postés 16 Date d'inscription lundi 10 octobre 2005 Statut Membre Dernière intervention 6 avril 2009
6 avril 2009 à 08:03
Bonjour,

J'ai remplacé
Sheets(1).Autofilter par Sheets("Feuil1").Autofilter

mais l'erreur persiste;

C'était bien la manip a faire ?

Merci

Cordialement,
0
wilfried_42 Messages postés 907 Date d'inscription mardi 19 août 2008 Statut Contributeur Dernière intervention 8 décembre 2009 243
6 avril 2009 à 08:19
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
0
Dicky-Bird Messages postés 16 Date d'inscription lundi 10 octobre 2005 Statut Membre Dernière intervention 6 avril 2009
6 avril 2009 à 08:56
Voila, c'est parfait,

ça va me faire gagner un temps fou;

a charge de revanche (si je peux),

Merci encore,

Cordialement,
0