Discussion :

[had4789]

Bonjour,

Quelqu'un sait-il comment on fait pour désactiver le tri automatique dans un tcd en vba?

Merci pas avance

[Invité]

l'enregistreur de macron me dit comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Macro1()
'
' Macro1 Macro
'
    ActiveSheet.PivotTables("TDC").FieldListSortAscending = True
    ActiveSheet.PivotTables("TDC").FieldListSortAscending = False
End Sub

[had4789]

rdurupt toi qui sait plein de chose sais tu où il y aurait un tuto sur ce fameux enregistreur de macro.

J'ai essayer ton code et j'ai une erreur 1004.

Je te joins une partie de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
 
ThisWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
    [Export!A1].CurrentRegion.Address(, , xlR1C1, True)).CreatePivotTable _
    TableDestination:="Presentation!R3C8", _
    TableName:="Mon TCD", DefaultVersion:=xlPivotTableVersion10
 
 
Sheets("Presentation").Select
ActiveSheet.PivotTables("TCD").FieldListSortAscending = False
 
Cells(3, 2).Select
 With ActiveSheet.PivotTables("Mon TCD").PivotFields("Type d'immo.")
 
    .Orientation = xlRowField
    .Position = 1
End With
 With ActiveSheet.PivotTables("Mon TCD").PivotFields("Designation de l'immobilisation 2")
 
    .Orientation = xlRowField
    .Position = 2
End With

Merci par avance.

PS je commence une statut à ta gloire ce week-end

[Invité]

Tu vas dans les options d'exel et tu active l'option afficher l'onglet developpeur

activeSheet.("TDC") est len nom de mon tdc je ne connais pas le tien

test avec "mon tcd"

[had4789]

Tu as raison avec "mon tcd" la code passe. Mea culpa.

En revanche l'item ("Designation de l'immobilisation 2") continu d'être trié ce que je ne veux pas.

J'ai essayer d’adapter la procédure ci-dessous avec l'enregistreur de macro mais je n'y arrive pas:

Stop sorting or return the items to their original order

On the PivotTable toolbar, click PivotTable, and then click Sort and Top 10.
Under AutoSort options, click Manual to stop automatic sorting or Data source order to return the items to their original order.

Merci par avance

[Philippe Tulliez]

Bonjour,

rdurupt toi qui sait plein de chose sais tu où il y aurait un tuto sur ce fameux enregistreur de macro.

En complément de la réponse de Robert
A lire
Vos premiers pas dans l'éditeur de macros Excel
et pour aller plus loin
Visual Basic Editor
Le débogage sous Visual Basic 6 (1ère partie)

[Daniel.C]

Bonjour,

Il me semble que l'option indiquée par rdurupt concerne la liste des champs dans la fenêtre de la liste des champs.
Active l'enregistreur de macros :
Avec Excel 2013, tu fais un clic droit sur le champ dans ton TCD, tu choisis "Trier", "Options de tri supplémentaires", tu coches "Manuel"; clique sur le bouton "Autres" et dé-sélecte "Trier automatiquement..." quoique je pense que ce ne soit pas utile. Répète l'opération pour chaque champ concerné.

[had4789]

Bonjour,

avec ta solution j'obtiens le code ci dessous qui ne marche pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
    Range("I16:I53").Select
    ActiveSheet.PivotTables("Mon TCD").PivotFields( _
        "Designation de l'immobilisation 2").Name = False

Merci

[Daniel.C]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
   Range("I16:I53").Select
    ActiveSheet.PivotTables("Mon TCD").PivotFields( _
        "Designation de l'immobilisation 2").Name = False

La propriété "Name" sert à nommer le TCD; tu ne peux donc pas lui affecter une valeur booléenne. De toutes façons, ce que je t'ai dit ne sert à rien. Tu peux déplacer un à un les champs ou les items et l'actualisation ne modifiera rien.