Bonjour,
Bonjour Patrick,
Une proposition sans TCD, sans VBA, ni formules matricielles (un petit coucou à l'ancêtre ).
Donc avec Power Query.
let
Source = Excel.CurrentWorkbook(){[Name="Tableau1"]}[Content],
#"Type modifié" = Table.TransformColumnTypes(Source,{{"Matr.", Int64.Type}, {"Nom", type text}, {"Fonction", type text}, {"Département", type text}}),
#"Colonnes supprimées" = Table.RemoveColumns(#"Type modifié",{"Matr."}),
#"Colonnes triées" = Table.ReorderColumns(#"Colonnes supprimées",{"Fonction", "Nom", "Département"}),
#"Duplication de la colonne" = Table.DuplicateColumn(#"Colonnes triées", "Nom", "Nom - Copier"),
#"Colonne dynamique" = Table.Pivot(#"Duplication de la colonne", List.Distinct(#"Duplication de la colonne"[#"Nom - Copier"]), "Nom - Copier", "Nom"),
#"Colonne fusionnée insérée" = Table.AddColumn(#"Colonne dynamique", "Fusionné", each Text.Combine({[Annie], [Deavati], [Aurelie], [Nathalie], [Christelle], [Muriel], [Hosni], [Vasile], [Armille], [Nicolas]}, ", "), type text),
#"Colonnes supprimées1" = Table.RemoveColumns(#"Colonne fusionnée insérée",{"Annie", "Deavati", "Aurelie", "Nathalie", "Christelle", "Muriel", "Hosni", "Vasile", "Armille", "Nicolas"}),
#"Colonne dynamique1" = Table.Pivot(#"Colonnes supprimées1", List.Distinct(#"Colonnes supprimées1"[Département]), "Département", "Fusionné")
in
#"Colonne dynamique1"
C'est comme plus lisible qu'une procédure VBA.
Plus sérieusement, après apprentissage, cela prend 20 secondes et on écrit pas le code.