Discussion :

[dadabou]

Bonjour !
J'ai passé cette belle après-midi à essayer de me mettre aux macros dans libreoffice...

J'ai réussi à faire la première (vous verrez le bouton "Effacer" dans le fichier), mais je n'arrive pas la seconde ("Copier la ligne dans l'autre feuille").

J'ai beaucoup lu sur les forums (et notamment celui-ci !), mais malgré tous les threads évoquant ce sujet précis, je n'arrive toujours pas à le faire marcher... Je me résigne donc à vous poser la question.

Après avoir longtemps essayé ce que je trouvais sur les forums, j'ai finalement succombé aux sirènes du "enregistrer macro" pour arriver quasiment à mon but, mais son comportement, ensuite, ne fait plus ce que je veux.

Ce que je veux, c'est donc ça :
- Sur la première feuille, sélectionner et copier les cellules de I2 à AM2,
- Sur la deuxième feuille, ajouter une ligne, juste après la première ligne,
- Aller sur la cellule A2 et y coller ce qui a été copié.

A la base, je voulais mettre la ligne copiée à la dernière ligne vide, mais ça non plus, je n'y arrive pas... Mais les deux solutions me vont !

Au final, j'obtiens une copie étrange... J'ai l'impression qu'il copie la deuxième ligne de la deuxième feuille (donc pas la bonne), avant de faire la création de ligne et le collage... mais impossible de savoir comment bien lui dire ce qu'il faut copier... Pourtant le code m'a l'air de faire ça, avec mes (très) maigres connaissances en programmation...

Quelqu'un pourrait-il m'aider ?

[dadabou]

Bonjour,
J'ai continué mes recherches, mais je n'arrive toujours pas à faire une copie, même simplement...

Sur la même idée (et sans penser au décalage des lignes, pour le moment), j'ai essayé de simplement faire la copie d'une feuille à l'autre, en m'aidant de ce que j'ai pu trouver sur le forum, mais ça ne fonctionne toujours pas et je n'arrive pas à comprendre pourquoi...

Voilà ce que j'ai tenté :

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
sub montestcopie
rem Les variables---------------------------------------------------------
Dim monDocument as Object
Dim mesFeuilles as Object
Dim feuilleSource as object
Dim feuilleDestination as object
Dim celluleSource as object
Dim celluleDestination as object
 
rem Sélectionne et copie la ligne de la première feuille
monDocument = thisComponent
mesFeuilles = monDocument.Sheets
feuilleSource = mesFeuilles.getByName("saisie-competence")
celluleSource = feuilleSource.getCellRangeByName("I3:AM3")
 
rem Positionne le curseur à l'endroit de la copie
feuilleDestination = mesFeuilles.getByName("donnees")
celluleDestination = feuilleDestination.getCellRangeByName("A2")
 
rem Effectue la copie souhaitée
feuilleDestination.copyRange(celluleSource.CellAddress, celluleDestination.RangeAddress)
 
 
'Autre bout de code qui ne marche pas...
'MaZoneDepart = ThisComponent.Sheets(0).getCellRangeByName("I3:AM3")
'MaZoneCible = ThisComponent.Sheets(1).getCellRangeByName("A2:AE2")
'MaZoneDepart.DataArray = MaZoneCible.DataArray
End Sub

Apparemment, ça fait une copie de cases vides. S'il y a du contenu dans la feuille donnees, sur la ligne A2, ça le remplace par des cases vides.
Pas moyen de copier I3:AM3...

Autre petite question annexe : Quand on passe par l'enregistreur de macro, ça utilise "dispatcher" un peu partout... Pourquoi la plupart des bouts de code que je vois sur les forums et produits par des personnes n'utilise pas ça ?

Merci pour votre (future ?) aide .