Décomposer un fichier sur plusieurs onglets

[Gwendoline]

Bonjour tout le monde,

Quelqu'un est-il dispo pour m'aider?
J'ai un fichier de données trié par nom. Mais je souhaite le décomposer par onglet, chaque nom a son onglet. Mais je ne vois pas comment le faire. je suis un peu perdue.

Si qqun est plus expérimenté que moi, je suis preneur.
Je vous joint le fichier. Les données sont sur l'onglet DATA et le résultat se voit dans les onglets qui suivent portant le nom du conducteur.

Merci par avance,

 

[tototiti2008]

Re : Décomposer un fichier sur plusieurs onglets

Bonjour Gwendoline,

L'idée est d'automatiser la décomposition par onglet avec une macro ? ou bien une méthode manuelle rapide ?

 

[Gwendoline]

Re : Décomposer un fichier sur plusieurs onglets

bonjour tototiti2008,

désolée, j'ai pas précisé.
Oui, l'automatisation avec une macro par onglet serait géniale car dans l'exemple il y a peu de conducteur mais dans la réalité je risque d'en avoir beaucoup plus.

 

[tototiti2008]

Re : Décomposer un fichier sur plusieurs onglets

Re,

Supprime toutes les feuilles sauf la feuille Data et fait tourner la macro là :

Sub Decomp()
Dim ListNom, Dico, i As Long
    With ThisWorkbook.Worksheets("Data")
        If .FilterMode Then .ShowAllData
        Set Dico = CreateObject("scripting.dictionary")
        For i = 2 To .Range("A65536").End(xlUp).Row
            Dico(.Cells(i, 1).Value) = .Cells(i, 1).Value
        Next i
        ListNom = Dico.keys
        For i = LBound(ListNom) To UBound(ListNom)
            ThisWorkbook.Worksheets.Add after:=ThisWorkbook.Worksheets(Sheets.Count)
            ActiveSheet.Name = ListNom(i)
            .Range("A1").AutoFilter Field:=1, Criteria1:=ListNom(i)
            .Range("A1").CurrentRegion.Copy Sheets(ListNom(i)).Range("A1")
        Next i
        If .FilterMode Then .ShowAllData
    End With
End Sub

 

[pierrejean]

Re : Décomposer un fichier sur plusieurs onglets

Bonjour Gwendoline

Vois si cela te convient

Edit: Salut Tototiti

 

[néné06]

Re : Décomposer un fichier sur plusieurs onglets

Bonjour Gwendoline, Tototiti2008

Avec la méthode du filtre qui à l'avantage d'utiliser moins de place pour les gros fichiers, mais qui reste une bonne vieille méthode manuelle.

A+

Edit Bonjour à Pierrejean

 

[Gwendoline]

Re : Décomposer un fichier sur plusieurs onglets

Génial,

Merci beaucoup, je vais essayer de passer à l'étape 2 maintenant.

Merci encore tototiti2008.

 

[Gwendoline]

Re : Décomposer un fichier sur plusieurs onglets

Merci Pierrejean, j'ai vu un peu en retard. Mais je peux te demander autre chose si je n'abuse pas.
Ajouter un tableau croisé dynamique à chaque onglet.
C'est possible ça?

 

[pierrejean]

Re : Décomposer un fichier sur plusieurs onglets

Re

Je ne suis pas un grand specialiste des TCD
Peux-tu poster un exemple de ce que tu souhaites ?

 

[Gwendoline]

Re : Décomposer un fichier sur plusieurs onglets

Bien sur PierreJean, le voici.
je souhaiterais donc :
*décomposer les données par onglets NOMS (chose faite, encore merci)
*puis à chaque onglet NOMS y associé un TCD "_NOMS comme ci-joint.

Merci Merci

 

[pierrejean]

Re : Décomposer un fichier sur plusieurs onglets

Re

Avec la complicité de l'enregistreur de macro !!

Vois si cela te convient

 

[Gwendoline]

Re : Décomposer un fichier sur plusieurs onglets

Re,

La VBA ne fonctionne pas à ce niveau :
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
Source, Version:=xlPivotTableVersion10).CreatePivotTable _
TableDestination:="_" & nf & "!R3C1", TableName:="Tableau croisé dynamique3", _
DefaultVersion:=xlPivotTableVersion10

J'ai pas trouvé l'erreur, je pense que c'est au niveau du tablename mais...