Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Navigation A/R dans un classeur

Navigation A/R dans un classeur

7 réponses
Avatar
michir
Bonjour =E0 tous,
Voil=E0, j'ai un classeur de 20 feuilles identiques et une feuille de
"Nomenclature"
Un lien hypertexte permet d'aller directement d'une feuille =E0 le
"Nomenclature"
Je souhaiterais faire une macro qui me ram=E8ne =E0 la feuille de d=E9part
Merci pour votre aide
Michel
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
DanielCo
michir a formulé ce jeudi :
Bonjour à tous,
Voilà, j'ai un classeur de 20 feuilles identiques et une feuille de
"Nomenclature"
Un lien hypertexte permet d'aller directement d'une feuille à le
"Nomenclature"
Je souhaiterais faire une macro qui me ramène à la feuille de départ
Merci pour votre aide
Michel



Dans un module standard, mets :
Public Res As String
Sub Retour()
Sheets(Res).Select
End Sub

retour étant la macro à exécuter.
Dans ThiWorkbook, mets :

Private Sub Workbook_Open()
Res = Sh.Name
End Sub

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

Cordialement.
Daniel
Avatar
LSteph
Bonjour,

donc pour aller vite retour par doubleclick par exemple, mets ceci
dans le code du classeur:


'dans module1
Public mySh As String

'dans le Thisworkbook
Private Sub Workbook_Open()
mySh = ActiveSheet.Name
End Sub

Private Sub Workbook_SheetBeforeDoubleClick( _
ByVal Sh As Object, ByVal Target As Range, _
Cancel As Boolean)
cancel=true
Sheets(mySh).Activate
End Sub

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

'LSteph

michir a écrit :
Bonjour à tous,
Voilà, j'ai un classeur de 20 feuilles identiques et une feuille de
"Nomenclature"
Un lien hypertexte permet d'aller directement d'une feuille à le
"Nomenclature"
Je souhaiterais faire une macro qui me ramène à la feuille de dépar t
Merci pour votre aide
Michel
Avatar
LSteph
Salut Daniel

activesheet plutot que sh dans l' Open

non?

DanielCo a écrit :
michir a formulￜ ce jeudi :
> Bonjour ￜ tous,
> Voilￜ, j'ai un classeur de 20 feuilles identiques et une feuill e de
> "Nomenclature"
> Un lien hypertexte permet d'aller directement d'une feuille ￜ l e
> "Nomenclature"
> Je souhaiterais faire une macro qui me ramￜne ￜ la feui lle de dￜpart
> Merci pour votre aide
> Michel

Dans un module standard, mets :
Public Res As String
Sub Retour()
Sheets(Res).Select
End Sub

retour ￜtant la macro ￜ exￜcuter.
Dans ThiWorkbook, mets :

Private Sub Workbook_Open()
Res = Sh.Name
End Sub

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

Cordialement.
Daniel
Avatar
michir
On 10 fév, 11:00, LSteph wrote:
Salut Daniel

activesheet plutot que sh dans l' Open

non?

DanielCo a écrit :







> michir a formulￜ ce jeudi :
> > Bonjour ￜ tous,
> > Voilￜ, j'ai un classeur de 20 feuilles identiques et une feui lle de
> > "Nomenclature"
> > Un lien hypertexte permet d'aller directement d'une feuille ￜ le
> > "Nomenclature"
> > Je souhaiterais faire une macro qui me ramￜne ￜ la fe uille de dￜpart
> > Merci pour votre aide
> > Michel

> Dans un module standard, mets :
> Public Res As String
> Sub Retour()
> Sheets(Res).Select
> End Sub

> retour ￜtant la macro ￜ exￜcuter.
> Dans ThiWorkbook, mets :

> Private Sub Workbook_Open()
>     Res = Sh.Name
> End Sub

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

> Cordialement.
> Daniel



Merci à vous deux Daniel et Steph, cela fonctionne super bien,
Michel
Avatar
michir
On 10 fév, 12:40, michir wrote:
On 10 fév, 11:00, LSteph wrote:









> Salut Daniel

> activesheet plutot que sh dans l' Open

> non?

> DanielCo a écrit :

> > michir a formulￜ ce jeudi :
> > > Bonjour ￜ tous,
> > > Voilￜ, j'ai un classeur de 20 feuilles identiques et une fe uille de
> > > "Nomenclature"
> > > Un lien hypertexte permet d'aller directement d'une feuille ï¿ œ le
> > > "Nomenclature"
> > > Je souhaiterais faire une macro qui me ramￜne ￜ la feuille de dￜpart
> > > Merci pour votre aide
> > > Michel

> > Dans un module standard, mets :
> > Public Res As String
> > Sub Retour()
> > Sheets(Res).Select
> > End Sub

> > retour ￜtant la macro ￜ exￜcuter.
> > Dans ThiWorkbook, mets :

> > Private Sub Workbook_Open()
> >     Res = Sh.Name
> > End Sub

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

> > Cordialement.
> > Daniel

Merci à vous deux Daniel et Steph, cela fonctionne super bien,
Michel



Oui...enfin après la correction proposée par Daniel, sinon à la
réouverture cela bogue..
Merci encore à vous deux
Michel
Avatar
DanielCo
Bonjour,
Tout juste.
Daniel


Salut Daniel

activesheet plutot que sh dans l' Open

non?

DanielCo a écrit :
michir a formul� ce jeudi :
Bonjour � tous,
Voil�, j'ai un classeur de 20 feuilles identiques et une feuille de
"Nomenclature"
Un lien hypertexte permet d'aller directement d'une feuille � le
"Nomenclature"
Je souhaiterais faire une macro qui me ram�ne � la feuille de d�part
Merci pour votre aide
Michel



Dans un module standard, mets :
Public Res As String
Sub Retour()
Sheets(Res).Select
End Sub

retour �tant la macro � ex�cuter.
Dans ThiWorkbook, mets :

Private Sub Workbook_Open()
Res = Sh.Name
End Sub

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

Cordialement.
Daniel
Avatar
LSteph
...ou l'inverse plutôt ;o))


LSteph


"michir" a écrit dans le message de
news:
On 10 fév, 12:40, michir wrote:
On 10 fév, 11:00, LSteph wrote:









> Salut Daniel

> activesheet plutot que sh dans l' Open

> non?

> DanielCo a écrit :

> > michir a formulￜ ce jeudi :
> > > Bonjour ￜ tous,
> > > Voilￜ, j'ai un classeur de 20 feuilles identiques et une feuille
> > > de
> > > "Nomenclature"
> > > Un lien hypertexte permet d'aller directement d'une feuille ￜ le
> > > "Nomenclature"
> > > Je souhaiterais faire une macro qui me ramￜne ￜ la feuille de
> > > dï¿œpart
> > > Merci pour votre aide
> > > Michel

> > Dans un module standard, mets :
> > Public Res As String
> > Sub Retour()
> > Sheets(Res).Select
> > End Sub

> > retour ￜtant la macro ￜ exￜcuter.
> > Dans ThiWorkbook, mets :

> > Private Sub Workbook_Open()
> > Res = Sh.Name
> > End Sub

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

> > Cordialement.
> > Daniel

Merci à vous deux Daniel et Steph, cela fonctionne super bien,
Michel



Oui...enfin après la correction proposée par Daniel, sinon à la
réouverture cela bogue..
Merci encore à vous deux
Michel