Bonjour,
Une solution, si possibilité d'installer Power Query !?
En image :
La requête :
let
Source = Excel.CurrentWorkbook(){[Name="Tableau1"]}[Content],
Types = Table.TransformColumnTypes(Source,{{"Article", type text}, {"Mois", type text}, {"Chiffre d'affaires", Int64.Type}}),
SortRows = Table.Sort(Types,{{"Article", Order.Ascending}, {"Mois", Order.Ascending}}),
Sum = Table.Pivot(SortRows, List.Distinct(SortRows[Mois]), "Mois", "Chiffre d'affaires", List.Sum),
FirstCol=1,
NumColsToSum=Table.ColumnCount(Sum)-FirstCol,
RowTotal = Table.AddColumn(Sum, "Total", each List.Sum(List.Range(Record.ToList(_),FirstCol,NumColsToSum)),Int64.Type),
RowTotal2 = Table.AddColumn(RowTotal, "2/3 Total", each [Total]*2/3,type number)
in
RowTotal2
Et enfin, le fichier :