Microsoft 365 Lien vers une feuille du classeur

Nathan027

XLDnaute Junior
Bonjour à toutes et à tous

J'aimerai savoir s'il est possible de créer un lien automatiquement vers une feuille d'un classeur.
Je m'explique j'ai une feuille qui s'intitule "TEST 1"
Quand j'écris dans une autre feuille le mot "TEST 1" je voudrais que directement ca mettent un lien vers la feuille "TEST 1"
Le mot "TEST 1" sera toujours dans la meme colonnes, et dans cette colonne il y aura d'autre mot qui auront chacun leur feuille attitrée.
J'ai mis un petit fichier exemple.
Merci de votre future aide

@ bientot :)
 

Pièces jointes

  • Test lien.xlsx
    11.7 KB · Affichages: 5
Solution
Bonjour Nathan,
Un essai en PJ avec cette macro dans Thisworkbook :
VB:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    For Each F In Worksheets
        If F.Name = Target Then Sheets(F.Name).Select
    Next F
Fin:
End Sub
Si dans n'importe quelle cellule du fichier on entre le nom d'une feuille on y a va directement.
Il est évident que si le nombre de feuilles est élevé cela risque d'impacter la fluidité.

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Nathan,
Un essai en PJ avec cette macro dans Thisworkbook :
VB:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    For Each F In Worksheets
        If F.Name = Target Then Sheets(F.Name).Select
    Next F
Fin:
End Sub
Si dans n'importe quelle cellule du fichier on entre le nom d'une feuille on y a va directement.
Il est évident que si le nombre de feuilles est élevé cela risque d'impacter la fluidité.
 

Pièces jointes

  • Test lien.xlsm
    17.3 KB · Affichages: 1

Nathan027

XLDnaute Junior
Bonjour Nathan,
Un essai en PJ avec cette macro dans Thisworkbook :
VB:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    For Each F In Worksheets
        If F.Name = Target Then Sheets(F.Name).Select
    Next F
Fin:
End Sub
Si dans n'importe quelle cellule du fichier on entre le nom d'une feuille on y a va directement.
Il est évident que si le nombre de feuilles est élevé cela risque d'impacter la fluidité.

Bonjour, j'ai mis quelques jours à répondre mais après l'avoir testé c'est NICKEL. Merci bcp :)
 

Discussions similaires

Statistiques des forums

Discussions
315 095
Messages
2 116 159
Membres
112 673
dernier inscrit
ìntellisoft