Microsoft 365 fenetre pop up sur carte

elsa_llloullloutte · 19 Février 2024

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 · 20 Février 2024

elsa_llloullloutte à dit:
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 · 20 Février 2024

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.

Bernard_XLD · 20 Février 2024

Bonjour le fil, le forum

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

Microsoft 365 fenetre pop up sur carte

elsa_llloullloutte

XLDnaute Nouveau

sousou

XLDnaute Barbatruc

p56

XLDnaute Occasionnel

Pièces jointes

Bernard_XLD

XLDnaute Barbatruc

Discussions similaires