Enregistrer macros, résultat ?
Résolu/Fermé
Nai
Messages postés
707
Date d'inscription
vendredi 29 avril 2005
Statut
Membre
Dernière intervention
11 octobre 2024
-
17 juil. 2014 à 16:57
Nai Messages postés 707 Date d'inscription vendredi 29 avril 2005 Statut Membre Dernière intervention 11 octobre 2024 - 20 sept. 2014 à 01:20
Nai Messages postés 707 Date d'inscription vendredi 29 avril 2005 Statut Membre Dernière intervention 11 octobre 2024 - 20 sept. 2014 à 01:20
A voir également:
- Enregistrer macros, résultat ?
- Audacity enregistrer son pc - Guide
- Enregistrer en pdf - Guide
- Comment enregistrer une video youtube - Guide
- Enregistrer son ecran - Guide
- Lexer resultat - Télécharger - Sport
3 réponses
Nai
Messages postés
707
Date d'inscription
vendredi 29 avril 2005
Statut
Membre
Dernière intervention
11 octobre 2024
55
19 juil. 2014 à 14:01
19 juil. 2014 à 14:01
Personne pour un coup de pouce ? :)
yclik
Messages postés
3718
Date d'inscription
vendredi 25 juillet 2014
Statut
Membre
Dernière intervention
28 décembre 2024
1 522
25 juil. 2014 à 18:22
25 juil. 2014 à 18:22
bonsoir
Lors de l'enregistrement de la macro commencer par insérer la ligne et ensuite sélectionner les cellules à copier et copier (CTRL+C) et coller CTRL+V)
L'enregistreur fonctionne le mieux en utilisant au maximum le clavier
cela donne
sub ajoute_ligne
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 ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:InsertRows", "", 0, Array())
rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$A$10:$Z$10"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "ToPoint"
args4(0).Value = "$A$11"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args4())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())
rem ----------------------------------------------------------------------
dim args6(0) as new com.sun.star.beans.PropertyValue
args6(0).Name = "ToPoint"
args6(0).Value = "$A$11"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args6())
end sub
Lors de l'enregistrement de la macro commencer par insérer la ligne et ensuite sélectionner les cellules à copier et copier (CTRL+C) et coller CTRL+V)
L'enregistreur fonctionne le mieux en utilisant au maximum le clavier
cela donne
sub ajoute_ligne
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 ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:InsertRows", "", 0, Array())
rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$A$10:$Z$10"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "ToPoint"
args4(0).Value = "$A$11"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args4())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())
rem ----------------------------------------------------------------------
dim args6(0) as new com.sun.star.beans.PropertyValue
args6(0).Name = "ToPoint"
args6(0).Value = "$A$11"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args6())
end sub
Nai
Messages postés
707
Date d'inscription
vendredi 29 avril 2005
Statut
Membre
Dernière intervention
11 octobre 2024
55
20 sept. 2014 à 01:20
20 sept. 2014 à 01:20
Merci !
Désolé pour le délais !
J'ai complété ton code avec la sélection de la cellule A11 avant le reste de ton code.
Je ne sais pas pourquoi, mais le résultat de la macro dépend de la cellule sélectionné au moment du clic sur la macro...
Du coup, problème résolu en sélectionnant celle qu'il faut :D
Merci !
Désolé pour le délais !
J'ai complété ton code avec la sélection de la cellule A11 avant le reste de ton code.
Je ne sais pas pourquoi, mais le résultat de la macro dépend de la cellule sélectionné au moment du clic sur la macro...
Du coup, problème résolu en sélectionnant celle qu'il faut :D
Merci !