Discussion :

[vandman]

Bonjour,

J'ai cette macro dans laquelle je voudrai passer en plus de la colonne, la feuille à trier.
Comment Faire?

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
23
24
25
26
27
28
29
30
31
32
33
sub tri (colonne as integer)
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
 
rem ----------------------------------------------------------------------
dim args1(7) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ByRows"
args1(0).Value = true
args1(1).Name = "HasHeader"
args1(1).Value = true
args1(2).Name = "CaseSensitive"
args1(2).Value = false
args1(3).Name = "NaturalSort"
args1(3).Value = false
args1(4).Name = "IncludeAttribs"
args1(4).Value = true
args1(5).Name = "UserDefIndex"
args1(5).Value = 0
args1(6).Name = "Col1"
args1(6).Value = colonne
args1(7).Name = "Ascending1"
args1(7).Value = true
 
dispatcher.executeDispatch(document, ".uno:DataSort", "", 0, args1())
 
 
end sub

Cordialment,
Vandman

[zoom61]

Bonjour,

Je ne comprends pas la question vous voulez trier la feuille, mais normalement un tri se fait en ligne ou en colonne...

[vandman]

Bonsoir,

C'est effectivement ce que je veux faire.
Dans mon document Calc, j'ai plusieurs macros qui font appelle à la fonction de trie. Seulement, les feuilles à trier ne sont pas toujours les mêmes et, surtout pas, la feuille visible.

C'est pourquoi je veux passer en argument dans la fonction le nom de la feuille que je désire trier.

Cordialement
Vandman

[zoom61]

Avec ceci peut-être !

[vandman]

Bonjour,

Pas vraiment.

En fait je veux avoir quelque chose comme ca:

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
23
24
25
26
27
28
29
30
31
32
33
sub tri (colonne as integer , FeuilleATrier as Object)
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = FeuilleATrier
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
 
rem ----------------------------------------------------------------------
dim args1(7) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ByRows"
args1(0).Value = true
args1(1).Name = "HasHeader"
args1(1).Value = true
args1(2).Name = "CaseSensitive"
args1(2).Value = false
args1(3).Name = "NaturalSort"
args1(3).Value = false
args1(4).Name = "IncludeAttribs"
args1(4).Value = true
args1(5).Name = "UserDefIndex"
args1(5).Value = 0
args1(6).Name = "Col1"
args1(6).Value = colonne
args1(7).Name = "Ascending1"
args1(7).Value = true
 
dispatcher.executeDispatch(document, ".uno:DataSort", "", 0, args1())
 
 
end sub

Je veux donc passer en argument de la fonction tri:

1. la colonne sur laquel je trie => colonne as integer
2. la feuille (Object => FeuilleATrier as Object) ou le nom de la feuille (string => FeuilleATrier as string)

Cordialement,
Vandman

[zoom61]

Ton code semble correct, il faut juste rajouter quelque chose comme cela pour changer de feuille (voir ici) :

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
sub tri (colonne as integer , FeuilleATrier as string)
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
 
rem ----------------------------------------------------------------------
Dim monDocument As Object
Dim lesFeuilles as Object
Dim uneFeuille As Object
 
monDocument = ThisComponent
lesFeuilles = monDocument.Sheets
uneFeuille = lesFeuilles.getByName(FeuilleATrier)
monDocument.CurrentController.ActiveSheet = uneFeuille
 
rem ----------------------------------------------------------------------
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
 
rem ----------------------------------------------------------------------
dim args1(7) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ByRows"
args1(0).Value = true
args1(1).Name = "HasHeader"
args1(1).Value = true
args1(2).Name = "CaseSensitive"
args1(2).Value = false
args1(3).Name = "NaturalSort"
args1(3).Value = false
args1(4).Name = "IncludeAttribs"
args1(4).Value = true
args1(5).Name = "UserDefIndex"
args1(5).Value = 0
args1(6).Name = "Col1"
args1(6).Value = colonne
args1(7).Name = "Ascending1"
args1(7).Value = true
 
dispatcher.executeDispatch(document, ".uno:DataSort", "", 0, args1())
 
end sub