Echapper à la monotonie

Le 05/09/2024 à 11:13

Bonjour,

J'aurais besoin d'aide pour améliorer la présentation d'un tableau afin qu'il soit plus agréable à regarder.

J'ai créé un tableau sur Power Query qui extrait les données de ma GMAO, ce qui permet de suivre les informations en temps réel sans avoir à exporter les données, ce qui prend souvent beaucoup de temps.

Je souhaiterais maintenant retravailler la mise en forme pour éviter d'avoir toujours les mêmes tableaux peu attrayants. Je vais vous envoyer un exemple de mise en forme souhaitée, intitulé "Exemple1", ainsi que le classeur contenant les informations sous l'onglet "Feuille de données".

Merci d'avance pour votre aide.

let

    Source = Sql.Database("svm01033\gmao", "Ceyzeriat"),

    T_BT = Source{[Schema = "dbo", Item = "T_BT"]}[Data],
    T_ETAT_BT = Source{[Schema = "dbo", Item = "T_ETAT_BT"]}[Data],
    T_TYPE_TRAV = Source{[Schema = "dbo", Item = "T_TYPE_TRAV"]}[Data],
    T_DEGDURGENCE = Source{[Schema = "dbo", Item = "T_DEGDURGENCE"]}[Data],
    T_DEMANDEUR = Source{[Schema = "dbo", Item = "T_DEMANDEUR"]}[Data],
    T_IP = Source{[Schema = "dbo", Item = "T_IP"]}[Data],
    T_UI = Source{[Schema = "dbo", Item = "T_UI"]}[Data],
    T_CC = Source{[Schema = "dbo", Item = "T_CC"]}[Data],

    IntervenantsSource = Sql.Database("SVM01033\GMAO", "Ceyzeriat", 
        [Query="SELECT T_BT.NUM_BT, T_INTERV_SUB.NOM_INTERV AS NOM_INTERVENANT FROM T_BT 
        LEFT JOIN T_LIGNE_BT AS T_INTERV_LIGNE ON T_BT.NUM_BT = T_INTERV_LIGNE.CLE_BT AND T_INTERV_LIGNE.TYPE_LIGNE_BT = 'I' 
        LEFT JOIN T_INTERV AS T_INTERV_SUB ON T_INTERV_LIGNE.CLE_ELEMENT = T_INTERV_SUB.NUM_INTERV"]),
    #"Lignes groupées" = Table.Group(IntervenantsSource, {"NUM_BT"}, 
        {{"Intervenant", each List.Distinct([NOM_INTERVENANT]), type list}}),
    #"Intervenant combiné" = Table.TransformColumns(#"Lignes groupées", 
        {"Intervenant", each Text.Combine(_, ", "), type text}),

    T_BT_Joined_ETAT_BT = Table.NestedJoin(T_BT, {"CLE_ETAT_BT"}, 
        T_ETAT_BT, {"CLE_ETAT_BT"}, "T_ETAT_BT", JoinKind.LeftOuter),
    Expanded_ETAT_BT = Table.ExpandTableColumn(T_BT_Joined_ETAT_BT, 
        "T_ETAT_BT", {"DES_ETAT_BT"}, {"DES_ETAT_BT"}),
    T_BT_Joined_TYPE_TRAV = Table.NestedJoin(Expanded_ETAT_BT, {"CLE_TYPE_TRAV"}, 
        T_TYPE_TRAV, {"NUM_TYPE_TRAV"}, "T_TYPE_TRAV", JoinKind.LeftOuter),
    Expanded_TYPE_TRAV = Table.ExpandTableColumn(T_BT_Joined_TYPE_TRAV, 
        "T_TYPE_TRAV", {"DES_TYPE_TRAV"}, {"DES_TYPE_TRAV"}),
    T_BT_Joined_DEGDURGENCE = Table.NestedJoin(Expanded_TYPE_TRAV, {"CLE_DEGDURG"}, 
        T_DEGDURGENCE, {"NUM_ENR"}, "T_DEGDURGENCE", JoinKind.LeftOuter),
    Expanded_DEGDURGENCE = Table.ExpandTableColumn(T_BT_Joined_DEGDURGENCE, 
        "T_DEGDURGENCE", {"DESIGN_URG"}, {"DESIGN_URG"}),
    T_BT_Joined_DEMANDEUR = Table.NestedJoin(Expanded_DEGDURGENCE, {"CLE_DEMANDEUR"}, 
        T_DEMANDEUR, {"CLE_DEMANDEUR"}, "T_DEMANDEUR", JoinKind.LeftOuter),
    Expanded_DEMANDEUR = Table.ExpandTableColumn(T_BT_Joined_DEMANDEUR, 
        "T_DEMANDEUR", {"NOM_DEMANDEUR", "PRENOM_DEMANDEUR"}, 
        {"NOM_DEMANDEUR", "PRENOM_DEMANDEUR"}),

    Ajout_NomPrenom = Table.AddColumn(Expanded_DEMANDEUR, "NOM_PRENOM_DEMANDEUR", 
        each if ([NOM_DEMANDEUR] = null or [NOM_DEMANDEUR] = "") or ([PRENOM_DEMANDEUR] = null or [PRENOM_DEMANDEUR] = "")
        then "-" else [NOM_DEMANDEUR] & " " & [PRENOM_DEMANDEUR]),

    T_BT_Joined_CC = Table.NestedJoin(Ajout_NomPrenom, {"CLE_CC"}, 
        T_CC, {"CLE_CC"}, "T_CC", JoinKind.LeftOuter),
    Expanded_CC = Table.ExpandTableColumn(T_BT_Joined_CC, 
        "T_CC", {"CODE_CC", "DESIGN_CC"}, {"CODE_CC", "DESIGN_CC"}),  // Ajout des colonnes CODE_CC et DESIGN_CC

    Ajout_CodeDesign_CC = Table.AddColumn(Expanded_CC, "CODE_DESIGN_CC", 
        each [CODE_CC] & " ~ " & [DESIGN_CC]),

    T_BT_Joined_IP = Table.NestedJoin(Ajout_CodeDesign_CC, {"CLE_IP"}, 
        T_IP, {"NUM_IP"}, "T_IP", JoinKind.LeftOuter),
    Expanded_IP = Table.ExpandTableColumn(T_BT_Joined_IP, 
        "T_IP", {"NUM_IP", "NUM_DER_BT", "NUM_UI"}, {"NUM_IP", "NUM_DER_BT", "NUM_UI"}),
    T_BT_Joined_UI = Table.NestedJoin(Expanded_IP, {"CLE_UI"}, 
        T_UI, {"NUM_UI"}, "T_UI", JoinKind.LeftOuter),
    Expanded_UI = Table.ExpandTableColumn(T_BT_Joined_UI, 
        "T_UI", {"CODE_UI", "DESIGNATION_UI"}, {"CODE_UI", "DESIGNATION_UI"}),

    Ajout_CodeDesignation = Table.AddColumn(Expanded_UI, "CODE_DESIGNATION_UI", 
        each [CODE_UI] & ", " & [DESIGNATION_UI]),

    T_BT_Joined_Intervenants = Table.NestedJoin(Ajout_CodeDesignation, {"NUM_BT"}, 
        #"Intervenant combiné", {"NUM_BT"}, "IntervenantTable", JoinKind.LeftOuter),
    Expanded_Intervenants = Table.ExpandTableColumn(T_BT_Joined_Intervenants, 
        "IntervenantTable", {"Intervenant"}, {"INTERVENANT"}),

    Colonne_IP_Mise_En_Forme = Table.TransformColumns(Expanded_Intervenants, 
        {"NUM_IP", each if _ = 100000 or _ = null then "-" else Text.From(_), type text}),
    Colonne_Demandeur_Mise_En_Forme = Table.TransformColumns(Colonne_IP_Mise_En_Forme, 
        {"NOM_PRENOM_DEMANDEUR", each if _ = null or _ = "" then "-" else _, type text}),
    Colonne_DER_BT_Mise_En_Forme = Table.TransformColumns(Colonne_Demandeur_Mise_En_Forme, 
        {"NUM_DER_BT", each if _ = 0 then "-" else Text.From(_), type text}),
    Colonne_Intervenant_Mise_En_Forme = Table.TransformColumns(Colonne_DER_BT_Mise_En_Forme, 
        {"INTERVENANT", each if _ = null or _ = "" then "-" else _, type text}),
    Colonne_CC_Mise_En_Forme = Table.TransformColumns(Colonne_Intervenant_Mise_En_Forme, 
        {"CODE_DESIGN_CC", each if _ = null or _ = "" then "-" else _, type text}),

    AnneeLimite = 2014,  
    Ajout_Dates_Exclues = Table.AddColumn(Colonne_CC_Mise_En_Forme, "Date_Exclue", each if Date.Year([DATE_DEM]) < AnneeLimite then true else false),

    Filtrer_Dates = Table.SelectRows(Ajout_Dates_Exclues, each ([Date_Exclue] = false)),

    ColonnesSelectionnees = Table.SelectColumns(Filtrer_Dates, 
        {"NUM_BT", "NUM_IP", "DES_ETAT_BT", "TITRE_BT", "CODE_DESIGNATION_UI", "DATE_DEM", "DATE_DEB_PREV", 
        "DATE_FIN_PREV", "DATE_CLOT", "DES_TYPE_TRAV", "DESIGN_URG", "NOM_PRENOM_DEMANDEUR", "NUM_DER_BT", "INTERVENANT", "CODE_DESIGN_CC"}),
    #"Converti en table" = #table(1, {{ColonnesSelectionnees}}),
    Column1 = #"Converti en table"{0}[Column1]
in
    Column1
22feuille-donnee.xlsx (247.54 Ko)
18exemple1.zip (20.95 Ko)
Le 05/09/2024 à 13:49

Bonjour

Pourquoi ne pas s’orienter vers un simple publipostage...

Un requêteur n'est jamais utilisé pour la présentation des données...

Le 05/09/2024 à 13:50

Bonjour,

publipostage?

Le 05/09/2024 à 13:52

RE

Fusion Word entre un tableau standard Excel et une présentation sur mesure

Le 05/09/2024 à 13:55

RE

Honnêtement je ne vois pas comment ça pourrait m'aider ici

Le 05/09/2024 à 14:02

RE

C'est que tu ne sais pas à quoi sert le publipostage Word : pas seulement à faire des courriers mais aussi des catalogues, des répertoires... et ton exemple n'est autre qu'un catalogue

Le 05/09/2024 à 14:06

oui c'est exacte je ne sais pas comment ça fonctionne mais d'accord merci pour ton idée

Rechercher des sujets similaires à "echapper monotonie"