Liens hypertexte Création

[Kine]

Bonjour,
J'ai un classeur qui contient plusieurs feuilles numérotées correspondant à des fiches 160, 161, 162, ...) un tableau récap avec colonne 1 les mêmes numéros. L'objectif en cliquant sur feuille récap sur le numéro de créer un lien hypertexte qui va ouvrir sur la feuille dont le numéro est 160,161,162 ...
Exemple Feuille Récap Colonne 1 = 160
Création du lien hypertexte cellule contenant la valeur 160 qui va ouvrir sur la feuille dont le nom est 160.
Exemple de la macro :
Sub Macro1()

Selection.Hyperlinks.Delete
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Fiche166!A1"
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Font.Bold = True
With Selection.Font
.Name = "Arial"
.Size = 16
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleSingle
.ColorIndex = 5
End With
End Sub

Je veux remplacer "Fiche166!A1" par imputbox qui demandera le N° de la fiche que je récupère et je concatène avec Fiche&N (N=N° fiche)
Là j'ai des problèmes sur la synthaxe de subAddress
Merci pour votre aide
Kine

 

[kjin]

Re : Liens hypertexte Création

Bonsoir,
De ce que je comprends :
Dans le module de la feuille 1 (Recap), sur Double-Click sur une cellule contenant un numéro correspondant au nom d'une feuille, création du lien hypertexte nommé Fiche N° nom de la feuille

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 1 Or Target.Count > 1 Then Exit Sub
On Error Resume Next
    Num = Target
    Set Ws = ThisWorkbook.Sheets("" & Target & "")
        If Ws Is Nothing Then Exit Sub
        Target.Clear
        ActiveCell.Hyperlinks.Add Anchor:=ActiveCell, Address:="", SubAddress:= _
        "'" & Num & "'!A1", TextToDisplay:="Fiche N° " & Num
End Sub

A+
kjin

 

[Kine]

Re : Liens hypertexte Création

Bonjour,
Non je ne double clic pas.
J'ai une macro qui ajoute à une cellule (feuil1) un lien hypertexte qui ouvre la feuil ici "Fiche166!A1" du style :

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Fiche166!A1"

Je veux modifier SubAddress:="Fiche166!A1" par "FicheXXX!A1"

XXX étant le numéro de la fiche que l'on récupère par InputBox d'où la macro
Dim XXX
XXX= InputBox ("Entrer le Numéro de la fiche créée")
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Fiche&XXX!A1"

La macro en fonction de l'écriture de SubAddress ne crée pas de lien hypertexte de feuil1 vers feuil2. Je ne sais pas si cela vient de l'écriture du SubAddress ' ou " et où ?
Merci pour votre réponse
Kine

 

[kjin]

Re : Liens hypertexte Création

Bonjour,
Ci-joint le fichier explicatif reprenant exactement les propos de ton message.
Hormis la mise en forme que je n'ai pas appliqué, tu verras que cela correspond exactement à ta demande initiale.
En outre, j'ai fait le choix du Double-click dans la cellule pour créer le lien, pour éviter les saisies intempestives.
A+
kjin

 

[Kine]

Re : Liens hypertexte Création

Bonjour,

Merci pour l'écriture et le fichier. Cela correspond tout à fait à ce que je veux faire. Je vais pouvoir avancer dans mon développement.
A+
Kine