Discussion :

[martintre]

Bonjour à tous,

J'ai une macro à faire avec openoffice, très simple à réaliser mais je ne parviens pas à mes fins. J'ai un document de 3 feuilles. Je dois créer une macro qui sélectionne et copie une colonne de la feuille 2 (pour la coller par la suite dans une autre feuille).

Je lance donc l'enregistrement de la macro, je sélectionne la colonne, clic droit dessus, copier et termine l'enregistrement. Donc, normalement, si je vais dans la feuille 3 par exemple, que j'exécute la macro précédemment enregistrée et que je fais coller, je devrais pouvoir coller la colonne sélectionnée dans la feuille 2 lors de l'enregistrement de la macro. Or ce n'est pas le cas, rien ne se passe ou pas comme je le voudrais.

Avec excel ça ne pose pas de problème mais office...

En espérant de l'aide, merci beaucoup !

[zoom61]

Salut,

Dans OBasic, ce n'est pas possible de sélectionner une colonne, il faut sélectionner une zone, voici le code correspondant :

Code vb :

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
Dim monDocument As Object, lesFeuilles As Object
Dim uneFeuilleAct As Object, uneFeuilleSel As Object
Dim maZone As Object, maCellule as Object
 
monDocument = ThisComponent
lesFeuilles = monDocument.Sheets
 
'définit les paramètres d'arrivée
uneFeuilleAct = monDocument.CurrentController.ActiveSheet
maCellule = uneFeuilleAct.getCellRangeByName("B1")
 
'définit les paramètres de départ
uneFeuilleSel = lesFeuilles.getByName("Feuille2")
maZone = uneFeuilleSel.getCellRangeByName("B1:B200")
 
'fait la copie
uneFeuilleAct.copyRange(maCellule.CellAddress, maZone.RangeAddress)

@+.

[martintre]

Salut,

Dans OBasic, ce n'est pas possible de sélectionner une colonne, il faut sélectionner une zone, voici le code correspondant :

Code vb :

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
Dim monDocument As Object, lesFeuilles As Object
Dim uneFeuilleAct As Object, uneFeuilleSel As Object
Dim maZone As Object, maCellule as Object
 
monDocument = ThisComponent
lesFeuilles = monDocument.Sheets
 
'définit les paramètres d'arrivée
uneFeuilleAct = monDocument.CurrentController.ActiveSheet
maCellule = uneFeuilleAct.getCellRangeByName("B1")
 
'définit les paramètres de départ
uneFeuilleSel = lesFeuilles.getByName("Feuille2")
maZone = uneFeuilleSel.getCellRangeByName("B1:B200")
 
'fait la copie
uneFeuilleAct.copyRange(maCellule.CellAddress, maZone.RangeAddress)

@+.

Merci à tous pour votre aide. Je crois avoir trouvé : quand je commence à enregistrer la macro, il faut que la cellule sélectionnée dans la feuille 1 soit la même au début de l'enregistrement qu'à la fin quand je retourne sur la feuille 1 pour terminer l'enregistrement.