Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Lien vers feuille suivant ou precedent

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion maval
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

maval

XLDnaute Barbatruc
Bonjour,

J’ai 35 feuilles sur mon classeur et j’aimerais avoir un lien à chaque feuille pour me rendre à la feuille suivante ou précédente !
Pour me rendre à la feuille "accueil" je mets ce code qui m’ajoute à chaque feuille en "A1" un lien vers la feuille d’accueil qui fonctionne très bien.
Code: 
' Créer liens vers feuil d'accueil
Sub CreationLiens()
Dim I As Integer

  For I = 2 To Sheets.Count
    Sheets(I).Hyperlinks.Add Anchor:=Sheets(I).Range("A1"), Address:="", _
          SubAddress:="'" & Sheets(1).Name & "'!A1", TextToDisplay:="Retour"
  Next I
End Sub

Est-il possible d’avoir un code similaire de façon qui m’ajoute à chaque feuille un lien vers la feuille suivante ou précédente.

Je vous remercie de votre aide.

[
 
Trier par date Trier par votes
Re : Lien vers feuille suivant ou precedent

Bonjour Maval , jb, le forum
Code: 
Sub CreationLiens2()
    Dim i&
    For i = 1 To Sheets.Count
        If i < Sheets.Count Then Sheets(i).Hyperlinks.Add Anchor:=Sheets(i).Range("B1"), Address:="", _
                                 SubAddress:="'" & Sheets(i + 1).Name & "'!B1", TextToDisplay:="Suivante"
        If i > 1 Then Sheets(i).Hyperlinks.Add Anchor:=Sheets(i).Range("C1"), Address:="", _
                                 SubAddress:="'" & Sheets(i - 1).Name & "'!C1", TextToDisplay:="Précédente"
    Next i
End Sub
a+
Papou😱
 
Vote positif 0 Vote négatif
Re : Lien vers feuille suivant ou precedent

Bonjour Papou,

Je te remercie beaucoup. Nickel

J'ai assembler les deux code en faisant ceci:

Code: 
' Créer liens vers feuil d'acceuil
Sub CreationLiens()
Dim i As Integer

  For i = 2 To Sheets.Count
    Sheets(i).Hyperlinks.Add Anchor:=Sheets(i).Range("A1"), Address:="", _
          SubAddress:="'" & Sheets(1).Name & "'!A1", TextToDisplay:="Retour"

  Next i
'Créer un lien Suivant et Précedent
     For i = 1 To Sheets.Count
         If i < Sheets.Count Then Sheets(i).Hyperlinks.Add Anchor:=Sheets(i).Range("B1"), Address:="", _
                                  SubAddress:="'" & Sheets(i + 1).Name & "'!B1", TextToDisplay:="Suivante"
         If i > 1 Then Sheets(i).Hyperlinks.Add Anchor:=Sheets(i).Range("C1"), Address:="", _
                                  SubAddress:="'" & Sheets(i - 1).Name & "'!C1", TextToDisplay:="Précédente"
     Next i

End Sub

Je te souhaite une bonne journée et à la prochaine merci encore
 
Vote positif 0 Vote négatif
Re : Lien vers feuille suivant ou precedent

Sommaire dynamique + suivant/précédent

Les noms des feuilles peuvent être modifiés.
Les feuilles peuvent être ajoutées/supprimées/déplacées.

Code: 
Private Sub Worksheet_Activate()
    [C5:C100].ClearContents
    For i = 2 To Sheets.Count
      nf = Sheets(i).Name
      ActiveSheet.Hyperlinks.Add Anchor:=Cells(i + 6, 3), Address:="", SubAddress:="'" & _
         nf & "'" & "!A1", TextToDisplay:=nf
    Next i
    [C5:C100].Sort Key1:=Range("C5"), Order1:=xlAscending, Header:=xlGuess
End Sub

Suivant/Précédent+Retour sommaire


Code: 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   If ActiveSheet.Index > 1 Then
    ActiveSheet.Hyperlinks.Add Anchor:=Cells(1, 1), Address:="", SubAddress:="'" & _
         Sheets(1).Name & "'" & "!A1", TextToDisplay:=Sheets(1).Name
    ActiveSheet.Hyperlinks.Add Anchor:=Cells(1, 2), Address:="", SubAddress:="'" & _
      Sheets(ActiveSheet.Index - 1).Name & "'" & "!A1", TextToDisplay:="<"
   End If
   If ActiveSheet.Index < Sheets.Count Then
    ActiveSheet.Hyperlinks.Add Anchor:=Cells(1, 3), Address:="", SubAddress:="'" & _
      Sheets(ActiveSheet.Index + 1).Name & "'" & "!A1", TextToDisplay:=">"
   End If
End Sub

JB
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
974
tnion
T
T
  • Résolu(e)
XL 2016 macro et feuille protégé
2
Réponses
18
Affichages
1 K
laurent950
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
762
jeff1494
C
  • Résolu(e)
Microsoft 365 Amélioration Macro.
Réponses
7
Affichages
703
crazy
C
O
  • Résolu(e)
Microsoft 365 Lien hypertexte
2
Réponses
21
Affichages
2 K
job75
L
  • Résolu(e)
XL 2016 Lien hypertexte VBA
Réponses
1
Affichages
1 K
Louu59
L
XLS : Créer une animation fluide sans Crash (ou presque) !
Réponses
7
Affichages
1 K
Lu76Fer
C
  • Résolu(e)
Microsoft 365 créer un lien vers un onglet créé
Réponses
4
Affichages
1 K
cecenico
C
D
  • Question Question
Microsoft 365 Modification d'un code VBA
Réponses
8
Affichages
1 K
Hasco
C
  • Question Question
XL 2016 Excel (sommaire + tri des feuilles ) erreur dans mon VBA
Réponses
1
Affichages
1 K
Cattleya97
C
C
  • Question Question
XL 2019 VBA - Arrêter une macro synthèse si les lignes générées se répètent X nombre de fois
Réponses
1
Affichages
929
FlamXYZ
F
  • Résolu(e)
XL 2013 Déclenchement d'évènement sur HyperLinks (Via un Module de Classe personnalisé)
Réponses
5
Affichages
1 K
laurent950
H
  • Résolu(e)
XL 2013 Des onglets cachés
Réponses
10
Affichages
2 K
TooFatBoy
  • Question Question
Importer les données d'un fichier vers une feuille
Réponses
1
Affichages
865
anasimo
F
  • Question Question
Recherche selon le nom de l'onglet
Réponses
2
Affichages
651
fmoore
F
K
  • Question Question
Microsoft 365 code vba : comment contourner mon msg d'erreur 1004 nom de feuille existant
Réponses
8
Affichages
1 K
kuistau
K
Z
  • Question Question
XL 2013 Rechercher dans un classeur et coper la valeur trouvée sur une feuille dans le même classeur
Réponses
8
Affichages
1 K
zzZ
Z
K
  • Question Question
affecter un lien hypertexte à un bouton sur une feuille : vba excel
Réponses
1
Affichages
3 K
kuistau
K
  • Question Question
lien vers page suivante et précédente
Réponses
8
Affichages
993
maval
M
  • Question Question
Microsoft 365 Pb macro mise a jour
Réponses
3
Affichages
1 K
monarc
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…