× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > 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 poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
314,81 €Mini PC MINISFORUM UM300 (Ryzen 3 3300U, 16Go RAM, 512 Go SSD) à 314,81 € avec le code BGSEDK
Valable jusqu'au 25 Octobre

Banggood propose actuellement le mini PC MINISFORUM UM300 à 306,63 € avec le code promo BGSEDK. Ce mini PC au format NUC d'Intel possède un processeur Ryzen 3 3300U avec chip graphique Vega 6, 16 Go de RAM DDR4 et un SSD de 512 Go. Il dispose d'une connectique complète : un emplacement 2,5 pouces libre (pour ajouter un disque dur ou un SSD supplémentaire, le WiFi6, le bluetooth 5.1, 3 ports USB 3.1, un port HDMI 2.0, un DisplayPort, deux ports Ethernet Gigabit et tourne sous Windows 10 que vous pourrez mettre en français. Il est livré avec une alimentation européenne. Branchez ce mini PC sur une TV ou un écran et vous avez un ordinateur discret et performant. Comptez 8,18 € pour l'assurance et la livraison soit un total de 314,81 € livré.

Ce marchand sérieux se trouvant en Chine, la livraison peut prendre une vingtaine de jours. Vous pouvez payer par carte bancaire ou par Paypal (conseillé pour bénéficier de la garantie Paypal).


> Voir l'offre
299,99 €Xbox Series S en précommande à 299,99 €
Valable jusqu'au 25 Octobre

La nouvelle console Xbox Series S de Microsoft sort le 10/11 et vous pouvez d'ores et déjà la précommander à 299,99 €. Cette version plus compacte embarque une puce graphique de 4 teraflops et est compatible avec 4 générations de jeux. Elle intègre un SSD de 512 Go. Elle n'a pas de lecteur optique. Sur AmazonCdiscountFnac, ...


> Voir l'offre
10,39 €Parasurtenseur Belkin 1 prise électrique à 10,39 €
Valable jusqu'au 25 Octobre

Amazon propose actuellement la prise parasurtenseur Belkin qui passe à 10,39 €. On la trouve ailleurs à partir de 13 €. Cette prise avec parafoudre protége contre les surtensions.


> 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