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)