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:
End Sub
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
Partager