Trier dans divers onglets

[choupi_nette]

Bonjour,
J'ai essayé de faire ce qu'on appelle Je crois une macro evenementielle mais je n'y parviens pas. En fait je ne veux pas un boutton lancer macro mais que ca se mette a jour automatiquement.

J'ai un onglet base de donnée avec pommes bananes et fraises melangés

Je veux les trier onglet par onglet
Onglet fraise tout ce qui concerne fraises
Onglet pommes tout ce qui concerne pommes
etc...

en pj un exemple
Merci beaucoup pour votre aide

 

[DoubleZero]

Re : Trier dans divers onglets

Bonjour, choupi_nette, le Forum,

Une suggestion avec ce code, à placer dans un module standard :

Option Explicit
Sub Extraire()
    Application.ScreenUpdating = False
    Cells.Clear
    Range("a1") = "couleur"
    Range("a2") = ActiveSheet.Name
    Sheets("DataBase").Columns("A:F").AdvancedFilter Action:=xlFilterCopy, _
    CriteriaRange:=Range("a1:a2"), CopyToRange:=Range("b1:g1"), Unique:=False
    Columns("a:a").Delete Shift:=xlToLeft
    Cells.EntireColumn.AutoFit
    Application.ScreenUpdating = True
End Sub

... accompagné de celui-ci, à placer dans "Thisworkbook" :

Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Dim o As Worksheet
    For Each o In Worksheets
        If ActiveSheet.Name <> "DataBase" Then Call Extraire
    Next
End Sub

A bientôt

 

[choupi_nette]

Re : Trier dans divers onglets

Bonjour,
Merci pour ton aide double zero (qui porte mal son nom)
Ca marche bien !!
Bonne journée
Chou