Désactiver le tri automatique dans un tcd

Version imprimable

01/08/2014, 11h41
had4789

Désactiver le tri automatique dans un tcd

Bonjour,

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

Merci pas avance

Bonjour,

l'enregistreur de macron me dit comme ça :fessee:

Code:

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

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:

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 :lol:;)

01/08/2014, 18h39
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"
04/08/2014, 09h23
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:

Citation:

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
04/08/2014, 09h32
Philippe Tulliez

Bonjour,

Citation:

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)
04/08/2014, 10h32
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é.

Bonjour,

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

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

04/08/2014, 11h45
Daniel.C
Citation:
Code:

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.