XL 2019 Accéder aux feuilles

[KHEROUBI]

Bonjour,
Qui peut m'aider sur cette exemple :
J'ai une feuille "Suivi" qui englobe tous les noms des fournisseurs et chaque fournisseur à une feuille séparer.
Je cherche une méthode à partir de la feuille "Suivi" accéder au feuilles des fournisseurs.
J'espère que j'étais clair
Merci de vos aides

 

[chris]

Bonjour

Crée un lien hypertexte pour chaque fournisseur :
clic droit sur le nom du fournisseur, Lien, Emplacement dans ce document, sélectionner la feuille correspondante

 

[mapomme]

Bonsoir à tous,

Avec une petite macro dans le module de la feuille "Suivi". Sélectionner une cellule de la colonne 1 du tableau de la feuille "Suivi".

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Count = 1 Then
      If Not Intersect(Me.ListObjects(1).ListColumns(1).Range, Target) Is Nothing Then
         On Error Resume Next
         Sheets(Target.Value).Select
      End If
   End If
End Sub

 

[KHEROUBI]

Bonjour,
chris et mapomme merci pour vos contribution c'est bien ce que je cherché.

 

[job75]

Bonsoir KHEROUBI, chris, mapomme,

Ne pas écrire Sheets(Target.Value).Select mais plutôt Sheets(Target.Text).Select

pour le cas où Target serait un nombre comme 1 ou 2 ou 3.

Bonne nuit.