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 de label dans cellule


Sujet :

Macros et VBA Excel

  1. #1
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Juin 2012
    Messages
    143
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Calvados (Basse Normandie)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Transports

    Informations forums :
    Inscription : Juin 2012
    Messages : 143
    Par défaut Nom de label dans cellule
    Bonjour à tous,

    Dans la cellule A1 de la feuil1, j'ai réussi à extraire le nom d'un Label de ma userform1 (Grace à un code qui n'est pas de moi bien sur)
    J'ai donc Label7 comme texte dans la cellule A1 de la feuil1.
    A partir de là, j'aimerais utiliser cette donnée pour identifier le Label7 dans ma userform et en extraire la valeur pour la renvoyer en B1 de la feuil1. Et je ne sais pas comment faire ni vers quoi m'orienter.

    J'essai d'être clair mais pas simple.

    Exemple : en A1 j'ai extrait le nom de mon Label : Label7
    Dans le Userform1, le même Label7 contient la valeur "Coucou"
    J'aimerais, en cliquant sur un bouton, utiliser le contenu de la cellule A1, en l'occurrence "Label7" pour définir de quel Label je veux aller chercher le contenu et envoyer ce contenu dans la cellule B1 de la feuille1 soit "Coucou".

    Un truc style :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Sheets("Feuil1").Range("B1") = Label7
    mais que "Label7" soit remplacé par le contenu de la cellule A1 de la feuil1

    En fait, j'aimerais que la référence du Label source soit = au contenu de la cellule A1 de la feuil1

    Merci à ceux qui se pencheront sur mon probleme
    Laurent

  2. #2
    Membre Expert
    Homme Profil pro
    retraité
    Inscrit en
    Mars 2013
    Messages
    885
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : retraité
    Secteur : Industrie

    Informations forums :
    Inscription : Mars 2013
    Messages : 885
    Par défaut nom de label
    Bonjour,

    Peut-être ceci si j'ai bien compris la demande

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    Sub LABEL()
    Range("b1") = UserForm1.Controls(Range("a1").Value).Caption
    End Sub
    cordialement,

  3. #3
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Juin 2012
    Messages
    143
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Calvados (Basse Normandie)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Transports

    Informations forums :
    Inscription : Juin 2012
    Messages : 143
    Par défaut
    Bonjour et merci à toi, c'est exactement ce que je cherchais.
    Bonne continuation.
    Laurent

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

Discussions similaires

  1. [SQL] Séparer Nom Prénom placés dans une cellule unique
    Par arnaudperfect dans le forum PHP & Base de données
    Réponses: 11
    Dernier message: 15/12/2023, 07h54
  2. [XL-2007] Nom d'onglet dans cellules
    Par Pierre77 dans le forum Excel
    Réponses: 3
    Dernier message: 05/09/2014, 14h07
  3. Nom de fichier dans cellule
    Par progheure dans le forum Excel
    Réponses: 3
    Dernier message: 28/04/2013, 13h24
  4. Label dans formulaire remplie par du code en indiçant son nom
    Par olivierdz1 dans le forum VBA Access
    Réponses: 2
    Dernier message: 18/01/2008, 09h54
  5. [VBA-E] Séparer Nom Prénom placés dans une cellule unique
    Par ouskel'n'or dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 10/04/2007, 20h23

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