[Résolu][Calc] Sommaire à partir des feuilles du classeur

[PierrePoisson]

Bonjour,

j'aurais besoin de créer un sommaire de façon automatique à partir des noms des feuilles d'un fichier Calc.

Ces noms devraient être liés via des hiperliens à la feuille correspondant.

Merci d'avance

[Bidouille]

Cette section a des règles très précises que vous devez obligatoirement suivre pour obtenir de l'aide. C'est indiqué dans le cadre rouge en haut de la page.

Il est demandé aux auteurs de faire précéder le titre de leur question d'une balise adéquate. Ce balisage est extrêmement important car il permet d'avoir une base de connaissance optimum en cas de recherche. Avez-vous remarqué comment étaient les autres questions postées ?

Lisez ce fil pour savoir quelle balise utiliser : http://forum.openoffice.org/fr/forum/su ... html#27295

Nous l'avons fait pour vous cette fois-ci mais lors de votre prochaine question, nous vous remercions de le faire vous-même sous peine de voir votre sujet verrouillé.

[bm92]

Salut,

j'aurais besoin de créer un sommaire de façon automatique à partir des noms des feuilles d'un fichier Calc.
Ces noms devraient être liés via des hiperliens à la feuille correspondant.

Déjà fait : les onglets du tableur répondent exactement à cette définition.

[Dude]

Salut,

Déjà fait : les onglets du tableur répondent exactement à cette définition.

+1
Autre sommaire disponible depuis la barre latérale avec le navigateur :

_no_problemo.png

[zeguedon]

Bonjour,

Dans le fichier joint une petite fonction qui crée un sommaire (sous la cellule active) avec hyperlien vers toutes les feuilles du classeur.
Sous AOO : menu Outils>Macros>Exécuter la macro puis choisir le classeur dans la liste et sélectionner la macro nommée "Sommaire".
Sous LO, saisir directement dans une cellule :

Code : Tout sélectionner

=SOMMAIRE()

Le sommaire sera créé en dessous

Code : Tout sélectionner

Option Explicit
Function sommaire()As String
Dim oDoc As Object ,maFeuille As Object ,feuil As String ,feuilles As Object
Dim maCellule As Object , cell As Object ,curseur As Object ,hpl As Object
Dim i As Long
oDoc = Thiscomponent
feuilles = oDoc.Sheets
maFeuille = oDoc.CurrentController.ActiveSheet
maCellule = oDoc.CurrentSelection
If maCellule.supportsService("com.sun.star.table.Cell") then
	For i = 0 To feuilles.count-1
		cell = maFeuille.GetCellByPosition(maCellule.RangeAddress.StartColumn ,maCellule.RangeAddress.StartRow +(i+1))
 		feuil = feuilles(i).Name
 		hpl = oDoc.createInstance("com.sun.star.text.TextField.URL")
 		hpl.url = "#" & feuil & ".A1"
 		hpl.Representation = feuil
 		curseur = cell.createTextCursor
 		curseur.gotoEnd(false)
 		cell.insertTextContent(curseur ,hpl ,false)
 	Next i
End If
sommaire() = "Sommaire"
maCellule.String = "Sommaire"
End Function