Microsoft 365 Associer lien hypertexte google maps d'une cellule à une image

raf26

XLDnaute Occasionnel
Bonjour,

J'ai besoin de votre aide pour associer un lien hypertexte m'amenant à google maps à une image présente dans mon fichier.

En H9 j'ai ma formule (qui fonctionne) qui ouvre google maps à l'adresse indiquée.

Comment associer ce lien à l'icone de google maps ?

En résumé, je voudrais cliquer sur l'icone et que cela m'ouvre google maps à l'adresse saisie.

Mon classeur ci-joint.

Merci d'avance pour votre aide

Bon week-end
 

Pièces jointes

  • Classeur1.xlsx
    76.5 KB · Affichages: 6
Solution
Bonjour,

Vous trouverez cette macro associée à votre logo gmap dans le classeur joint:
VB:
Sub Logo_Google_Map_Click()
    With ThisWorkbook.Sheets("Feuil1").Range("H4")
        If .Value <> "" Then
            ThisWorkbook.FollowHyperlink ("https://google.com/maps/search/?api=1&query=" & .Value)
        Else
            MsgBox "Aucun lien à suivre"
        End If
    End With
End Sub

A vous de vous assurez de la bonne rédaction de la requête

Cordialement

Hasco

XLDnaute Barbatruc
Bonjour,

Vous trouverez cette macro associée à votre logo gmap dans le classeur joint:
VB:
Sub Logo_Google_Map_Click()
    With ThisWorkbook.Sheets("Feuil1").Range("H4")
        If .Value <> "" Then
            ThisWorkbook.FollowHyperlink ("https://google.com/maps/search/?api=1&query=" & .Value)
        Else
            MsgBox "Aucun lien à suivre"
        End If
    End With
End Sub

A vous de vous assurez de la bonne rédaction de la requête

Cordialement
 

Pièces jointes

  • lien_gmap.xlsm
    88.5 KB · Affichages: 1

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
299 832
Messages
1 979 413
Membres
206 721
dernier inscrit
Sud catering