> Tous les forums > Forum Bureautique
 Excel 2007 extraction dans un autre fichier
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Cecilia2
  Posté le 31/03/2011 @ 22:59 
Aller en bas de la page 
Petite astucienne

Bonsoir,

J'ai un fichier avec 2800 lignes.
Je souhaite extraire les informations de A à O uniquement de chaque magasin dans un autre fichier. J'ai environ 80 magasins.

Actuellement, je fais un tri et je copie chaque magasin dans une feuille donc mon fichier en contient 80. Ci-joint un extrait du fichier.

http://cjoint.com/?3dFwYscztfZ

Merci

Cécilia

Publicité
B.D.
 Posté le 01/04/2011 à 02:17 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Message original par Cecilia2

Bonsoir,

J'ai un fichier avec 2800 lignes.
Je souhaite extraire les informations de A à O uniquement de chaque magasin dans un autre fichier. J'ai environ 80 magasins.

Actuellement, je fais un tri et je copie chaque magasin dans une feuille donc mon fichier en contient 80. Ci-joint un extrait du fichier.

http://cjoint.com/?3dFwYscztfZ

Merci

Cécilia

Placez le curseur dans le tableau (mais pas sur la ligne de titres), cliquez sur la cellule.

Essayez le filtre automatique (Données / Filtrer / Filtre automatique).

Si cela ne vous convient pas, essayez le filtre élaboré (Données / Filtrer / Filtre élaboré).

Exemple de filtre :

Vous pouvez paramétrer un filtre sur chaque colonne qui vous intéresse.

Le tri peut être effectué après le filtrage.

@+



Modifié par B.D. le 01/04/2011 02:21
galopin01
 Posté le 01/04/2011 à 07:55 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonjour,

Au niveau des infos tu fais dans le genre radins.com...

Une solution macro qui peut sans doute te faire gagner un peu de temps : la macro suivante ventile toutes les données dans de nouvelles feuilles puis transfère ces feuilles dans un classeur nommé "cible.xls"

Nota : Le classeur "cible.xls" doit déjà être ouvert et ne doit pas déjà comporter les feuilles cibles...

Il faudra surement renommer également le Feuil1 de ta démo...

Les macros : Lancer uniquement la Sub Galopin()

Sub Galopin()
Dim Tablo(), a%, i%, j%, k%, ii%, iNR% Z$
'Création d'une liste triée sans doublo iNR%n
Set Ws = Sheets("Feuil1")
Set Mondico = CreateObject("Scripting.Dictionary")
ii = Ws.[B65000].End(xlUp).Row
For Each o In Ws.Range("B2:B" & ii)
If Not Mondico.exists(o.Value) Then Mondico.Add o.Value, o.Value
Next o
temp = Mondico.items
Call tri(temp, LBound(temp), UBound(temp))
k = Mondico.Count
ReDim Tablo(k)
'Création des nouvelles feuilles
For i = 1 To k
Sheets.Add After:=Sheets(Sheets.Count)
Tablo(i) = temp(i - 1)
ActiveSheet.Name = temp(i - 1)
'Création de la première ligne
For j = 1 To 15
Cells(j) = Ws.Cells(j)
Next
Next
'Ventilation dans les nouvelles feuilles
With Ws
For i = 2 To ii
Z = .Cells(i, 2)
iNR = Sheets(Z).[A65000].End(xlUp).Row + 1
For j = 1 To 15
Sheets(Z).Cells(iNR, j) = Ws.Cells(i, j)
Next
Next
End With
'Transfert vers le nouveau classeur
Set Wb = Workbooks("Cible.xls")
For i = 1 To k
ThisWorkbook.Sheets(Tablo(i)).Move After:=Wb.Worksheets(Wb.Sheets.Count)
Next
End Sub

Private Sub tri(a, gauc, droi) ' Quick sort
'Cette macro sert à trier les feuilles dans l'ordre alphabétique (Source jb)
ref = a((gauc + droi) \ 2)
g = gauc: d = droi
Do
Do While a(g) < ref: g = g + 1: Loop
Do While ref < a(d): d = d - 1: Loop
If g <= d Then
temp = a(g): a(g) = a(d): a(d) = temp
g = g + 1: d = d - 1
End If
Loop While g <= d
If g < droi Then Call tri(a, g, droi)
If gauc < d Then Call tri(a, gauc, d)
End Sub

A+



Modifié par galopin01 le 02/04/2011 04:21
jpr73
 Posté le 01/04/2011 à 17:29 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
Bonjour,
Une autre solution avec les tableaux croisés dynamqiues.
- créer un TCD général avec la base de données.
- afficher les pages de filtre de rapport avec les options de tableaux croisés dynamiques :
	- avec filtre du rapport : magasin et N° magasin.
	- création automatique d'une feuille de classeur par magasin.
- déplacer ou copier chaque feuille en copie dans un nouveau classeur qui sera enregistré sous le nom du magasin.
Les avantages sont multiples : paramétrage illimités et liaisons dynamiques des classeurs.
NB : lors de toute modification actualiser tout.
Exemple 1 : Base de données, TCD général et pages de filtre http://cjoint.com/?1ebrugulTAQ
Exemple 2 : Fichier magasin http://cjoint.com/?1ebrvnQQzdt
Cordialement
Cecilia2
 Posté le 01/04/2011 à 22:07 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

Bonsoir,
Merci pour vos réponses, y a t'il une façon spécifique pour le tableau croisé dynamique car j'ai essayé d'en faire un autre mais je n'arrrive pas à positionner les champs afin d'avoir la même présentation que le modèle. Je pense qu'il me conviendra car c'est bien la présentation que je souhaite

Quand à la macro demain je vais l'essayer également.
Bonne soirée à tous

jpr73
 Posté le 02/04/2011 à 14:49 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
Bonjour,
Pouvez-vous mettre en ligne le fichier de données définitif sur lequel vous travaillez ?
En le mettant en ligne la probabilité de différentes contributions est très élevée.
Si vous considerez qu'il est confidentiel alors la possibilité est le message privé.
Cordialement
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
7,99 €Lot de 32 piles Philips AA à 7,99 €
Valable jusqu'au 20 Janvier

Fnac fait une promotion sur le lot de 32 piles Philips AA qui passe à 7,99 € au lieu de 15 €.


> Voir l'offre
8 €Carte Cdiscount à Volonté 1 an (CDAV) à 8 €
Valable jusqu'au 20 Janvier

Cdiscount propose actuellement sa carte Cdiscount à Volonté à 8 € seulement au lieu de 29 €. Avec cette carte, vous bénéficiez pendant 1 an de la livraison gratuite en point relais dès 10 € d'achats et à domicile dès 25 € d'achats. Vous avez également accès à plus de 200 titres de presse en ligne en illimité. Vous bénéficiez également de temps en temps des offres et des codes promotionnels exclusifs. Notez que vous pouvez partager gratuitement vos privilèges avec 2 de vos proches.


> Voir l'offre
21,43 €Souris sans fil Logitech M280 à 21,43 €
Valable jusqu'au 21 Janvier

Amazon fait une petite promotion sur la souris sans fil Logitech M280 qui passe à 21,43 €. On la trouve ailleurs à partir de 30 €. Sa forme profilée est adaptée aux droitiers. Son autonomie est de 18 mois (pile AA que vous pourrez remplacer).


> Voir l'offre

Sujets relatifs
Excel 2007 Copier/Coller d’une feuille à l’autre Dans un même classeur.
Excel 2007 extraction feuille 1 dans feuille 2 avec mise en forme
(Macro) Copier onglet sur autre fichier Excel (2007)
Windows xp copier fichier répertoire dans excel 2007
fichier Excel 2010 s'ouvre mal dans 2007
Excel 2007 résultat formule dans une autre cellule
Excel 2007, extraction feuille 1 dans feuille 2
Ouvrir un fichier excel 2000 dans 2007
Creation d' une boucle macro dans fichier EXCEL pour impression
Récupération dates dans tableau excel 2007
Plus de sujets relatifs à Excel 2007 extraction dans un autre fichier
 > Tous les forums > Forum Bureautique