Re: [prog] For each ... - christianwtd - org.openoffice.fr.prog

3 messages in org.openoffice.fr.progRe: [prog] For each ...

From	Sent On	Attachments
jean-paul mesters	Dec 18, 2005 12:49 pm
christianwtd	Dec 18, 2005 1:18 pm
jean-paul mesters	Dec 21, 2005 12:23 am

	Permalink for this message Paste this link in email or IM:
	Permalink for this thread Paste this link in email or IM:
	Atom feed for this thread Paste this URL into your reader:

Subject:	Re: [prog] For each ...	Actions...
From:	christianwtd (chri...@free.fr)
Date:	Dec 18, 2005 1:18:14 pm
List:	org.openoffice.fr.prog

jean-paul mesters a écrit :

Bonjour,

Je cherche à reproduire la boucle VBA suivante :

For Each Cell In Range("A1:A300") ActiveSheet.Hyperlinks.Add Anchor:=Cell, Address:="D:\Images\" & Cell.Value & ".jpg", TextToDisplay:=Cell.Value Next

Est-ce que quelqu'un a une idée, une piste.

A l'avance merci

jip

Bonsoir,

Je te propose :

Sub Test Dim oDocument As Object, oSheet As Object, oCell As Object oDocument=ThisComponent oSheet=oDocument.Sheets.getByName("Feuille1")

For i = 1 to 300 Txt = "D:\Images\" & i & ".jpg" oCell=oSheet.getCellByPosition(0,i) oCell.setValue(i) oCell.setString(Txt) Next i End Sub

Bon surf, Christian

	Start a set with this search
	Include this search in one of my sets
	Exclude this search from one of my sets
	Permalink to these results Paste this link in email or IM:
	Atom feed for tracking future search results Paste this URL into your reader: