VBA Liens hypertexte dans une boucle
cr
-
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
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.
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.
A voir également:
- VBA Liens hypertexte dans une boucle
- Vérificateur de liens - Guide
- Mon pc s'allume et s'éteint en boucle - Forum Matériel & Système
- Lien hypertexte linkedin - Forum Réseaux sociaux
- L'indice n'appartient pas à la sélection vba - Forum VB / VBA
- Comment renommer un lien hypertexte ✓ - Forum Bureautique
2 réponses
bonjour
essaye comme ceci:
bonne journée
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
Bonjour
essaies
tu peux améliorer le texttodisplay avec qqchose de + imagé
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é
Cela fonctionne.