Discussion :

[dieurouille]

Bonjour à tous !

Comment naviguer dans un SEUL classeur excel à l'aide de liens hypertexte en utilisant une macro ?

Exemple :

Sur la FEUIL1 j'ai un lien hypertexte placé en A1 qui (par exemple) pointe sur la cellule B2 de la feuil2.
A l'aide d'une macro j'aimerais modifier la valeur contenue dans la cellule qui est pointée par cet hyperlien ...

Merci d'avance pour votre réponse de génie !

[SfJ5Rpw8]

tiens à tester ( et je pense à améliorer... je suis sur qu'il y as une autre astuces, pour atteindre une adresse de la forme Feuil1!A1)

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
 
Sub MonTest()
 Dim hp As Hyperlink
 Dim c As Range 'Cellule contenant le lien..
 Dim MonAdd
 Set c = ActiveCell
 
  If c.Hyperlinks.Count = 1 Then 'Je ne traite que les cellules avec un seul lien..
     If c.Hyperlinks(1).Type = msoHyperlinkRange Then 'Lien vers une feuille de calcul
      Debug.Print c.Hyperlinks(1).Address
      Stop 'F5 pour continuer...
      'J'ai rien trouvé de mieux pour atteindre une adresse sous forme feuil1!A1
      MonAdd = Split(c.Hyperlinks(1).Name, "!")
      Sheets(MonAdd(0)).Range(MonAdd(1)).Value = "Nouvelle valeur.."
      End If
 End If
End Sub

[dieurouille]

Merci pour ta réponse.

Mais un problème se pose ...

c.Hyperlinks(1).Name ne renvoi aucune valeur...

[SfJ5Rpw8]

oups j'ai oublié de modifié l'initialisation de la variable range c.., j'utilisé la celluleActive pour les tests ... remplace :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Set c = ActiveCell

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Set c = sheets("Feuil1").range("A1")