Macro concat lien hypertexte 255 caractères Résolu/Fermé

Question

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.

f894009 · Answer

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

ThibaudS · Answer

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.

f894009 · Answer

Re,
C.lien, existe pas .lien en VBA Excel

ThibaudS · Answer

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

Macro concat lien hypertexte > 255 caractères

4 réponses

Discussions similaires

Newsletters