Dispatch export selon le nom de chaque feuille

Bonjour à tous,

Je vous sollicite pour mettre en place un code qui me pourrai me permettre de dispatcher les lignes présent dans la feuille "export" dans chaque feuille correspondante.

La colonne A de la feuille export comprenant le nom des feuilles correspondantes.

En espérant avoir été assez explicite

Merci d'avance pour votre aide

Isabelle

Bonjour,

Tableau croisé plus judicieux qu'une copie d'onglet avec une multitude de formule.

Cordialement.

Bonjour,

Une solution macro :

Sub KiVaBien()
Application.ScreenUpdating = False
With Sheets("Export").Range("A1").CurrentRegion
    .AutoFilter
    .AutoFilter Field:=1, Criteria1:="Bleu"
    .Copy Sheets("Bleu").Range("A1")
    .AutoFilter Field:=1, Criteria1:="Jaune"
    .Copy Sheets("Jaune").Range("A1")
    .AutoFilter Field:=1, Criteria1:="Rouge"
    .Copy Sheets("Rouge").Range("A1")
    .AutoFilter Field:=1, Criteria1:="Vert"
    .Copy Sheets("Vert").Range("A1")
    .AutoFilter
End With
End Sub

A+

Bonjour

Merci galopin C'est un bon début.

Les onglet peuvent varier (c'était juste un fichier test), du coup est il possible d'adapter ce code pour lui demander de la faire sur toute les feuilles sauf celle de l'export sans nommer en dur ces onglets ?

Merci pour le temps que tu y as consacré

Bonne journée

Isabelle

L'appétit vient en mangeant ?

Sub KiVaBien()
Dim i%, Snam$
Application.ScreenUpdating = False
With Sheets("Export").Range("A1").CurrentRegion
    .AutoFilter
    On Error Resume Next
    For i = 1 To Worksheets.Count
        Snam = Worksheets(i).Name
        If Snam <> "Export" Then
        .AutoFilter Field:=1, Criteria1:=Snam
        .Copy Worksheets(Snam).Range("A1")
        End If
    Next
    .AutoFilter
End With
End Sub

A+

Genial merci bcp Galopin

C'est parfait

Bonne journée

Isabelle