hypertext vers onglets

[Pat]

Bonjour au forum,
Peux t on à partir d'un choix (clique) effectué à l'aide d'une liste
déroulante accéder directement à une feuille? Je ne vois pas trop comment
faire.
merci pour vos conseils.
Agréable journée.

 

[ERIC S]

Bonjour

Joins un fichier car l afàçon dont est créée ta liste peut influer sur la méthode

Mais c'est possible

A+

 

[Pat]

Merci Eric de ta réponse.
Je n'ai pas de zip...
J ai une liste sur une feuille et j'utilise une zone de liste déroulante dans le menu Formulaire.
j'aimerais en cliquant dans cette liste déroulante accéder directement à la feuille correspondant au choix.

🙁

Bonne journée

 

[ERIC S]

re

pas de zip alors on le fait à la main

je te propose

feuille 1 liste des noms de feuille(nommée 'liste')
feuille 2 cellule A1
données validation liste (au lieu de formulaire)
=liste
alt F11
dans feuille 2, code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = '$A$1' Then
Range('A2').Select
Sheets(Range('A1').Value).Activate
ActiveSheet.Range('A1').Select
End If
End Sub

bien sûr tu nommes tes feuilles correspondant à la liste sinon bug

A+

 

[Pat]

merci Eric, en plus j'ai compris le code 🙂
L'idée de la liste déroulant me plaisait car je ne serais pas le seul utilisateur....Dois y renoncer forcément?
Merci encore de ton aide.

 

[ERIC S]

re

liste en feuille 1
intitulé en A1
noms en dessous

insertion nom définir
liste
=DECALER(Feuil1!$A$2;;;NBVAL(Feuil1!$A:$A)-1)

(permet de rajouter des noms par la suite)

macro : insérer module

Sub ouvrefeuille()
feuille = Sheets('feuil1').Range('A1').Offset(Range('A1'), 0).Value
Sheets(feuille).Activate
ActiveSheet.Range('A1').Select
End Sub


feuille2
zone de liste
format de contrôle
cellule liée A1
plage d'entrée liste
affecter macro
ouvrefeuille


A tester

A+

 

[Pat]

Merci Eric amusant suis arrivée quasiment de la même façon mais n ai pas pensée à la fonction décaler.....Excel..lente leçon, il me faut le temps de bien comprendre. :unsure:

 

[ERIC S]

re

Pat, pas grand mérite, formule trouvée sur le forum et

L'essayer c'est l'adopter

A+