Exemple
L’exemple suivant permet :
-
de supprimer tous les liens hypertexte d’une feuille de calcul,
-
d’ajouter un lien hypertexte dans une cellule sélectionnée par l’utilisateur,
-
d’afficher le document cible du lien hypertexte.
Sub Lien_HyperTexte()
Dim oShtEmployes As Worksheet
Dim oLnk As Hyperlink
Dim oRng As Range
' Supprime tous les liens hypertexte de la feuille
Set oShtEmployes = ThisWorkbook.Sheets("Employés")
For Each oLnk In oShtEmployes.Hyperlinks
oLnk.Delete
Next oLnk
' Sélection de la cellule par l'utilisateur
Set oRng = Application.InputBox("Sélectionner la cellule
pour le lien hypertexte", , , , , , , 8)
' Si sélection de plusieurs cellules, on ne prend que la première
If oRng.Cells.Count > 1 Then
Set oRng = oRng.Cells(1, 1)
End If
' Ajoute un lien hypertexte dans la première cellule sélectionnée
oRng.Value = "Lien sur le classeur publié"
oShtEmployes.Hyperlinks.Add Anchor:=oRng, Address:="Employes.html"
' Affiche le document cible du lien hypertexte
oShtEmployes.Hyperlinks(1).Follow
End Sub 
Conditions générales d'utilisationCopyright - © Editions ENI ||Politique de protection des données du groupe ENI