Retour feuil précédente

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 15 Juillet 2009

• #2

Re : Retour feuil précédente

Bonjour,

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

Code:

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

 

Vote positif 0 Vote négatif

M

marcelio

XLDnaute Occasionnel

• 15 Juillet 2009

• #3

Re : Retour feuil précédente

Bonsoir BOISGONTIER et le forum

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

Merci

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 15 Juillet 2009

• #4

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

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 15 Juillet 2009

• #5

Re : Retour feuil précédente

Voir PJ

Code:

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

 

Pièces jointes

• Copie de Retour Feuil précédente.zip

  13.9 KB · Affichages: 22

Dernière édition: 15 Juillet 2009

Vote positif 0 Vote négatif

M

marcelio

XLDnaute Occasionnel

• 15 Juillet 2009

• #6

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

 

Vote positif 0 Vote négatif