XL 2010 Disperser un tableau dans différentes feuilles

[stephanel93]

Bonjour,

Je viens vers vous pour vous demandez de l'aide pour créer une macro.
Je vous expose mon sujet:
J'ai un tableau avec divers entreprise dans la colonne B, je voudrais savoir si c'est possible de copier coller les lignes du tableaux qui correspondent avec le nom de ma feuille.
J'ai un peu de mal a l'expliquer donc je vais vous joindre un fichier avec la base de données et le résultat attendu.
En espérant que quelqu'un trouve le temps d'y répondre.
Merci d'avance! Agréable journée à tout le monde!

 

[job75]

Bonjour stephanel93,

Cela peut se faire avec des formules matricielles mais effectivement c'est simple par macro, dans ThisWorkbook :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.ScreenUpdating = False
With Sheets("BASE DE DONNEES")
    If Sh.Name <> .Name Then
        Sh.Range("A13:I" & Sh.Rows.Count).Delete xlUp 'RAZ
        With .Range("A13:I" & .Range("A" & .Rows.Count).End(xlUp).Row)
            .AutoFilter 2, Sh.Name 'filtre automatique
            .Copy Sh.[A13]
            .AutoFilter
        End With
        Sh.Range("A13:I" & Rows.Count).Columns.AutoFit 'ajustement largeurs
        With Sh.UsedRange: End With 'actualise les barres de défilement
    End If
End With
End Sub

A+