Revenir sur feuille quitter

3 réponses

Tibert

26/12/2006 à 21:51

Bonjour ;
J’ai un classeur de plusieurs feuilles en l’utilisant je navigue pas mal
entre les feuilles, mais en général je reviens surtout sur la feuille que je
viens de quitter, peut on faire une macro qui me permettrais de revenir sur
la feuille que je viens de quitter.
Salutations

3 réponses

MichDenis

26/12/2006 à 22:24

Après avoir copié ce qui suit, ferme ton fichier
et à la réouverture, tu auras comme raccourci
dans ce classeur les touches Ctrl + m pour effectuer
le boulot que tu désires

'Déclaration le haut d'un module standard de la variable Feuille
Public Feuille As String
'---------------------------
Sub FeuillePrecedente()

If Feuille <> "" Then
Sheets(Feuille).Select
End If
End Sub
'---------------------------

Et dans le ThisWorkbook de ton classeur :
'----------------------
Private Sub Workbook_Activate()
Application.OnKey "^m", "FeuillePrecedente"
End Sub
'----------------------
Private Sub Workbook_Deactivate()
Application.OnKey "^m", ""
End Sub
'----------------------
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Feuille = Sh.Name
End Sub
'----------------------

"Tibert" a écrit dans le message de news:

Bonjour ;
J'ai un classeur de plusieurs feuilles en l'utilisant je navigue pas mal
entre les feuilles, mais en général je reviens surtout sur la feuille que je
viens de quitter, peut on faire une macro qui me permettrais de revenir sur
la feuille que je viens de quitter.
Salutations

26/12/2006 à 22:37

Bonsoir,

Génère un hyper-lien dans la cellule A1:

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

http://cjoint.com/?mAwLaxvbDV

JB

Bonjour ;
J'ai un classeur de plusieurs feuilles en l'utilisant je navigue pas mal
entre les feuilles, mais en général je reviens surtout sur la feuille que je
viens de quitter, peut on faire une macro qui me permettrais de revenir s ur
la feuille que je viens de quitter.
Salutations

Tibert

27/12/2006 à 00:13

Ok merci beaucoup c'est exactement se sysytème que je voulais ce qui me fait
gagner beaucoup de temps dans mon tableau.
Bonne fête ! ! !

Après avoir copié ce qui suit, ferme ton fichier
et à la réouverture, tu auras comme raccourci
dans ce classeur les touches Ctrl + m pour effectuer
le boulot que tu désires

'Déclaration le haut d'un module standard de la variable Feuille
Public Feuille As String
'---------------------------
Sub FeuillePrecedente()

If Feuille <> "" Then
Sheets(Feuille).Select
End If
End Sub
'---------------------------

Et dans le ThisWorkbook de ton classeur :
'----------------------
Private Sub Workbook_Activate()
Application.OnKey "^m", "FeuillePrecedente"
End Sub
'----------------------
Private Sub Workbook_Deactivate()
Application.OnKey "^m", ""
End Sub
'----------------------
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Feuille = Sh.Name
End Sub
'----------------------

"Tibert" a écrit dans le message de news:

Bonjour ;
J'ai un classeur de plusieurs feuilles en l'utilisant je navigue pas mal
entre les feuilles, mais en général je reviens surtout sur la feuille que je
viens de quitter, peut on faire une macro qui me permettrais de revenir sur
la feuille que je viens de quitter.
Salutations

Revenir sur feuille quitter

3 réponses

Veuillez sélectionner un problème