Extraction d'un grand fichier

[Thepower]

Bonjour,
j'ai besoin d'aide car mes compétences en excel n'arrive pas a trouver de solution.

Je dispose dans le 1er onglet du fichier a extraire sur le deuixième onglet; A partir d'in Code Point de vente.
Je n'ai pas réussie avec les recherche, et no plus avec Index/equiv.

Si quelqu'un peux m'aider.

Je joint le classeur.

Merci

 

[Thepower]

Re : Extraction d'un grand fichier

Bon j'ai taper le code pour Créer un classeur et les onglet correspondant à la liste.

Private Sub CommandButton1_Click()

Dim Classeur As Workbook
Dim c As Range
' Creation classeur
Set Classeur = Application.Workbooks.Add


'Creation Onglet par rapport à une liste

For Each c In Range("A1:A20")
If Not c = "" Then
With Sheets.Add
.Move after:=Sheets(Sheets.Count)
.Name = c
End With
End If
Next c
End Sub

Maintenant je bloque pour pour envoyer pour chaque onglet le tableau Taux de Détention.

 

[Efgé]

Re : Extraction d'un grand fichier

Re
On s'éloigne de plus en plus du sujet initial.

As tu testé ton code?

Tu crée des feuille avec les noms en colonnes A alors que tu parles de dispatcher les codes en colonne C.
Tu parles de milliers de lignes et ta plage s'arrête ligne 20.

On nage dans l' à peu près. Ca ne mènera nule part

Pourrais tu une foi pour toute expliquer ce qu tu veux faire sans passer par des étapes qui ne servent à rien.
En précisant les colonnes, le principe général, ce que tu attends comme résultat......

Dans l'attente de tes réelles explications.

Cordialement

 

[Thepower]

Re : Extraction d'un grand fichier

Re
On s'éloigne de plus en plus du sujet initial.

As tu testé ton code?

Tu crée des feuille avec les noms en colonnes A alors que tu parles de dispatcher les codes en colonne C.
Tu parles de milliers de lignes et ta plage s'arrête ligne 20.

On nage dans l' à peu près. Ca ne mènera nule part

Pourrais tu une foi pour toute expliquer ce qu tu veux faire sans passer par des étapes qui ne servent à rien.
En précisant les colonnes, le principe général, ce que tu attends comme résultat......

Dans l'attente de tes réelles explications.

Cordialement

Re


Le projet est :

A partir du Gros fichier avec des milliers de lignes, Créer un nouveau classeur avec un onglet pour chaque code point de vente. Pour chaque onglet on à le tableau du point de vente indiquant ses taux de détention (par famille)

Et dans l"idéal, dans ce nouveau classeur une première page avec la liste des point de vente qui ouvre directement l'onglet du classeur.

 

[Thepower]

Re : Extraction d'un grand fichier

Re
On s'éloigne de plus en plus du sujet initial.

As tu testé ton code?

Tu crée des feuille avec les noms en colonnes A alors que tu parles de dispatcher les codes en colonne C.
Tu parles de milliers de lignes et ta plage s'arrête ligne 20.

On nage dans l' à peu près. Ca ne mènera nule part

Pourrais tu une foi pour toute expliquer ce qu tu veux faire sans passer par des étapes qui ne servent à rien.
En précisant les colonnes, le principe général, ce que tu attends comme résultat......

Dans l'attente de tes réelles explications.

Cordialement

POur répondre a ta question j'ai teste le code posté, il fonctionne bien. J'ai un nouveau classeur avec les onglet des Points de vente. Au préalable j'ai fais une recherche pour associer chaque code à son point de vente, puis vérifier que la syntaxe sois valable pour les onglets.

 

[Efgé]

Re : Extraction d'un grand fichier

Re
Dernière proposition pour ma part:
On crée les oglets au fur et à mesure dans le classeur de la liste puis on les déplacent tous ensemble pour créer un nouveau classeur:

Sub test()
Dim i&, F As Worksheet, Nm$, D As Object
Set D = CreateObject("Scripting.dictionary")
Application.ScreenUpdating = False
With Sheets("Vision PDV")
    .Columns.Hidden = False
    For i = 3 To .Cells(.Rows.Count, 1).End(3).Row
        On Error Resume Next
        Nm = CStr(.Cells(i, 3))
        Set F = Sheets(Nm)
        If Err Then
            Err.Clear
            Sheets.Add(After:=Sheets(Sheets.Count)).Name = Nm
            Set F = Sheets(Nm)
            .Range("$A$2:$T$2").Copy F.Cells(1, 1)
        End If
        F.Cells(F.Rows.Count, 1).End(3)(2).Resize(1, 20).Value = .Range("$A$" & i & ":$T$" & i).Value
        D(F.Name) = F.Name
    Next i
End With
If D.Count Then Worksheets(D.Items).Move
End Sub

Tu peux mettre ce code dans un module standart et le lancer par Alt+F8

Cordialement

 

[Thepower]

Re : Extraction d'un grand fichier

Re
Dernière proposition pour ma part:
On crée les oglets au fur et à mesure dans le classeur de la liste puis on les déplacent tous ensemble pour créer un nouveau classeur:

Sub test()
Dim i&, F As Worksheet, Nm$, D As Object
Set D = CreateObject("Scripting.dictionary")
Application.ScreenUpdating = False
With Sheets("Vision PDV")
    .Columns.Hidden = False
    For i = 3 To .Cells(.Rows.Count, 1).End(3).Row
        On Error Resume Next
        Nm = CStr(.Cells(i, 3))
        Set F = Sheets(Nm)
        If Err Then
            Err.Clear
            Sheets.Add(After:=Sheets(Sheets.Count)).Name = Nm
            Set F = Sheets(Nm)
            .Range("$A$2:$T$2").Copy F.Cells(1, 1)
        End If
        F.Cells(F.Rows.Count, 1).End(3)(2).Resize(1, 20).Value = .Range("$A$" & i & ":$T$" & i).Value
        D(F.Name) = F.Name
    Next i
End With
If D.Count Then Worksheets(D.Items).Move
End Sub

Tu peux mettre ce code dans un module standart et le lancer par Alt+F8

Cordialement

Je te remercie Efgé,

Tu fais du bon taf, dommage que je n'ai pas ton niveau. En tous cas tu m'as vraiment bien aidé.

Ton code fonctionne, par il recopie tous les champs dans les onglet, alors que j'ai juste besoin du champ "FAMILLE MARCHANDISAGE" et "Taux de Detention Sans AC1".

Encore merci.

Cordialement

 

[Efgé]

Re : Extraction d'un grand fichier

Bonjour Thepower, le fil

Le même adapté:

Sub test()
Dim i&, F As Worksheet, Nm$, D As Object, Rng As Range
Set D = CreateObject("Scripting.dictionary")
Application.ScreenUpdating = False
With Sheets("Vision PDV")
    .Columns.Hidden = False
    For i = 3 To .Cells(.Rows.Count, 1).End(3).Row
        On Error Resume Next
        Nm = CStr(.Cells(i, 3))
        Set F = Sheets(Nm)
        If Err Then
            Err.Clear
            Sheets.Add(After:=Sheets(Sheets.Count)).Name = Nm
            Set F = Sheets(Nm)
            F.Cells(1, 1).Value = "FAMILLE MARCHANDISAGE"
            F.Cells(1, 2).Value = "Taux de Detention Sans AC1"
            F.Columns(2).NumberFormat = "0.00%"
        End If
        Set Rng = F.Cells(F.Rows.Count, 1).End(3)(2)
        Rng.Value = .Range("$K$" & i).Value
        Rng.Offset(, 1) = .Range("$T$" & i).Value
        D(F.Name) = F.Name
    Next i
    .Activate
End With
If D.Count Then Worksheets(D.Items).Move
End Sub

Cordialement

 

[Efgé]

Re : Extraction d'un grand fichier

Re

Avec mise en place d'une feuille Sommaire comportant les liens vers les feuilles code et sur chaque feuille un retour au sommaire.

Sur un très grand fichier, le temps de traitement peut être "significatif" voir "longuet"

Cordialement

 

[Efgé]

Re : Extraction d'un grand fichier

Re
Pour le fun, et une meilleure lisibilité
Cordialement