IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

VBA Trouver le userform à l'origine de l'ouverture d'un autre userform [Toutes versions]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre régulier
    Profil pro
    Inscrit en
    Novembre 2010
    Messages
    8
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Novembre 2010
    Messages : 8
    Par défaut VBA Trouver le userform à l'origine de l'ouverture d'un autre userform
    Bonjour à tous,
    Je n'ai pas trouvé la réponse sur le web à ma question qui est dans le titre.
    Est-il possible de trouver le nom du userform à l'origine de l'ouverture d'un deuxième ?
    En effet, j'aimerais qu'en fonction de l'userform qui est à l'origine de l'ouverture du userform 2, le userform 2 se comporte différemment.
    J'imagine qu'utiliser une variable n'est pas très propre.

    Merci pour votre réponse.

  2. #2
    Expert confirmé
    Homme Profil pro
    Inscrit en
    Août 2010
    Messages
    3 453
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Août 2010
    Messages : 3 453
    Par défaut
    Bonjour,

    Une possibilité parmi tant d'autres. Une variable déclarée Public dans l'UserForm appelé (ici pour l'exemple, UserForm2) et information de la variable juste avant l'appel.
    Dans le module de l'UserForm appelé :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
     
    Public QuiAppelle As String
     
    Private Sub UserForm_Activate()
     
        MsgBox "C'est l'UserForm '" & QuiAppelle & "' qui viens de me sonner !"
     
    End Sub
    Dans le module de l'UserForm appelant (ici l'évènement est déclenché sur Click de la Form) :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
     
    Private Sub UserForm_Click()
     
        UserForm2.QuiAppelle = Me.Name
        UserForm2.Show
     
    End Sub

  3. #3
    Membre régulier
    Profil pro
    Inscrit en
    Novembre 2010
    Messages
    8
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Novembre 2010
    Messages : 8
    Par défaut
    D'accord, c'est bien ce qui me semblait. Merci beaucoup pour la rapidité de votre réponse.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 24
    Dernier message: 10/04/2007, 19h40
  2. [VBA-E] Fleche d'une liste à l'autre - userform
    Par cwain dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 22/03/2007, 12h07
  3. Réponses: 3
    Dernier message: 25/09/2006, 20h35
  4. [VBA] Trouver l'adresse de la cellule sous le bouton
    Par ouskel'n'or dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 20/02/2006, 22h53
  5. [VBA]Trouver les cellules fusionnées et autres
    Par Invité dans le forum Macros et VBA Excel
    Réponses: 24
    Dernier message: 23/01/2006, 13h12

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo