XL 2021 Ventiler catégorie via powerquery

[CDR77]

Bonjour
Je travaille actuellement sur un classement de course que j'épure et transforme avec Powerquery.
Après avoir filtré et mis en forme ce dont j'avas besoin, j'arrive à une étape ou je souhaite :
Garder mon classement final (qui se nomme étape 3) tout en créant un onglet par catégorie d'âges H et F basé sur les noms de catégories.

Je vous joint mon fichier pour que ce soit plus simple à comprendre.

Merci d'avance !

 

[job75]

Bonsoir CDR77,

Une solution VBA :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim d As Object, w As Worksheet, i&, x$
Set d = CreateObject("Scripting.Dictionary")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each w In Worksheets
    If Len(w.Name) = 3 Then w.Delete
Next w
With [A1].CurrentRegion
    For i = 2 To .Rows.Count
        x = .Cells(i, 4)
        If Not d.exists(x) Then
            d(x) = ""
            Sheets.Add After:=Sheets(Sheets.Count)
            ActiveSheet.Name = x
            .AutoFilter 4, x
            .Copy ActiveSheet.[A1]
            .AutoFilter
        End If
    Next i
    .Parent.Activate
End With
End Sub

A+

 

[CDR77]

Merci Job75 !
simple réactif efficace !
Question subsidiaire
Le code VBA peut t'il s'appliquer à d'autre feuilles que j'aurai modifié de la même manière ?

 

[job75]

Le code VBA peut t'il s'appliquer à d'autre feuilles que j'aurai modifié de la même manière ?

Comme il s'agit de créer des onglets, il ne paraît pas cohérent d'appliquer le code à plusieurs feuilles.

Mais c'est toujours possible bien sûr.

 

[CDR77]

Comme il s'agit de créer des onglets, il ne paraît pas cohérent d'appliquer le code à plusieurs feuilles.

Mais c'est toujours possible bien sûr.

Merci pour ton retour
Dans mon idée c'est de pouvoir appliquer cette macro à chaque manche de courses que je reçois.
Ce qui donnera dans mon dossier
DOSSIER CHALLENGE
Course 1.xlsm (avec mon classement général et la macro par catégorie qui affiche les onglets)
Course 2.xslm ( ou j'appliquerai la même macro pour afficher les onglets en plus de mon classement général)
Course 3 etc etc ...

A l'issue je chargerai ainsi mes fichiers excel avec powerquery afin d'en faire un tableau récapitulatif qui résumera le nombre de points de chaque coureur. (mais je n'en suis pas encore là , je m'égare )

 

[oguruma]

bonjour et l'idée de créer un index entre les étapes clefs afin de conserver l'ordre de tri précédent... c'est ce qui se fait en général... ça peut éventuellement donner quelques pistes pour d'autres évolutions

 

[CDR77]

bonjour et l'idée de créer un index entre les étapes clefs afin de conserver l'ordre de tri précédent... c'est ce qui se fait en général... ça peut éventuellement donner quelques pistes pour d'autres évolutions

Bonjour à toi
Je veux bien que tu m'éclaire sur le sujet parce que je ne vois pas comment faire ça

 

[CDR77]

Comme il s'agit de créer des onglets, il ne paraît pas cohérent d'appliquer le code à plusieurs feuilles.

Mais c'est toujours possible bien sûr.

Pour faire suite à mon post j'ai tenté d'intégrer le code VBA sur ma feuille de classement suivante voici ce que ça me donne

 

[job75]

Bonjour CDR77,

S'agissant d'un tableau structuré il faut remplacer :

.Copy ActiveSheet.[A1]

par :

.SpecialCells(xlCellTypeVisible).Copy ActiveSheet.[A1]

A+

 

[CDR77]

Bonjour CDR77,

S'agissant d'un tableau structuré il faut remplacer :

.Copy ActiveSheet.[A1]

par :

.SpecialCells(xlCellTypeVisible).Copy ActiveSheet.[A1]

A+

Aaaaaaah bah voilà j'ai appris un truc , je cherchais pourquoi ca fonctionnait pas, bah je me coucherais moins bête. Du coup je pourrais ajouter cette macro à chaque fichier traité c'est cool , ca va me faire gagner du temps. Un grand merci à toi je suis vraiment une quiche avec VBA