aidez moi

[oudjat]

pouvez vous m'aider sur un petit probleme (tous est expliqué dans le fichier exemple ci joint)

TRES GRAND MERCI D'AVANCE

 

[STéphane]

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

 

[Celeda]

Super Super Super
Cela m'aide aussi. Je vais essayer de le tester.

Mais pourquoi à chaque fois que je download un fichier du forum comme il est présenté actuellement cela me sort du net et qu'il faille que je revienne sur le net et que je recherche le forum !?

merci stephane