naviger sue excel

Bonjour,

Ecrire dans un module standard

Public feuille as worksheet

Puis dans le module Thisworkbook écrire

Private Sub Workbook_Open()

set feuille¬tivesheet

End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

'on suppose ici que le codename de ta feuille principale
's'appelle Principal, si ce n'est pas le cas changer
'le nom

if sh.codename<>"Principal" then set feuille=sh

End Sub

Ensuite, dans la macro du bouton p.e appelée ici

Private Sub CommandButton1_Click()

feuille.activate

End Sub

A+

Bonjour ,
j'ai créé un fichier avec plusieurs pages dont une page principale.
Sur chaque page, j'ai un bouton qui me permet d'aller à la page principale.
J'ai créé un bouton sur la page principale avec lequel je veux revenir sur
la page précédemment consulté.
Pouvez-vous m'aider à construire cette macro ?
merci

Bonjour,

http://cjoint.com/?cltFAKgYK8

Dans un module:

Public revient
Sub essai()
If revient <> "" Then Sheets(revient).Activate
End Sub

Dans ThisWorkBook:

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
revient = Sh.Name
End Sub

Cordialement JB

Solution Hyper-lien: http://cjoint.com/?cmeyPkeS2s

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Sheets(1).Hyperlinks.Add Anchor:=Sheets(1).[G1], Address:="", _
SubAddress:="'" & Sh.Name & "'" & "!A1", TextToDisplay:="Retour:" &
Sh.Name

JB