Discussion :

[natorp]

Bonjour à toutes et tous

J'aimerais, par macro, mettre chaque cellule de la colonne B à partir de B10 en lien hypertext vers l'onglet correspondant

Merci pour votre attention et votre aide, cordialement, Gérard

[njhub]

Bonjour natorp,

Si vous pouvez vous contenter d'une formule, celle ci est fonctionnelle
en B10 de Tableau récapitulatif

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=LIEN.HYPERTEXTE("#'Gymnase Langevin'.A1";"Gymnase Langevin")

ou celle-ci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=LIEN.HYPERTEXTE("#"&INDIRECT(ADRESSE(1;1;4;1;NOMFEUILLE(LIGNE()-8));1);NOMFEUILLE(LIGNE()-8))

[natorp]

Merci njhub

Mais il me faut vraiment le code basic qui sera à intégrer au code général

Cordialement, Gérard

[njhub]

Bonjour natorp,

Un code trouvé là:
https://forum.openoffice.org/fr/foru...ertext%2A+calc

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
Sub AllerFeuille()
Dim oDoc As Object, lesFeuilles As Object
Dim uneFeuille As Object, maCellule as Object
	oDoc = ThisComponent
	lesFeuilles = oDoc.Sheets
	uneFeuille = oDoc.CurrentController.ActiveSheet
	maCellule = uneFeuille.getCellRangeByName("A1")
	Select Case maCellule.String
		Case "feu1"
			uneFeuille = lesFeuilles.getByName("Feuille1")
		Case "feu2"
			uneFeuille = lesFeuilles.getByName("Feuille2")
		Case "feu3"
			uneFeuille = lesFeuilles.getByName("Feuille3")
	End Select	
	oDoc.CurrentController.ActiveSheet = uneFeuille
End Sub

[natorp]

Merci, je l'ai trouvé également, mais c'est plus complexe que ça :
il s'agit de récupérer le contenu de la cellule à partir de B10 et créer, dans cette cellule, un lien vers la feuille correspondante
dans le fichier d'exemple, je n'ai mis qu'une seule feuille, mais je vais en avoir une bonne trentaine et des lignes qui vont s'ajouter dans la feuille "tableau récapitulatif"

Merci pour votre aide, cordialement, Gérard

[natorp]

tout est là : https://forum.openoffice.org/fr/foru...hp?f=8&t=61435

Merci à Hubert et Luky-luke

Gérard