Discussion :

[Adamantium]

Bonjour à tous,

Je viens de me rendre compte qu'il n'y a pas d'option relative ou absolue lors de l'enregistrement de macro sur OOo... Et par défaut d'après mes test l'enregistrement se fait en mode Absolue (ne tient pas compte de la cellule sélectionnée au moment de l'exécution si j'ai bien compris).

C'est problématique car j'aimerai créer une macro qui rajoute une ligne (à partir de la cellule sélectionné lors de l'exécution donc au dessus) et qui ensuite fait un copier-glissé de la 1ere, la 3eme et la 4eme cellules à droite au dessus vers la ligne qui vient d'être créée.

Par exemple je suis en C2, j'exécute la macro en question, ainsi un nouvelle ligne 2 est créée et D1 est copié glissé vers D2, F1 vers F2 et G1 vers G2.

Un peu difficile à expliquer mais très simple dans les fait. Je n'ai aucune idée de comment faire sur OOo.

Quelqu'un a-t-il une idée?

Merci d'avance.

Adam.

[lucquiluc]

Bonjour Adamantium,
voici un petit bout de code qui te permet de récupérer le n° de la ligne sélectionnée et d'insérer 2 lignes avant :

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
Dim lesFeuilles, feuille, selection, mesLignes As Object
	Dim numLigneSelect  As Integer
	Dim strNumLigneSelect As String
 
	lesFeuilles = ThisComponent.Sheets	
	feuille = lesFeuilles.getByName("nomOnglet")
 
	'Récupérer la ligne sélectionnée
	selection = thisComponent.currentSelection
	if (selection.supportsService("com.sun.star.table.Cell")) then
		'1 seule cellule sélectionnnée
		MsgBox("Aucune ligne sélectionnée", 48, "titre")
		Exit Sub
	end if
	'Ici on sait que selection pointe sur une ligne sélectionnée
 
	'les N° de ligne commencent à 0 
	'=> on ajoute 1 pour avoir le n° affiché à gauche de la ligne
	numLigneSelect = selection.RangeAddress.StartRow + 1 
	strNumLigneSelect = trim(Str(numLigneSelect))
 
	'on insère deux lignes vides avant la ligne sélectionnée
	mesLignes = feuille.getCellRangeByName("A" + strNumLigneSelect + ":" + "A" + strNumLigneSelect).Rows
	mesLignes.insertByIndex(0,2)
	'Ici, deux lignes ont été inséréee avant la ligne sélectionnée