automatiser la création d'un lien hypertexte lors d'un évenement

[perdinch]

Bonjour,

Je souhaite créer un lien hypertexte automatiser lorsque l’évènement suivant se produit:

Dans un classeur composé d'un multitude d'onglets dont un est nommé "résultatsl", je souhaite que lorsque je sélectionne cet onglet "résultats" un lien hypertexte soit créer dans la cellule "Z1" par exemple me permettant de retourner à l'onglet d'ou je viens.

exemple: je suis dans un onglet "Feuill10" puis je clic sur l'onglet "résultats " , alors dans la cellule "z1" de l'onglet "résultats" un lien hypertexte est automatiquement créé qui me permet de retourner à l'onglet"Feuill10"

merci de vos propositions

perdinch

 

[kjin]

Re : automatiser la création d'un lien hypertexte lors d'un évenement

Bonjour,
Il existe un événement "Private Sub Workbook_NewSheet", pourquoi t'en passer ?
A+
kjin

 

[Dranreb]

Re : automatiser la création d'un lien hypertexte lors d'un évenement

Bonjour.
Demandeurs, fournissez donc des fichiers joints, qu'on ait un support pour développer et tester les solutions qu'on vous propose !
Pour moi ça passe par une Workbook_SheetActivate dans ThisWorkbook qui note par un Set la feuille dans une variable Public As Worksheet si Sh.Name <> "Résultat", et dans la feuille Résultat une Worksheet_SelectionChange qui en fait un Activate quand Target.Address = "$Z$1"
Cordialement.

 

[Dull]

Re : automatiser la création d'un lien hypertexte lors d'un évenement

Salut perdinch, kjin , le Forum

Peux tu essayer le fichier de Robert Ici qui répond en tout point à ton problème
EDITION: Salut Dranreb

Bonne Journée

 

[perdinch]

Re : automatiser la création d'un lien hypertexte lors d'un évenement

Re-bonjour,

Ce serait plutôt:
Private Sub Worksheet_Activate()

mais comment garder en mémoire l'onglet de départ

cordialement,

perdinch

 

[Dranreb]

Re : automatiser la création d'un lien hypertexte lors d'un évenement

Ce serait plutôt:
Private Sub Worksheet_Activate()

Non !
Sauf à devoir le mettre dans toutes les feuilles dans lesquelle vous voulez pouvoir revenir

mais comment garder en mémoire l'onglet de départ

Ça je vous l'ai dit.
Si vous ne savez l'appliquer JOINGEZ UN FICHIER !

 

[Dull]

Re : automatiser la création d'un lien hypertexte lors d'un évenement

Re le Fil

As tu au moins essayé le lien proposé

...
Peux tu essayer le fichier de Robert Ici qui répond en tout point à ton problème ...

etpourtantj'aipasmangédecamembert

Bonne Journée

 

[perdinch]

Re : automatiser la création d'un lien hypertexte lors d'un évenement

voici un fichier exemple

cordialement

perdinch

 

[perdinch]

Re : automatiser la création d'un lien hypertexte lors d'un évenement

Merci DULL effectivement il y un fichier qui correspond à mon problème.

Je vais essayer de l'adapter .

MERCI

 

[Dull]

Re : automatiser la création d'un lien hypertexte lors d'un évenement

Re re le fil

Ton Fichier en retour

je n'ai RIEN eu à changer dans le code proposé par Robert

Merci DULL effectivement il y un fichier qui correspond à mon problème.

Je vais essayer de l'adapter .

MERCI

Ah....quandmême

Bonne Journée

 

[perdinch]

Re : automatiser la création d'un lien hypertexte lors d'un évenement

Merci à DULL ca marche!

cordialement

 

[Dull]

Re : automatiser la création d'un lien hypertexte lors d'un évenement

Re Re re le fil

Merci à DULL ca marche!

cordialement

Non! Merci à Robert

 

[Dranreb]

Re : automatiser la création d'un lien hypertexte lors d'un évenement

Sinon dans ThisWorkbook:

Public DernFeui As Object
'
Private Sub Workbook_Open()
Workbook_SheetActivate ActiveSheet
End Sub
'
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name <> Feuil1.Name Then Set DernFeui = Sh: Feuil1.[Z1].Value = "Retour à """ & Sh.Name & """"
End Sub

Et dans Feuil1 (Résultats):

Option Explicit
'
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$Z$1" Then ThisWorkbook.DernFeui.Activate
End Sub

P.S. avec cette différence que sans aucun lien hypertexte, on revient à la cellule précédemment sélectionnée dans la feuille.

À+