DelphineDF
XLDnaute Nouveau
Bonjour,
Malgré différents forum, je n'arrive pas à résoudre mon problème.
Je voudrais que après actualisation d'un TCD, les nouvelles colonnes (nouveaux champs) soient automatiquement cochés et donc positionnés en lignes.
La seule solution serait une VBA ?
J'ai essayé avec PivotItems(Pivots).Visible = True
Mais cela ne me coche pas les nouveaux champs pour les positionner en ligne.
J'ai essayé ce code VBA mais cela ne marche pas, je n'arrive pas à faire en sorte que soit cocher automatiquement tout les nouveaux champs.
Sub test22()
Dim Nbre_Champs As Byte, Champs As Byte
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
Nbre_Champs = ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields.Count
For Champs = 1 To Nbre_Champs
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields(Champs).Orientation = xlRowField = True
End With
Next Champs
End Sub
Merci pour votre aide, je n'ai plus l'habitude d'utiliser la VBA donc pas facile de trouver. Peut-être est-ce impossible ???
Merci pour vous lumières
Ci-joint fichier
Malgré différents forum, je n'arrive pas à résoudre mon problème.
Je voudrais que après actualisation d'un TCD, les nouvelles colonnes (nouveaux champs) soient automatiquement cochés et donc positionnés en lignes.
La seule solution serait une VBA ?
J'ai essayé avec PivotItems(Pivots).Visible = True
Mais cela ne me coche pas les nouveaux champs pour les positionner en ligne.
J'ai essayé ce code VBA mais cela ne marche pas, je n'arrive pas à faire en sorte que soit cocher automatiquement tout les nouveaux champs.
Sub test22()
Dim Nbre_Champs As Byte, Champs As Byte
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
Nbre_Champs = ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields.Count
For Champs = 1 To Nbre_Champs
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields(Champs).Orientation = xlRowField = True
End With
Next Champs
End Sub
Merci pour votre aide, je n'ai plus l'habitude d'utiliser la VBA donc pas facile de trouver. Peut-être est-ce impossible ???
Merci pour vous lumières
Ci-joint fichier
