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...