Microsoft 365 VBA créateur de lien dans le document excel

[simsinaty]

Bonjour à tous,

Je souhaiterai pouvoir paramétrer un tableau qui serait repris par une macro afin de paramétrer des liens dans un fichier excel. Je vous joins le fichier exemple qui montre ce que je souhaite. MErci à tous !

 

[sylvanu]

Bonjour Simsinaty,
Un essai en PJ avec :

Sub Liens()
    Dim Cell As Range, Plage As Range
    With ActiveSheet
        Set Plage = .Range("B3", .Cells(.Rows.Count, "B").End(xlUp))
    End With
    For Each Cell In Plage.Cells
        ActiveSheet.Hyperlinks.Add Anchor:=Cell.Offset(0, 2), Address:="", SubAddress:= _
        Cell.Value, TextToDisplay:=CStr(Cell.Offset(0, -1))
    Next Cell
End Sub

' Cell.Offset(0, 2) car décalage de 2 colonnes à droite
' Cell.Offset(0, -1) car décalage de 1 colonnes à gauche

 

[simsinaty]

Bonjour Simsinaty,
Un essai en PJ avec :

Sub Liens()
    Dim Cell As Range, Plage As Range
    With ActiveSheet
        Set Plage = .Range("B3", .Cells(.Rows.Count, "B").End(xlUp))
    End With
    For Each Cell In Plage.Cells
        ActiveSheet.Hyperlinks.Add Anchor:=Cell.Offset(0, 2), Address:="", SubAddress:= _
        Cell.Value, TextToDisplay:=CStr(Cell.Offset(0, -1))
    Next Cell
End Sub

' Cell.Offset(0, 2) car décalage de 2 colonnes à droite
' Cell.Offset(0, -1) car décalage de 1 colonnes à gauche

Merci beaucoup sylvanu ! Cela marche parfaitement ! désolé du délai. A très bientôt.