j'ai fait une macro (en mode enregistrement) qui en théorie doit à partir tableau croisé
1- afficher la première valeur de la liste de choix
2- imprimer
3- afficher la deuxième valeur.... (et ce 23 fois)
 
 a prioro pas de grande difficulté ...  à part que ça bloque avec un message qui me dit qu'il ne trouve pas la valeur par défaut ....

Bonjour,
 
Une solution:
 
Sub TDC_Print()
With ActiveSheet.PivotTables("NomDeTonTDC" ).PivotFields("NomDuChamps" )
'<<<Lance ton code pour chaque element d'un des champs de ton TDC>>>
 
For i = 1 To .PivotItems.Count
 
'<<<Au moins un elements de ton champs doit etre visible, on rend donc
'le dernier visible a chaque fois (il est cache plus tard)>>>
.PivotItems(.PivotItems.Count).Visible = True
 
'<<<Pour cheque element on verifie s'il doit etre cache ou non>>>
For r = 1 To 4 '.PivotItems.Count
If r = i Then
.PivotItems(r).Visible = True
 
Else
'<<<on cache les elements qui ont deja ete affiche une fois, ou qui seront affiche plus tard, dont le dernier qui a ete rendu visible plus haut>>>
 
.PivotItems(r).Visible = False
End If
 
'<<<Mets ton code d'impression ici>>>
Next
 
Next
 
End With
 
End Sub
 
 
I.

super merci je teste et je te dis