Merci pour cette réponse.
La boucle est parfaite.
Mais comment insérer un lien hypertexte dans une cellule ?
Avec sethyperlink, sans doute.
Est-ce que quelqu'un peut m'en dire plus.
Merci à l'avance.
jip
-----Message d'origine-----
De : christianwtd [mailto:chri...@free.fr]
Envoyé : dimanche 18 décembre 2005 22:19
À : pr...@fr.openoffice.org
Objet : Re: [prog] For each ...
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
3 messages in org.openoffice.fr.progRE: [prog] For each ...
