Retour feuil précédente

[marcelio]

Bonsoir,

J'ai chercher sur le forum mais je n'est pas trouver une solution à mon problème
J'aimerais retourner à la feuil que je vient de quitter
Je vous joint un fichier pour plus d'explication
merci de votre aide

Marcelio

 

[BOISGONTIER]

Re : Retour feuil précédente

Bonjour,

Ce code génère un hyper-lien en H9 dans la première feuille.

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
 Sheets(1).Hyperlinks.Add Anchor:=Sheets(1).[H9], Address:="", _
    SubAddress:="'" & Sh.Name & "'" & "!A1", TextToDisplay:="Dernière visite:" & Sh.Name
End Sub

http://boisgontierjacques.free.fr/fichiers/jb-worksheetchange.zip

JB

 

[marcelio]

Re : Retour feuil précédente

Bonsoir BOISGONTIER et le forum

Un peu plus d'explication m'aiderais car la je plane

Merci

 

[youky(BJ)]

Re : Retour feuil précédente

Bonsoir à vous,
Une autre façon...
en haut du module1 mets en 1ere ligne
Public onglet

et sous les boutons (sauf à Tous)
Private Sub CommandButton1_Click()
onglet = ActiveSheet.Name
Sheets("tous").Select
End Sub

pour le bouton de Tous
Private Sub CommandButton1_Click()
Sheets(onglet).Select
End Sub

 

[BOISGONTIER]

Re : Retour feuil précédente

Voir PJ

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
 Sheets("tous").Hyperlinks.Add Anchor:=Sheets("tous").[H9], Address:="", _
    SubAddress:="'" & Sh.Name & "'" & "!A1", TextToDisplay:="Dernière visite:" & Sh.Name
End Sub

JB

 

[marcelio]

Re : Retour feuil précédente

Merci BOISGONTIER et youky(BJ)

je vous remercie de votre aide

je vais opter pour la méthode de youky(BJ) qui me semble le mieux adapter à mon problème

Bonne soirée à vous 2 et au forum

Marcelio