> 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
SSD PNY CS900 2 To à 99,77 € (+5,74 € reversés)
99,77 € 145 € -31% @Cdiscount

Le vendeur sérieux 1foDiscount via Rakuten fait une belle promotion sur le SSD PNY CS900 2 To qui passe à 99,77 € avec le code RAKUTEN15 alors qu'on le trouve ailleurs à partir de 145 €. 5,74 € vous seront également reversés en points utilisables pour vos prochains achats. Ce SSD offre des vitesses d'écriture de 515 Mo/s et de lecture à 550 Mo/s. Il est garanti 3 ans.


Voir le bon plan
Ecran ultra large LG 29 pouces 29WL50S-B à 199,99 €
199,99 € 229,99 € -13% @Amazon

Amazon propose actuellement l'écran 29 pouces LG 29WL50S-B à 199,99 € livré gratuitement alors qu'on le trouve à partir de 229 € ailleurs. Cet écran ultra large est au format 21/9, possède une dalle IPS et offre une résolution de 2560 x 1080 pixels. Avec lui, vous pourrez bénéficier d'une plus grande immersion dans les jeux et les films. Cet écran est compatible FreeSync. 


Voir le bon plan
Processeur Intel Core i5-12400F à 167,47 € livré
167,47 € 195 € -14% @Amazon Allemagne

Amazon Allemagne fait une promotion sur le processeur Intel Core i5-12400F qui passe à 162,31 € (avec la TVA ajustée). Comptez 5,16 € pour la livraison en France soit un total de 167,47 € livré. On le trouve ailleurs à partir de 195 €. Avec plus de coeurs et plus de puissance, les processeurs Intel de 12ème génération (Alder Lake) sont prêts pour les jeux nouvelle génération, les cartes graphiques PCI-Express 5.0 ou encore la RAM DDR5. Ils vous permettront de concevoir des machines puissantes capables de s’acquitter de toutes les tâches, des jeux vidéo en passant par les applications de productivité ou le multitâche intensif.


Voir le bon plan
Mini PC ACEMAGICIAN GK3 Pro (Celeron N5105, 16 Go RAM, SSD 512 Go, Windows 11 Pro) à 249,91 €
249,91 € 299,99 € -17% @Amazon

Amazon fait une promotion sur le mini PC ACEMAGICIAN GK3 Pro qui passe à 249,91 € grâce à un coupon à activer sur la page du produit. On le trouve habituellement à 299,99 €.

Ce mini PC intègre un processeur Intel Celeron N5105 (4 coeurs), 16 Go de RAM DDR4 et un SSD M.2 de 512 Go (un port 2.5 pouces SATA est également présent pour ajouter un SSD ou un disque dur). Il possède un chip graphique Intel UHD. Il intègre le WiFi 5, le Bluetooth, un port Ethernet Gigabit, 2 ports USB 3.0, 2 ports USB 2.0, un connecteur VGA et deux connecteurs HDMI. Le tout tourne sous Windows 11 Pro.

Une bonne affaire pour un PC efficace dans toutes les tâches bureautiques et multimédia, totalement silencieux, économe et qui ne prendra pas de place ! Il peut même être directement fixé à l'arrière d'un écran PC grâce à son support VESA.


Voir le bon plan
Lampe écran pour bureau BlitzWolf BW-CML2 Pro (blanc réglable + RGB arrière) à 23,13 €
23,13 € 45 € -49% @Banggood

Banggood fait une promotion sur la lampe écran pour bureau BlitzWolf BW-CML2 Pro (RGB) qui passe à 23,13 € avec le code promo BGb6c9e8. La livraison se fait depuis un entrepôt chinois. La TVA FR est incluse. 

Cette lampe se fixe au dessus de votre écran pour éclairer en blanc (400 à 1000 lux, température de 2700 à 6500K) votre surface de travail sans reflet sur l'écran: clavier, tablette graphique, bureau. Un ruban RGB peut aussi être activé à l'arrière pour éclairer et décorer le mur derrière votre écran. Alimentation USB, télécommande fournie. 46 cm de large.


Voir le bon plan
PC portable 15.6 pouces MSI Katana 15 (FHD IPS 144 Hz, Core i5-12450H, 16 Go, 512 Go, RTX 4060 8 Go) à 1199,99 €
1199,99 € 1399,99 € -14% @Cdiscount

Cdiscount fait une promotion sur le PC portable 15.6 pouces MSI Katana 15 B12VFK-241XFR qui passe à 1199,99 € au lieu de 1399,99 €. Ce portable possède un écran Full HD IPS 144 Hz, un processeur Intel Core i5-12450H (8 coeurs), 16 Go de DDR4 (extensible à 64 Go), un SSD NVMe 512 Go, une carte graphique GeForce RTX 4060 8 Go. Un PC performant adapté à tous les usages.

Notez que le modèle du dessus avec Core i7-12650H (10 coeurs), 16 Go DDR5 et GeForce RTX 4070 8 Go est également en promotion à 1599,99 € au lieu de 1899,99 €.


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