Onglet Précédent

Bonjour à tous,

j'ai cherché partout sur le net, j'ai trouvé quelques trucs à ce sujet, mais je n'arrive à rien.

Et votre forum semble "aider réellement" les gens en difficulté.

Ce que je voudrai :

avoir un "truc", qui, en cliquant dessus me renvoie à l'onglet que je visitai précédement.

Quelque soit le nom de l'onglet.

J'ai trouvé ca :

Tu ecris cette fontion

Function feuille_1(adresse)

n = ActiveSheet.Index

feuille_1 = ThisWorkbook.Worksheets(n - 1).Range(adresse)

End Function

et du pose cette formule dans ta cellule.

Ici a2 de la feuille précédente.

=feuille_1("a2")

Mais je n'y comprends rien du tout.Je n'arrive à rien, je rame...

Merci d'avance.

Bonjour

Macro de Gorfael

Dans un module

Public F As String
Sub test()
If F <> "" Then Sheets(F).Activate
End Sub

Dans ThisWorkbook

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

Amicalement

Nad

Ho dude!! Je t'aime!!

(bon, ok c'est déplacé, mais le coeur y est)

je te remercie beaucoup!

J'ai une autre question :

Serait-il possible de faire ça sur plusieurs page? Comme avec un navigateur web?

(histoire de ne pas tourner en rond sur deux onglets...)

Merci d'avance

Bonjour

Là, je ne vois pas : X retour arrière ...

Mais peut-être que quelqu'un d'autre ...

Juste par curiosité : pourquoi vouloir ces retours arrière dans les feuilles ?

Amicalement

Nad

Bonjour

Par curiosité à voir

ok, bhen j'ai l'impression que ca le fait...

je colle (dans un module) :

Option Explicit
Public Interdit As Boolean

Sub Historique()
Dim Nom As String
Dim Tablo
Dim I As Integer

  Tablo = Split([histo], ",")
  For I = 0 To UBound(Tablo) - 1
    Nom = Nom & "," & Tablo(I)
  Next I
  Nom = Mid(Nom, 2)

  ActiveWorkbook.Names.Add Name:="Histo", RefersToR1C1:="=""" & Nom & """"
  If UBound(Tablo) >= 0 Then
    Interdit = True
    Sheets(Tablo(UBound(Tablo))).Select
    Interdit = False
  End If
End Sub

et dans le workbook :

Private Sub Workbook_Open()
  ActiveWorkbook.Names.Add Name:="Histo", RefersToR1C1:="="""""
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
  If Interdit = True Then Exit Sub
  Nom = [histo]
  If Len(Nom) = 0 Then
    Nom = Sh.Name
  Else
    Nom = Nom & "," & Sh.Name
  End If
  ActiveWorkbook.Names.Add Name:="Histo", RefersToR1C1:="=""" & Nom & """"
End Sub

et c'est sencé marcher, c'est ca?

J'en ai besoin pour un projet qui demande beaucoup de navigation entre onglets grâce à des liens hypertextes. Mais en cas d'erreur ou "de plongé" trop profonde dans une arborescence, il faut pouvoir faire demi tour.

Et heu, à ce sujet, c'est possible de faire un bouton "Suviant"? Toujours comme si c'était un navigateur web?

Merci encore les gens du forum

Bonjour

et c'est sencé marcher, c'est ca?

Non , c'est juste pour faire le café

ha ha ha

et serait'il possible de "reconstituer" les grains de café?

Avec la création d'un bouton page suivante?

Merci d'avance

-- 17 Fév 2011, 13:57 --

Yop,

En fait, ca ne fonctionne pas. Quand je me promène d'onglets en onglets lors de la navigation, il me sort rapidement une erreur 1004.

avec un soucis ici : ActiveWorkbook.Names.Add Name:="Histo", RefersToR1C1:="=""" & Nom & """"

dans le workbook.

Si tu sais pourquoi, je suis preneur.

Merci