Discussion :

[roby68]

Bonsoir le Forum,

Débutant sous Open Office, j'aimerai que dans une feuille (La première si possible) intitulée "Menu", apparaissent tous les noms sans doublons des onglets et cela à partir de la feuilles 5 à l'infini par exemple (les feuilles 1 à 4 sont réservées) et que lorsque l'on clique sur un nom affiche la feuille correspondante. Le nom des feuilles pourrait correspondre à des clients.

Je ne sais pas si cela est possible car j'ai cherché mais pas de solutions concrètes.

Dans l'attente

merci d'avance. Roby

[zoom61]

Salut,

Il va falloir que tu passes par un (ou plusieurs) bouton pour insérer du code.

Pour liste les feuilles actives dans ta première page :

Code vb :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub ListerOnglet()
	Dim monDocument As Object, lesFeuilles as Object, maCellule As Object
 
 	monDocument = ThisComponent
	lesFeuilles = monDocument.Sheets
	maFeuille = monDocument.CurrentController.ActiveSheet
	nbF = lesFeuilles.Count  
	for x = 4 to nbF -1
	  uneFeuille = lesFeuilles(x)
	  maCellule = maFeuille.getCellRangeByName("C" & x+1)
	  monCurseur = maCellule.createTextCursor
	  maCellule.insertString(monCurseur, uneFeuille.Name, true)
	next	
End Sub

Et pour sélectionner la feuille correspondante à ta position dans ta première feuille :

Code vb :

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

1
2
3
4
5
6
7
8
9
10
11
Sub SelectionnerFeuille()
	Dim monDocument As Object, lesFeuilles as Object, maCellule As Object
 
 	monDocument = ThisComponent
	lesFeuilles = monDocument.Sheets
  	maCellule = monDocument.getCurrentSelection
 
  	uneFeuille = lesFeuilles.getByName(maCellule.String)
 	monDocument.CurrentController.ActiveSheet = uneFeuille
 
End Sub

@+.

[roby68]

Bonjour le Forum, Zoom61

Merci pour le coup de main. Cela fonctionne très bien.
j'ai modifier pour l'utiliser dans une seule cellule de validation.

Bonne journée à toi et au Forum.

@ + Roby68

[zoom61]

N'oublie pas le tag

@+.