Microsoft 365 fenetre pop up sur carte

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
0
Affichages
493
Retour