> 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
Ensemble clavier et souris sans fil Logitech MK235 à 21,99 €
21,99 € 35 € -37% @Amazon

Amazon fait une promotion sur l'ensemble Logitech MK235 qui passe à 21,99 € alors qu'on le trouve ailleurs à partir de 35 €. Ce pack comporte un clavier et une souris sans fil d'une portée de 10 mètres. Les piles fournies (et que vous pouvez remplacer ensuite) offrent une autonomie de 36 mois pour le clavier et de 12 mois pour la souris.  


Voir le bon plan
Téléphone portable Energizer E13 (2G) à 12,99 €
12,99 € 30 € -57% @Amazon

Amazon fait une promotion sur le téléphone portable Energizer E13 (2G) qui passe à 12,99 €. Si vous recherchez un téléphone qui vous servira à téléphoner et envoyer des SMS, qui ne craint rien et qui dispose d'une excellente autonomie (150 h en veille), voici l'appareil qu'il vous faut. Il intègre une radio FM et peut prendre en charge jusqu'à 2 cartes SIM (mini SIM).


Voir le bon plan
Tournevis de poche Stanley 4 en 1 à 4 €
4,00 € 9 € -56% @Amazon

Amazon fait une promotion sur le tournevis de poche Stanley 4 en 1 qui passe à 4 € au lieu de 9 €. 


Voir le bon plan
SSD WD Black SN770 2 To (PCIe Gen4, NMVe M.2, 5150 Mo/s) à 110,33 € livré
110,33 € 140 € -21% @Amazon Allemagne

Amazon Allemagne fait une promotion sur le SSD WD Black SN770 2 To (NMVe M.2) qui passe à 105,78 €. Comptez 4,55 € pour la livraison en France soit un total de 110,33 € livré alors qu'on le trouve ailleurs à partir de 140 €.

Ce SSD utilise une interface M.2 NVMe PCIe Gen4 pour une connexion simple et des performances exceptionnelles : jusqu’à 5150 Mo/s en lecture séquentielle et jusqu’à 4900 Mo/s en écriture séquentielle. Le SSD est doté de la technologie 3D TLC NAND haute densité offrant une endurance d’écriture durable et assorti d’une garantie de cinq ans. Ce SSD est bien sûr compatible PC mais également PS5.


Voir le bon plan
Jeu PC Midnight Ghost Hunt gratuit
Gratuit @Epic Games

Epic Games Store offre actuellement le jeu PC Midnight Ghost Hunt. Un jeu de cache-cache chaotique en multijoueur. Prenez possession d'objets à première vue inoffensifs dans le rôle des Fantômes ou bien traquez ces derniers en tant que Chasseurs avant que ne résonnent les douze coups de minuit ! Audio en anglais et textes en français.


Voir le bon plan
Souris Logitech MX Master 3S (bluetooth, capteur laser 8K, clics silencieux) à 96,99 €
96,99 € 115 € -16% @Amazon

Amazon fait une promotion sur la nouvelle souris sans fil Logitech MX Master 3S qui passe à 96,99  alors qu'on la trouve ailleurs à partir de 115 €. Cette souris offre une connectivité sans fil bluetooth et se recharge par USB C. Cette version 3S bénéficie des clics silencieux.

Elle vous permet de contrôler jusqu'à 3 ordinateurs différents à l'aide d'une seule souris. Copiez et collez du texte d'un écran à un autre, ou encore transférez des fichiers d'un ordinateur à un autre avec une facilité déconcertante.

Conçue pour offrir précision, contrôle et confort aux utilisateurs expérimentés, la souris sans fil Logitech MX Master 3 se caractérise notamment par une forme parfaitement adaptée à la main, des fonctionnalités avancées et une conception incroyable. Elle dispose d'une molette pour le pouce afin de faire défiler le contenu de l'écran latéralement d'un simple mouvement du pouce. Et avec le logiciel Logitech Options vous allez pouvoir paramétrer au mieux votre souris. Ainsi, vous allez pouvoir ajuster la vitesse de défilement, naviguer au sein du contenu sous forme d'onglets, changer d'application, régler le volume et bien d'autres choses. Son capteur laser Dark field vous permettra de l'utiliser sur n'importe quelle surface.


Voir le bon plan

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