bonjour
une solution avec les TCD pour le fun.
la macro crée un Tableau croisé dynamique, et ensuite on demande à afficher les pages pour chacune des personnes.
à exécuter sur la feuille 1, il faut également que la feuille 3 existe.
Sub Macro4()
'
' Macro4 Macro
' Macro enregistrée le 29/05/2002 par Royer
'
Application.ScreenUpdating = False
Range("A5").Select
ActiveSheet.PivotTableWizard SourceType:=xlConsolidation, SourceData:=Array _
("Feuil1!R2C1:R17C5", "Élément1"), TableDestination:= _
"[aidezmoi.xls]Feuil3!R1C1:R3C1", TableName:="Tableau croisé dynamique19"
ActiveSheet.PivotTables("Tableau croisé dynamique19").PivotFields("Colonne"). _
Orientation = xlPageField
ActiveSheet.PivotTables("Tableau croisé dynamique19").PivotFields("Page1"). _
Orientation = xlHidden
ActiveSheet.PivotTables("Tableau croisé dynamique19").AddFields RowFields:= _
"Ligne", PageFields:="Colonne"
ActiveSheet.PivotTables("Tableau croisé dynamique19").PivotFields("Données"). _
PivotItems("NB Valeur").Position = 1
Range("C3").Select
ActiveSheet.PivotTables("Tableau croisé dynamique19").PivotSelect "Colonne", _
xlButton
ActiveSheet.PivotTables("Tableau croisé dynamique19").PivotFields("NB Valeur"). _
Function = xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique19").ShowPages PageField:= _
"Colonne"
feuil3.Select
End Sub
bye
stephane