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

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.

@+

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+

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

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

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