yves dutrieux a écrit :
Bonsoir,
Le 18/10/07, abel <[EMAIL PROTECTED]> a écrit :
Bonjour,
J'essaie de faire une petite macro dans calc avec l'enregistreur de macro.
Je veux sélectionner une colonne, la recopier et la trier.
Tout va (presque) bien, jusqu'au moment du tri, car je dois valider ce
dernier. Or je ne voudrais pas avoir à intervenir au cours de cette
action.
Comment faire ?
Je viens d'essayer de reproduire ton problème mais sans succès (via
l'enregistreur de macro aussi).
Peux-tu nous fournir le code de ta macro, car sans cela, on ne sait pas
exactement où ça coince...
N'est-ce pas les sécurités macros qui te pose la question de "validation" ?
Outils - options - sécurité - macros
Merci.
Yves
Je suis sous Linux, mandriva 2007 et Oo2.3
Merci
Abel
Bien volontiers, voici en fichier attaché cette macro enregistrée.
La sécurité macro est à : "sécurité faible".
De plus lorsque j'essaie d'assigner cette macro à un bouton, cela me
plante OpenOffice qui au bout d'un moment se ferme ???
Merci
Abel
REM ***** BASIC *****
Sub Main
End Sub
sub gun
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(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$B$3:$B$54"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "ToPoint"
args3(0).Value = "$G$3"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args3())
rem ----------------------------------------------------------------------
dim args4(5) as new com.sun.star.beans.PropertyValue
args4(0).Name = "Flags"
args4(0).Value = "S"
args4(1).Name = "FormulaCommand"
args4(1).Value = 0
args4(2).Name = "SkipEmptyCells"
args4(2).Value = false
args4(3).Name = "Transpose"
args4(3).Value = false
args4(4).Name = "AsLink"
args4(4).Value = false
args4(5).Name = "MoveMode"
args4(5).Value = 0
dispatcher.executeDispatch(document, ".uno:InsertContents", "", 0, args4())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:DataSort", "", 0, Array())
rem ----------------------------------------------------------------------
dim args6(0) as new com.sun.star.beans.PropertyValue
args6(0).Name = "HorizontalAlignment"
args6(0).Value = com.sun.star.table.CellHoriJustify.LEFT
dispatcher.executeDispatch(document, ".uno:HorizontalAlignment", "", 0, args6())
rem ----------------------------------------------------------------------
dim args7(0) as new com.sun.star.beans.PropertyValue
args7(0).Name = "ToPoint"
args7(0).Value = "$G$2"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args7())
end sub---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
