Macro concat lien hypertexte > 255 caractères
Résolu
Bonjour à tous,
Dans un tableur, je souhaite insérer un lien hypertexte que je dois composer, 2 parties fixes et une part variable.
J'ai isolé les parts fixes dans les colonnes A et C, et la part variable en B, j'ai besoin de créer ce lien avec une référence texte "lien Commande", et ce lien fait plus de 255 caractères.
J'ai essayé la syntaxe ci-après, pour obtenir mon lien hypertexte en colonne D, mais rien ne tourne :
Sub creerLiens()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("E1:E" & Cells(Rows.Count, "E").End(xlUp).Row)
If c <> "" Then
ActiveSheet.Hyperlinks.Add Anchor:=c, _
Address:=c.Offset(, -3)&c.Offset(, -2)&c.Offset(, -1), TextToDisplay:=c.LienCommande
End If
Next c
End Sub
Merci d'avance pour votre aide,
Thibaud.
Dans un tableur, je souhaite insérer un lien hypertexte que je dois composer, 2 parties fixes et une part variable.
J'ai isolé les parts fixes dans les colonnes A et C, et la part variable en B, j'ai besoin de créer ce lien avec une référence texte "lien Commande", et ce lien fait plus de 255 caractères.
J'ai essayé la syntaxe ci-après, pour obtenir mon lien hypertexte en colonne D, mais rien ne tourne :
Sub creerLiens()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("E1:E" & Cells(Rows.Count, "E").End(xlUp).Row)
If c <> "" Then
ActiveSheet.Hyperlinks.Add Anchor:=c, _
Address:=c.Offset(, -3)&c.Offset(, -2)&c.Offset(, -1), TextToDisplay:=c.LienCommande
End If
Next c
End Sub
Merci d'avance pour votre aide,
Thibaud.
4 réponses
-
Bonjour,
mon lien hypertexte en colonne D
Vous prenez la colonne E pour votre Test et ecriture!For Each c In Range("E1:E" & Cells(Rows.Count, "E").End(xlUp).Row)
c.LienCommande
? inconnue cette chose -
Bonjour,
Merci de votre retour, effectivement j'ai fait plusieurs essais, d'où le décalage.
c.lien commande aurait pour objectif de nommer le lien dans la cellule plutôt que de le faire apparaitre en intégralité étant donné sa longueur. -
Re,
C.lien, existe pas .lien en VBA Excel -
Merci,
J'ai réussi à corriger en prenant le problème d'une autre manière, et apporté quelques corrections, ci-après le code, pour ceux que ça pourrait intéresser :
Sub creerLiens()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("D2000:D" & Cells(Rows.Count, "D").End(xlUp).Row)
If c.Offset(, -3) & c.Offset(, -2) & c.Offset(, -1) <> "" Then
ActiveSheet.Hyperlinks.Add Anchor:=c, _
Address:=c.Offset(, -3) & c.Offset(, -2) & c.Offset(, -1), TextToDisplay:="Lien"
End If
Next c
End Sub
