Discussion :

[coleoptere]

Bonjour,

Pouvez-vous m'aider à écrire une macro qui déplace une colonne de 2 col vers la gauche en utilisant le "Couper/Collage Spécial" + le paramètre "Additionner".

Merci

[jurassic pork]

hello,
pour t'aider , pour ce qui me paraît le plus compliqué (le paste spécial), voici un exemple qui copie une plage de cellules, et fait un coller spécial avec addition :

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 CopierCollerSpecial
' J.P Janvier 2015
oDoc1 = thisComponent
oDispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
oFrame1 = oDoc1.CurrentController.Frame
' On sélectionne la plage de cellule à copier
oSheet = oDoc1.Sheets(0)
rng = oSheet.getCellRangeByName("A1:A10")
oDoc1.CurrentController.Select(rng)
' On utilise un Dispatch pour copier la plage
oDispatcher.executeDispatch(oFrame1, ".uno:Copy", "", 0, Array())
' On sélectionne la première cellule de l'endroit où copier
rng = oDoc1.Sheets(0).getCellRangeByName("B1")
oDoc1.CurrentController.Select(rng)
' on renseigne les arguments pour le coller spécial
dim args1(5) as new com.sun.star.beans.PropertyValue
' Flags :  A=Tout VSD=Valeurs T=Formats F=Formules VSDT=Valeurs&Formats
args1(0).Name = "Flags"
args1(0).Value = "A"
'FormulaCommand : 0=aucune 1=addition 2=soustraction 3=multiplication 4=Division
args1(1).Name = "FormulaCommand"
'1 : on additionne les valeurs de la plage de départ à celle d'arrivée
args1(1).Value = 1
args1(2).Name = "SkipEmptyCells"
args1(2).Value = false
args1(3).Name = "Transpose"
args1(3).Value = false
args1(4).Name = "AsLink"
args1(4).Value = false
args1(5).Name = "MoveMode"
args1(5).Value = 4
oDispatcher.executeDispatch(oFrame1, ".uno:InsertContents", "", 0, args1())
end sub

A toi d'adapter cet exemple et de compléter pour ce que tu veux faire

Ami calmant, J.P

[coleoptere]

Bonjour,

Merci de ton aide JP.
Je vais essayer d'adapter ton code à mon besoin.
Une petite question néanmoins;
Pourquoi as-tu mis la valeur 4 dans le paramètre "MoveMode" alors que celui-ci n'en propose que 3 ? (Ne pas déplacer/Vers le bas/A droite).

A+

[zoom61]

Pourquoi as-tu mis la valeur 4 dans le paramètre "MoveMode" alors que celui-ci n'en propose que 3 ? (Ne pas déplacer/Vers le bas/A droite).

L'argument MoveMode est nécessaire, et plutôt que de lui mettre une des trois valeurs, mais aucune ne va, donc on met une autre valeur.

[coleoptere]

Re,

Merci pour la précision Zoom61.

Après avoir adapté le code, le résultat est partiel.
En effet j'obtiens une copie au lieu d'un déplacement. Est-ce du à la commande

Code :

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

oDispatcher.executeDispatch(oFrame1, ".uno:Copy", "", 0, Array())

Je joins le code modifié:

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
43
44
45
46
Sub CopierCollerSpecial
' J.P Janvier 2015
dim oDoc as object, oSheet as object, oFrame1 as object, oDispatcher as object, rng as object
oDoc = thisComponent
oDispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
oFrame1 = oDoc.CurrentController.Frame
 
' On sélectionne la plage de cellule à copier
oSheet = oDoc.Sheets(0)
rng = oSheet.getCellRangeByName("F1:F6103")
oDoc.CurrentController.Select(rng)
 
' On utilise un Dispatch pour copier la plage
oDispatcher.executeDispatch(oFrame1, ".uno:Copy", "", 0, Array())
 
' On sélectionne la première cellule de l'endroit où copier
rng = oDoc.Sheets(0).getCellRangeByName("D1")
oDoc.CurrentController.Select(rng)
 
' on renseigne les arguments pour le coller spécial
dim args1(5) as new com.sun.star.beans.PropertyValue
 
' Flags :  A=Tout VSD=Valeurs T=Formats F=Formules VSDT=Valeurs&Formats
args1(0).Name = "Flags"
args1(0).Value = "A"
 
'FormulaCommand : 0=aucune 1=addition 2=soustraction 3=multiplication 4=Division
args1(1).Name = "FormulaCommand"
'1 : on additionne les valeurs de la plage de départ à celle d'arrivée
 
args1(1).Value = 1
 
args1(2).Name = "SkipEmptyCells"
args1(2).Value = false
 
args1(3).Name = "Transpose"
args1(3).Value = false
 
args1(4).Name = "AsLink"
args1(4).Value = false
 
args1(5).Name = "MoveMode"
args1(5).Value = 4
 
oDispatcher.executeDispatch(oFrame1, ".uno:InsertContents", "", 0, args1())
end sub

Edit
C'était ça. J'ai modifié la commande Copy par Cut et cela fonctionne parfaitement.