VBA Liens hypertexte dans une boucle Fermé

Question

Bonjour, 

J'ai deux feuilles excel, dans le même classeur. Dans la 1ere feuille, je veux que les cellules de la colonne E, aient un lien hypertexte vers les cellules de la 2eme feuille, colonne C, dans le même ordre. (400 cellules, donc un peu long à la main)

C'est à dire, 
Feuille1, cellule E5 renvoie à Feuille2, cellule C4
Feuille1, cellule E6 renvoie à Feuille2, cellule C5
Feuille1, cellule E7 renvoie à Feuille2, cellule C6
etc...

J'utilise une boucle For, mais je n'arrive pas à modifier l'adressage du lien en fonction de la valeur de la cellule.

J'ai fait ceci, mais ça ne marche évidemment pas ...
  For i = 5 To 84
    Cells(i, "E").Select
    j = i - 1
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "Photos!" & Cells(j, "C")  
  Next

Merci de votre aide.


Configuration: Windows 2003 / Internet Explorer 7.0

Paf · Answer

bonjour

essaye comme ceci:
For i = 5 To 84
    Cells(i, 5).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
   "Photos!C" & i - 1
Next

bonne journée

michel_m · Answer

Bonjour

essaies
Sub lienhyper()
Dim lig As Byte
For lig = 5 To 84
    With Cells(lig, "E")
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(lig, "E"), Address:="", SubAddress:= _
            "Photos!" & "C" & lig - 1, TextToDisplay:="Photos!" & "C" & lig - 1
    End With
Next

tu peux améliorer le texttodisplay avec qqchose de + imagé

VBA Liens hypertexte dans une boucle

2 réponses

Discussions similaires