Bonjour à tous,

J'ai un pb avec mes codes pour créer des hyperlinks. C'est les subadresse qui affiche vide.

Ce que j'aimerais faire: j'ai 2 onglets (general info, actions) contenant chacun colonne en commun(A):

Je voudrais que quand on clique sur le cellule du action, ça renvoie à la ligne correspondant de l'onglet general info et vice versa. afin qu'on puisse naviguer dans ces 2 onglets.

Mais mes hyperlinks n'envoie nulle part. je crois que c'est subadresse qui est nul.

Je vous remercie par avance pour votre aide


Voici mes codes:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub hyperlink()
 
 
 
 
Dim i As Integer
 
 
 Dim LastRow As Long: Let LastRow = Sheets("actions").Range("A6500").End(xlUp).Row
 
 
For i = 8 To LastRow
    If Cells(i, "A").Value <> "" Then
        k = Sheets("actions").Cells(i, "A").Value
            C = Application.Match(k, Sheets("General info").Range("A:A"), 0)
 
            If IsError(C) Then
            Else
            Sheets("actions").Hyperlinks.Add Anchor:=Sheets("actions").Cells(i, "A"), _
                              Address:="", _
                              SubAddress:="'general info'!D & C", _
                              TextToDisplay:=k
 
                            MsgBox (C)
                            MsgBox (subadress)
 
        End If
 
   End If
Next i
End Sub