Liste de Tableau

Bonjour à tous et à toutes,

Je souhaiterais me créer plusieurs tableaux prédéfini dans une feuille (Feuille n°2).

Dans la feuille n°1, je voudrais que ma liste déroulante en cellule B2 soit capable de m'afficher sur ma feuille 1 les tableaux prédéfinis sur la feuille 2.

Exemple :

Dans la feuille n°2 j'ai trois tableaux.

Lorsque je sélectionne dans ma liste déroulante de la feuille 1 le choix "tableau 1", le Tableau 1(qui est présent en Feuille n°2) doit s'afficher en dessous de ma liste.

(Voir fichier joint)

Merci par avance de votre aide

Bonsoir @ tous,

en B4 :

=DECALER(Feuil2!B3;(SUBSTITUE($B$2;"Tableau ";)-1)*15;)&""

@ tirer vers le bas et vers la droite

@ + +

Bonjour Faw_j2, R@chid ,

Une autre proposition :

Source:https://forum.excel-pratique.com/viewtopic.php?f=2&t=99299

Cordialement,

Bonjour,

Merci de cette réponse rapide !

De manière à pouvoir mieux l'adapter à mes besoin, j'aurais besoin de comprendre la partie suivante de la formule svp :

"Tableau ";)-1)*15;)&""

J'aimerais également pouvoir garder ma mise en page (couleurs, disposition dans la cellule, gras, italique ...), est-ce possible ?

Merci d'avance

Bonjour,

Une proposition à découvrir.

Récupérer & Transformer (natif Excel 2016, Complément gratuit Excel 2010-2013).

Cdlt.

Bonjour

@Jean-Eric

Une variante sans fonction d'ajustement des colonnes

let
    nm=Choix_Tableau,
    Source = Excel.CurrentWorkbook(),
    #"Lignes filtrées" = Table.SelectRows(Source, each Text.StartsWith([Name], nm)),
    MonTab = Table.AddColumn(#"Lignes filtrées", "Colonnes", each Table.ColumnNames([Content])),
    #"Content développé" = Table.ExpandTableColumn(MonTab, "Content", List.Union(MonTab[Colonnes])),
    #"Colonnes supprimées" = Table.RemoveColumns(#"Content développé",{"Name", "Colonnes"})
in
    #"Colonnes supprimées"

Bonjour Chris,

J'ai voulu tester une fonction récupérée sur un forum (étranger).

Ceci dit, j'avais ta solution, puisque tu l'as proposée il y a peu…

Pour les curieux :

(tbl) =>
let
    Headers = Table.ColumnNames(tbl),

    fnMyAccumulator =
        (tbl as table, columnName as text) as table =>
            if List.MatchesAll(Table.Column(tbl, columnName), each _ is null) then Table.RemoveColumns(tbl, {columnName}) else tbl,

    myAccumulatedResult = List.Accumulate(
        Headers,
        tbl,
        (tbl, columnName) => fnMyAccumulator(tbl, columnName))
in
    myAccumulatedResult

On dirait presque du VBA !...