XL 2021 Créer un lien hypertexte vers un onglet avec nom d'onglet variable

[Julieneymery]

Bonjour,

Je souhaite créer un classeur bon de commande
Su l'onglet "Tableau de Bord"
En appuyant sur le bouton "Nouveau bon", un nouveau bon ce crée, le numéro de bon s'ajoute à la dernière ligne du tableau dans la colonne "Numero_BC"
Jusque là j'y suis arrivé
Je voudrais que le numéro généré dans le tableau devienne un lien vers l'onglet.
J'ai vue plusieurs post sur le sujet mais je n'arrive pas à adapter les codes à ce cas de figure

Si quelqu'un a une solution...

Merci pour votre aide toujours précieuse

 

[Phil69970]

Bonjour @Julieneymery

Dans ce fil il y a une demande identique à la tienne. (Tu adaptes le nom du TS )

XL 2019 - Copier et renommer (en même temps) des feuilles à partir d'une liste de noms dans un colonne

Bonjour, Je cherche à aider un copain prof d'EPS qui a créé un classeur Excel pour des élèves en escalade. A partir d'une première feuille comprenant la liste des élèves, il s'agit de créer une feuille par élève. Chaque feuille est la copie de la feuille "exemple". Ca j'ai réussi avec le code...

excel-downloads.com

Remarque :
==> 3 Tableaux structurés pour gérer juste le N° de bon c'est un peu beaucoup non ? 😵
Il y a plus simple il me semble ..... 😉

 

[Julieneymery]

Bonjour Phil,

Merci pour votre réponsse, j'ai essayé d'adapter le code sans succé, voici la réponsse d'excel:

Avez vous une piste sur cette erreur ?
Bien cordialement

 

[Phil69970]

@Julieneymery

Je te propose ce fichier

Remarques :
1) Je te laisses supprimer la feuille "Z" et le module1 qui sont inutiles dans cette version
2) Je suis parti sur le principe que tu n'as jamais plus de 100 bons de commande par mois si tu en as plus je modifierais le code (Si plus indique moi le volume max)

3) 100 bons de commande ==> 100 feuilles c'est vite ingérable et indigeste !!!! 😵 🤔
Perso, ma logique serait de stocker juste dans une feuille archive les bons de commande dans une BDD et quand tu en as besoin d'aller chercher le bon de commande X (archivé) qui se trouve dans la BDD (ta feuille archive) et de le visualiser uniquement à ce moment là.

4) Je gère le N° du bon de commande avec juste 1 cellule ..... 😉
Le bon de commande à ce format
==> C2024-01-01
==> Le C de bon de Commande
==> 2024 ==> l’année en cours (calcul automatique change chaque année)
==> 01 ==> le mois en cours (calcul automatique change chaque mois)
==> 01 à 100 ==> le N° d'incrémentation (calcul automatique revient à 01 chaque mois)
Pourquoi le C car si tu fait des devis tu peux voir facilement la liste des devis, factures ou bon de commande.
D ==> devis
F ==> facture
etc .....

Merci de ton retour

 

[job75]

Bonjour Julieneymery, Phil69970, le forum,

Voyez le fichier joint et cette macro :

Sub Nouveau_Bon()
Dim x$, c As Range
x = Format(Date, "yyyymm")
If IsError([Nom]) Then
    ThisWorkbook.Names.Add "Nom", x & "001" 'nom défini
Else
    If x = Left([Nom], 6) Then
        ThisWorkbook.Names.Add "Nom", x & Format(Right([Nom], 3) + 1, "000")
    Else
        ThisWorkbook.Names.Add "Nom", x & "001"
    End If
End If
Application.ScreenUpdating = False
With Sheets("Base")
    .[C8] = [Nom]
    .Copy After:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = [Nom] 'renomme la feuille
    With [T_Num_Bc] 'tableau structuré
        Set c = IIf(.Cells(1) = "", .Cells(1), .Cells(.Rows.Count + 1, 1))
    End With
    c = [Nom]
    c(1, 2) = Application.Max(.[J:J]) 'TOTAL
End With
c.Parent.Hyperlinks.Add c, "", c & "!A1", TextToDisplay:=c.Text 'lien hypertexte
Sheets("Tableau de bord").Activate
End Sub

Avec le nom défini Nom il n'y a plus besoin de la feuille "z".

A+

 

[Julieneymery]

Bonjour,

Merci à tous pour vos réponse qui m'aide beaucoup
En effet Phil, la construction avec BDD est bien mieux, je manque de connaissance en VBA pour élaborer des architectures à ce niveau
Bien à vous
Julien