Spérarer une liste Excel sur plusieurs pages

Bonjour,

Je suis en train de réfléchir à comment séparer une liste de tournées sur plusieurs pages (ou onglets).

Concrètement, mon but est de faire une macro qui ferait que les tournées soient répartie par semaine sur une page (ou un onglet).

Je cherche depuis 2 h via VBA mais ne connaissant pas grand chose en programmation je n'y arrive pas.

Est-ce faisable?

Avez-vous une idée de comment je peux réaliser cela?

Merci d'avance!

Hello,

est-ce que ta liste, que j'appellerai plutôt "tableau de données", est longue ?

Je ne suis pas certain d'avoir saisi ta demande, mais est-ce qu'un tableau croisé dynamique ne répondrait pas plus simplement à ton besoin ?

Quel est l'intérêt de faire une semaine par feuille ?

A+

La liste provient d'un extract d'un ERP.

Elle doit être composée de 52 semaine.

Le but est de pouvoir imprimer cette liste avec sur chaque page 1 semaine en gardant le même layout.

Est-ce que ce fonctionnement se rapproche de ce que tu cherches ?

Bonjour Alexkiddd, Oliv38

Essaie ceci :

Option Explicit
Sub test()
Dim a, e, dico As Object, wsName As String
    Application.ScreenUpdating = False
    Set dico = CreateObject("Scripting.Dictionary")
    With Sheets("Feuil3")
        With .Range("a1").CurrentRegion
            a = .Columns(3).Offset(1).Resize(.Rows.Count - 1).Value
            For Each e In a
                If Not dico.exists(e) Then
                    dico(e) = Empty
                    wsName = e
                    If Not Evaluate("isref('" & wsName & "'!a1)") Then
                        Sheets.Add(after:=Sheets(Sheets.Count)).Name = wsName
                    End If
                    Sheets(wsName).Cells.Delete
                    .AutoFilter 3, e
                    .SpecialCells(xlCellTypeVisible).Copy Sheets(wsName).Cells(1)
                    .AutoFilter
                End If
            Next
        End With
    End With
    Set dico = Nothing
    Application.ScreenUpdating = True
End Sub

klin89