Info bulle et lien hypertexte

Const XLD_URL As String = 'Lien supprimé
Const XLD_Title As String = 'Info Bulle et Lien Hypertexte'
Const XLD_Tip As String = 'Coucou et Vive XLD ! J - 1'


Sub HyperLinkBuilder1()
Dim WS As Worksheet
Dim Cell As Range
Dim i As Byte
Dim HLink As Hyperlink

Set WS = Sheets('Feuil1')

    For i = 1 To 15
        Set Cell = WS.Cells(i, 1)
           
              Set HLink = WS.Hyperlinks.Add(Anchor:=Cell, Address:=XLD_URL)
                With HLink
                    .TextToDisplay = XLD_Title
                    .ScreenTip = XLD_Tip
                End With
   
    Next i

End Sub

Cliquez pour agrandir...