Discussion :

[Ridvan04]

Bonsoir,

J'ai un besoin pour coder une macro VBA afin de pouvoir étudier une extraction que je fais quotidiennement. Cependant je n'ai absolument aucune base en VBA, malgré mes recherches sur les forums et youtube, je ne trouve rien correspondant à mon besoin. Alors je tente ma chance ici en espérant avoir la solution.




Je fais des extractions de tableau comme celui affiché au-dessus et j'ai besoin d'une macro permettant de rendre plus lisible et surtout de pouvoir exclure les 0. Pour info, j'ai plusieurs localisations, des centaines de codes et j'analyse les données sur un horizon de 3 semaines glissants.

Le résultat que je souhaiterais obtenir serait sous le format suivant.



Pour faciliter la lecture du tableau, il serait utile d'avoir un tri croissant pour les dates puis un second tri croissant pour les codes.

Pourriez-vous m'aider à coder une macro afin d'automatiser cela s'il vous plaît?


La cerise sur le gâteau : créer une mise en forme conditionnelle pour toutes valeurs supérieur à 500.


Un grand merci par avance de votre aide et très bonne soirée à tous.

[Philippe Tulliez]

Bonjour,
Ce que vous voulez obtenir est plus simple à réaliser en quelques minutes à l'aide de Power Query

Le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
let
    Source = Excel.CurrentWorkbook(){[Name="Tableau2"]}[Content],
    SupprimerColonne = Table.RemoveColumns(Source,{"Departement"}),
    Depivoter = Table.UnpivotOtherColumns(SupprimerColonne, {"Ville", "Article"}, "Attribut", "Valeur"),
    SupprimerNulle = Table.SelectRows(Depivoter, each ([Valeur] <> 0)),
    ModifierType = Table.TransformColumnTypes(SupprimerNulle,{{"Attribut", type date}}),
    RenommerColonne = Table.RenameColumns(ModifierType,{{"Attribut", "Date"}}),
    TrierDateArticle = Table.Sort(RenommerColonne,{{"Date", Order.Ascending}, {"Article", Order.Ascending}}),
    DeplacerDate = Table.ReorderColumns(TrierDateArticle,{"Ville", "Date", "Article", "Valeur"})
in
    DeplacerDate

Illustration