3 messages in org.openoffice.fr.progRe: [prog] Copier 2 cellules de diffe...
FromSent OnAttachments
endiveDec 18, 2006 7:41 am 
Francois GattoDec 18, 2006 6:29 pm 
Laurent GodardDec 18, 2006 11:07 pm 
Actions with this message:
Paste this link in email or IM:
Paste this link in email or IM:
Atom feed for this thread
Paste this URL into your reader:
Subject:Re: [prog] Copier 2 cellules de differents onglets dans un nouveau tableauActions...
From:Francois Gatto (oo@volcar.org)
Date:Dec 18, 2006 6:29:12 pm
List:org.openoffice.fr.prog

Bonjour,

endive a écrit :

Bonjours,

Je souhaite copier dans un onglet calc en A1 et B1 la cellule C12 etI37 de l'onglet TITI TOTO situé 3 onglets plus loint. Puis en A2 et B2 la cellule C12 et I37 de l'onglet TATA TouTou situé 4 onglets plus loint. Etc pour 70 à 100 onglets ((Le nombre varie).

Ceci pour crée une table dans base.

Comment faire?

Voici une idée :

Sub CopyTab2Tab oSheet = ThisComponent.getSheets() oSheetCible = oSheet.getByIndex(0) nSheets = ThisComponent.getSheets().Count ' lecture des onglets à partir de 3 (feuille4 et suivantes) ' on admet que les feuilles sont dans l'ordre requis For i = 3 to nSheets - 1 oSheetSource = oSheet.getByIndex(i) oSheetCible.getCellRangeByName("A"&i-2).String = oSheetSource.getCellRangeByName("C12").String oSheetCible.getCellRangeByName("B"&i-2).String = oSheetSource.getCellRangeByName("I37").String Next End Sub

NB : s'agissant d'alimenter une table de Base, on pourrait créer une macro qui injecte directement ces données dans la table. ... mais c'est une autre aventure ;)

Merci endive

Francois