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 :

Nom générique pour TexBox [XL-2010]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Profil pro
    Inscrit en
    Août 2007
    Messages
    412
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2007
    Messages : 412
    Par défaut Nom générique pour TexBox
    Je demmande pas mal d'aide car le vb est nouveau pour moi mais grace a vous j'avance

    Un truc

    J'ai un textbox enfin j'en ai plein
    quand je clic dedans ça doit inscrire dans le textbox qui s'appel Mir le nom du textbox cliqué

    exemples :
    - je double clic sur le textbox1 cela ecrit textbox1 dans Mir
    - je double clic sur le textbox2 cela ecrit textbox2 dans Mir...........

    ça marche si je fais fait ce code

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    
    Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    'Affiche le nom du textbox cliqué dans la mir
    Mir.Value = TextBox1.Name
    End Sub
    
    Private Sub TextBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    'Affiche le nom du textbox cliqué dans la mir
    Mir.Value = TextBox2.Name
    End Sub
    
    etc...........
    un peu contraignant.
    j'aurais voulu transformer le textbox1.Name textbox2.Name etc.... par un truc du genre Me.name

    j'ai essayé un truc du style mais la valeur remontée n'est pas la bonne c'est le nom du formulaire qui remonte.

    qu'existe t-il a part Me pour nommer de façon générique le textbox

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    
    Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    'Affiche le nom du textbox cliqué dans la mir
    Mir.Value = Me.Name
    End Sub
    
    Private Sub TextBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    'Affiche le nom du textbox cliqué dans la mir
    Mir.Value = Me.Name
    End Sub

  2. #2
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    13 169
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 13 169
    Billets dans le blog
    53
    Par défaut
    Bonjour,
    La propriété Name d'un objet renvoie son nom et c'est ce qui se passe.
    Le mot clé Me représente dans ce cas précis le formulaire (UserForm) où se trouve le code.

    Utilise la touche F1 pour t'aider à comprendre. Ainsi si tu places le curseur de la souris sur le mot clé Me et ensuite appuie sur la touche F1 et voilà entre autre ce qui va apparaître
    Le mot clé Me se comporte comme une variable déclarée de façon implicite. Il est automatiquement disponible pour toutes les procédures d'un module de classe. Lorsqu'une classe peut comporter plusieurs instances, le mot clé Me offre la possibilité de faire référence à l'instance de la classe dans laquelle le code est exécuté. Il s'avère particulièrement utile pour passer les informations concernant l'instance d'une classe en cours d'exécution à une procédure d'un autre module. Par exemple, supposez que la procédure suivante se présente dans un module :
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier

  3. #3
    pgz
    pgz est déconnecté
    Expert confirmé Avatar de pgz
    Homme Profil pro
    Développeur Office VBA
    Inscrit en
    Août 2005
    Messages
    3 692
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 72
    Localisation : France

    Informations professionnelles :
    Activité : Développeur Office VBA
    Secteur : Conseil

    Informations forums :
    Inscription : Août 2005
    Messages : 3 692
    Par défaut
    Bonjour.

    Après un double clic, le contrôle dont tu veux récupérer le nom devrait être actif. Tu peux donc faire
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Mir.Value = Me.ActiveControl.Name
    Si ton code est dans le module du formulaire, comme l'a expliqué Philippe.

    Tu devras quand même renseigner une procédure par contrôle.

    Cordialement,

    PGZ

  4. #4
    Membre éclairé
    Profil pro
    Inscrit en
    Août 2007
    Messages
    412
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2007
    Messages : 412
    Par défaut
    super merci a vous ca marche comme mes textbox sont dans un frame j'ai fait comme suit

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
     
     
     
     
    Mir.Value = Frame2.ActiveControl.Name
    ca marche super merci merci

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

Discussions similaires

  1. Emplois de nom génériques pour les variables
    Par Balbuzard dans le forum Général Python
    Réponses: 2
    Dernier message: 11/03/2011, 23h04
  2. [FLASH MX] nom variable pour une fonction
    Par totoche dans le forum Flash
    Réponses: 2
    Dernier message: 20/12/2005, 14h00
  3. nom serveur pour les mails
    Par Homer dans le forum ASP
    Réponses: 3
    Dernier message: 24/10/2005, 13h37
  4. Réponses: 8
    Dernier message: 19/04/2005, 12h04
  5. Algorithmes génériques pour affichage de primitives 2D.
    Par Selenite dans le forum Algorithmes et structures de données
    Réponses: 3
    Dernier message: 02/01/2005, 20h20

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