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 :

Userform: parent d un controle


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Futur Membre du Club
    Inscrit en
    Avril 2005
    Messages
    4
    Détails du profil
    Informations forums :
    Inscription : Avril 2005
    Messages : 4
    Par défaut Userform: parent d un controle
    Bonjour, j ai une application (userform) dans laquelle j aimerais retrouver le parent d un controle.

    Par exemple, j ai un commandbutton appele buttonX et j aimerais trouve l userform qui est le parent de ce controle (j ai besoin de retrouver une des proprietes de l userform)

    Merci d avance

  2. #2
    Membre Expert
    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    2 130
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2007
    Messages : 2 130
    Par défaut
    Salut
    pour avoir le nom :
    CommandButton.Parent.Name
    ou une autre propriété que le nom
    ou directement Me qui fait référence à l'objet USF sur lequel est ton bouton.

    Mais si tu disais réellement ce que tu veux, au lieu de rester dans le vague, on pourrait approfondir les réponses

    A+

  3. #3
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Private Sub CommandButton1_Click()
        Set Controle = Controls.Item(ControlsIndex)
        Set MeParent = Controle.Parent
        MsgBox MeParent.Name
    End sub
    ou
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Private Sub CommandButton1_Click()
        Set Controle = Me.Controls("CommandButton1")
        Set MeParent = Controle.Parent
        MsgBox MeParent.Name
    End Sub
    ou
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Private Sub CommandButton1_Click()
        Set Controle = Me.ActiveControl
        Set MeParent = Controle.Parent
        MsgBox MeParent.Name
    End Sub

Discussions similaires

  1. [Toutes versions] userform redimentionable avec les controls redimentionnables en meme temp
    Par patricktoulon dans le forum Contribuez
    Réponses: 0
    Dernier message: 17/04/2011, 18h35
  2. Parent d'un controle
    Par androz dans le forum C++Builder
    Réponses: 2
    Dernier message: 26/08/2009, 21h37
  3. Réponses: 6
    Dernier message: 02/06/2006, 14h47
  4. Problème avec control parent de type TDrawGrid
    Par slylafone dans le forum C++Builder
    Réponses: 2
    Dernier message: 09/11/2005, 17h32
  5. Erreur: Control " has no parent windows
    Par bob8181_2000 dans le forum Composants VCL
    Réponses: 5
    Dernier message: 12/10/2003, 20h39

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