Création feuille de démarage

bonjour,

je travail sur le tableau ci dessous

https://www.excel-pratique.com/~files/doc/1KYStSuivi_Bon_de_Commande_2008.xls

j'aimerais créer une feuille ou je pourrais sélectionner directement la feuille fournisseur que je veux visualiser, au lieu d'avoir à chercher dans les onglets (j'ai une 100taine de fournisseur).

j'espère avoir bien expliquer mon souhait.

amicalement

Petu

Bonsoir,

Ton fichier en retour avec une feuille RECAP dans laquelle on crée les liens hypertextes (bouton Jaune) qui te permettront d'aller à la bonne feuille

Veille à laisser la cellule A1 vide dans chaque feuille de manière à ce que le lien hypertexte se crée là et puisse être utilisé pour retourner à la feuille Recap.

Fichier

Amicalement

Dan

Re,

Merci Dan, c'est parfait

amicalement,

Petu

Bonsoir,

Une autre solution possible avec un USF au démarrage en VBA pour avoir les liens dynamiquement si on ajoute des feuilles par la suite ou qu'on change les noms.

Bonjour

Pourquoi vouloir recréer ce qui existe déjà ?

jmd aurait pu intervenir pour dire qu'on pourraît rester simple et se contenter du clic droit sur la zone à gauche des noms d'onglets. Clic droit qui permet d'afficher la liste des onglets et donc de sélectionner l'onglet désiré.

Cordialement

Re,

Dsl Amadeus, j'avais plus ce truc en tête ... d'autant qu'ici avec 100 feuilles cela peut être plus pratique.

Bonne journée

Dan

Bonjour à tous,

Autre solution, adapter la macro Recap avec un tri alpha des feuilles pour faciliter la recherche du fournisseur

Sub lienRécap()
'sélection de la feuille Récap
Dim i As Worksheet
Dim f As String
Dim j As Byte
Dim n
Application.ScreenUpdating = False
  For n = 3 To Sheets.Count
     For j = n To Sheets.Count
        If UCase(Sheets(j).Name) < UCase(Sheets(n).Name) Then
          Sheets(n).Move before:=Sheets(j)
          Sheets(j).Move before:=Sheets(n)
        End If
     Next j
  Next n

  Sheets("Recap").Select
   Range("c3").Select
  For Each i In ActiveWorkbook.Sheets
    f = i.Name
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & f & "'" & "!A1", TextToDisplay:=f
    ActiveCell.Offset(1, 0).Select
  Next i
End Sub

Amicalement

Nad

Re,

désolé, j'avais pas vu qu'il y avait d'autres réponses.

j'essaye et vous informe.

amicalement

Petu

Bonsoir à tous,

Je ne connaissais pas la solution à Amadéus, (la + simple)

mais est-elle capable d'afficher 100 onglets ??

bonne soirée

Claude.

Bonsoir Claude

Preuve par l'exemple avec 1664 Feuilles:

https://www.excel-pratique.com/~files/doc/1664_Ne_se_boit_pas.zip

Cordialement