Discussion :

[BBouille]

Bonjour,
J'aimerais rendre invisible le texte d'un lien vers internet dans une cellule Excel en programmation VBA.
Dans cette même cellule j'affiche une icône.
En cliquant sur l'icône j'aurais voulu être dirigé vers la page internet.
Si quelqu'un pouvait m'aider je lui en serais drôlement reconnaissant.

[umfred]

Il faut mettre l'hyperlien sur cette icone et pas en texte

[BBouille]

Aïe aïe, je vais essayer de trouver la fonction alors.

[Franc]

Salut, vois si ça peut t'aider:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub CacherLien()
    Dim ws As Worksheet
    Dim cell As Range
    Dim hyperlink As hyperlink
 
    ' Spécifiez la feuille de calcul où se trouve votre lien
    Set ws = ThisWorkbook.Worksheets("Feuil1")
 
    ' Spécifiez la cellule contenant le lien et le texte à cacher
    Set cell = ws.Range("A1")
 
    ' Supprimez le texte affiché dans la cellule
    cell.ClearContents
 
    ' Créez un nouvel objet Hyperlink et définissez l'adresse URL et le texte à afficher
    Set hyperlink = cell.Hyperlinks.Add(cell, "https://www.exemple.com/")
    'si tu veux cacher complètement le texte du lien, supprime la ligne ci-dessous
    hyperlink.TextToDisplay = "Cliquez ici"
End Sub

[umfred]

Ton icone est sans doute un Shape de la feuille, donc avec un code de ce type (à adapter)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
With Worksheets(1) 
 .Hyperlinks.Add Anchor:=.Shapes(1), _ 
 Address:="https://example.microsoft.com", _ 
 ScreenTip:="Microsoft Web Site", _ 
 TextToDisplay:="Microsoft" 
End With

https://learn.microsoft.com/fr-fr/of...hyperlinks.add

[BBouille]

Merci les amis,
C'est bien ça mais je ne parviens pas à retranscrire ce code en Xojo (RealBasic) ou Delphi.
Il y a toujours un petit truc à écrire différemment et je ne l'ai pas encore trouvé sur le net, je continue.