XL 2019 Accéder aux feuilles

chris

XLDnaute Barbatruc

• 17 Avril 2021

• #2

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 17 Avril 2021

• #3

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".

VB:

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

 

Pièces jointes

• KHEROUBI- Vers Feuille- v1.xlsm

  20 KB · Affichages: 23

Vote positif 0 Vote négatif

KHEROUBI

XLDnaute Junior

• 18 Avril 2021

• #4

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Avril 2021

• #5

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.

 

Vote positif 0 Vote négatif