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

K

kjin

XLDnaute Barbatruc

• 8 Octobre 2011

• #2

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 8 Octobre 2011

• #3

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.

 

Dernière édition: 8 Octobre 2011

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 8 Octobre 2011

• #4

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

 

Dernière édition: 8 Octobre 2011

Vote positif 0 Vote négatif

P

perdinch

XLDnaute Occasionnel

• 8 Octobre 2011

• #5

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 8 Octobre 2011

• #6

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

Ce serait plutôt:
Private Sub Worksheet_Activate()

Cliquez pour agrandir...

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 8 Octobre 2011

• #7

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

Re le Fil

As tu au moins essayé le lien proposé

Dull à dit:

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

Cliquez pour agrandir...

etpourtantj'aipasmangédecamembert

Bonne Journée

 

Vote positif 0 Vote négatif

P

perdinch

XLDnaute Occasionnel

• 8 Octobre 2011

• #8

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

voici un fichier exemple

cordialement

perdinch

 

Pièces jointes

• Classeur1.xls

  29 KB · Affichages: 53
• Classeur1.xls

  29 KB · Affichages: 59
• Classeur1.xls

  29 KB · Affichages: 68

Vote positif 0 Vote négatif

P

perdinch

XLDnaute Occasionnel

• 8 Octobre 2011

• #9

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

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 8 Octobre 2011

• #10

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

perdinch à dit:

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

Je vais essayer de l'adapter .

MERCI

Cliquez pour agrandir...

Ah....quandmême

Bonne Journée

 

Pièces jointes

• perdinch.xls

  36 KB · Affichages: 58
• perdinch.xls

  36 KB · Affichages: 65
• perdinch.xls

  36 KB · Affichages: 68

Dernière édition: 8 Octobre 2011

Vote positif 0 Vote négatif

P

perdinch

XLDnaute Occasionnel

• 8 Octobre 2011

• #11

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

Merci à DULL ca marche!

cordialement

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 8 Octobre 2011

• #12

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

Re Re re le fil

perdinch à dit:

Merci à DULL ca marche!

cordialement

Cliquez pour agrandir...

Non! Merci à Robert

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 8 Octobre 2011

• #13

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

Sinon dans ThisWorkbook:

VB:

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):

VB:

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.

À+

 

Dernière édition: 8 Octobre 2011

Vote positif 0 Vote négatif