Microsoft 365 fenetre pop up sur carte

[elsa_llloullloutte]

Bonjour à tous,

Je travaille sur un fichier avec différents onglets de noms de villes et en premier onglet une carte sans nom de ville prise sur d-maps.com.
Je vais insérer les noms de villes à l'aide d'une zone de texte.
J'aimerais trouver une possibilité d'afficher une petite fenêtre pop up de valeurs clés prises sur un autre onglet lorsque je clique sur la zone de texte.
J'ai trouvé des tutos pour le faire sur une cellule mais pas sur une zone de texte.
Est-ce que quelqu'un pourrait m'aider ?

Merci par avance,
Bonne soirée

 

[sousou]

Bonjour à tous,

Je travaille sur un fichier avec différents onglets de noms de villes et en premier onglet une carte sans nom de ville prise sur d-maps.com.
Je vais insérer les noms de villes à l'aide d'une zone de texte.
J'aimerais trouver une possibilité d'afficher une petite fenêtre pop up de valeurs clés prises sur un autre onglet lorsque je clique sur la zone de texte.
J'ai trouvé des tutos pour le faire sur une cellule mais pas sur une zone de texte.
Est-ce que quelqu'un pourrait m'aider ?

Merci par avance,
Bonne soirée

Un fichier et quelques explications sur les valeurs Clés seraient quand même plus simple

 

[p56]

Bonjour à tous,

Application.caller = une méthode très simple.
Toutes les zones de texte pointent sur une seule et même procédure.
On aura nommé ces zones de texte avec le même nom que celui de l'onglet correspondant mais avec un préfixe pour ne pas créer de confusion.
Application.caller récupère le nom de la zone de texte,il suffit alors d'afficher l'info souhaitée contenue dans l'onglet correspondant via un msgbox (mais ça pourrait être un Userform, ou tout autre mode d'affichage).

Le code :

Option Explicit

' ************************************************************************
' *****                                                              *****
' *****     Auteur : Pierre - P56 : http://tatiak.canalblog.com/     *****
' *****                                                              *****
' ************************************************************************

Sub Clic_Ville()
Dim S As String, i As Byte

    For i = 1 To 3
        S = S & Sheets(Mid(Application.Caller, 2)).Range("A" & i).Value & vbLf
    Next i
    MsgBox S
End Sub

La carte du fichier démo est fournie par l'auteur de l'excellent site : tatiak.canalblog.com

P.

 

[Bernard_XLD]

Bonjour le fil, le forum

La carte du fichier démo est fournie par l'auteur de l'excellent site : tatiak.canalblog.com