Lien hypertexte entre deux cellules via VBA
Bonjour à tous,
Cela fait maintenant quelques heures que j'essaye de créer un lien hypertexte entre deux cellules de deux onglets différents.
J'ai parcouru les forums, essayé différentes choses mais j'ai toujours soit une erreur, soit un lien de créé mais absolument pas fonctionnel (il pointe sur lui même visiblement ou en tous cas pas vers la cellule cible...)
Voici mon code à l'heure actuelle:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
Public Sub Liens()
Dim colonne as String
Dim i as Integer
Dim ligneBouton as Integer
colonne = "A"
i = 3
ligneBouton = 3
Sheets("Images points FAC").Hyperlinks.Add Anchor:=Sheets("Images points FAC").Range(colonne & i), Address:="", SubAddress:="Liste FAC!A" & ligneBouton
Sheets("Liste FAC").Hyperlinks.Add Anchor:=Sheets("Liste FAC").Range("A" & ligneBouton), Address:="", SubAddress:="Images points FAC!" & colonne & i
End Sub |
Pouvez-vous m'éclairer sur le problème?
Merci d'avance
Guillaume
