la réponse doit être pour vous très simple...
J'ai repris un exemple donnée par DUDE, car je souhaite tout simplement copier/coller une plage de cellule, avec un bouton.
[Calc] Copier / coller entre deux classeurs ou feuilles
https://forum.openoffice.org/fr/forum/v ... =15&t=6371
Mais:
- je voudrais pouvoir incrémenter la zone COLONNE à chaque fois que j'appuie sur le bouton.
exemple : j’appuie cela sélectionne de A1à A6 (puis je colle, peu importe sur un autre document *)
j'appuie cela selectionne de B1 à B6 " "
etc...
1) je ne trouve pas comment incrémenter une colonne puisque ce sont des lettres (donc pas de variable i possible)
la fonction COLONNE() ne semble pas correspondre à ce que je cherche.
Je suis surpris (je cherche mal ?) mais la variabilité sur la sélection des colonnes, j'ai pas trouvé, c'est toujours les lignes...
il y a bien ça (eh oh, j'ai cherché !)
[Résolu][Calc] Copier-coller dans une colonne variable
mais DLE répond "C'est fait." et moi je vois pas trop...
2) je ne sais pas quel genre de boucle il faut et comment la positionner
pour qu'elle s'incrémente pas toute seule tout d'un coup mais attende l'instruction du bouton.
* sur un autre document: chose bizarre, quand je colle dans Writer, c'est une image que j'obtiens (ce qui n'est pas grave en soi,
mais ça me semble étrange que dans la mémoire tampon, cela se transforme ainsi et peut être gênant pour d'autres personnes confrontées
au même problème et qui voudraient du texte et pas une image. Cela ne le fait pas quand je colle dans calc )
ci-joint exemple
et code
Code : Tout sélectionner
sub ActionCopieColle
Dim oDoc as object
Dim origDocument as object
Dim destDocument as object
Dim origDispatcher as object
Dim destDispatcher as Object
dim oDesktop as Object
Dim args(0) as new com.sun.star.beans.PropertyValue
Dim props(0) as new com.sun.star.beans.PropertyValue
Dim cURL as String
Dim destLigne as Integer
origDocument = ThisComponent.CurrentController.Frame
origDispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
oDesktop = createUnoService( "com.sun.star.frame.Desktop" )
cURL = ConvertToURL( "private:factory/scalc" )
props(0).Name = "ToPoint"
props(0).Value = "$A$"+1+":$A"+6
origDispatcher.executeDispatch(origDocument, ".uno:GoToCell", "", 0, props())
origDispatcher.executeDispatch(origDocument, ".uno:Copy", "", 0, Array())
end sub
Et euh, par avance je m'excuse auprès du modérateur si j'ai pas bien fait quelque chose.
Merci, A bientôt