Microsoft 365 fenetre pop up sur carte

elsa_llloullloutte

XLDnaute Nouveau
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

XLDnaute Barbatruc
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

XLDnaute Occasionnel
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 :
VB:
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.
 

Pièces jointes

  • Démo_clic_carte.xlsm
    43.4 KB · Affichages: 5

Discussions similaires

Statistiques des forums

Discussions
312 561
Messages
2 089 662
Membres
104 249
dernier inscrit
Nicolas TUDOUX