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 :

Transfert du label.caption d'un userform dans une cellule d'une feuille excel


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Février 2017
    Messages
    31
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Vosges (Lorraine)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Enseignement

    Informations forums :
    Inscription : Février 2017
    Messages : 31
    Par défaut Transfert du label.caption d'un userform dans une cellule d'une feuille excel
    Bonjour à tous,

    Je rencontre un petit problème, j'ai essayé différent codes jusqu'à présent, mais aucun ne fonctionnent...

    Je m'explique : je souhaiterais copier-coller le caption d'un label que j'ai préalablement rentré sur une userform dans un tableur excel.

    Exemple : Copier le label.caption de la userform et le coller dans la cellule A2 de la feuille excel.

    Est-ce que ce procédé est possible ?


    Merci d'avance

  2. #2
    Membre émérite Avatar de Nicolas JACQUIN
    Homme Profil pro
    .
    Inscrit en
    Avril 2014
    Messages
    556
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France, Morbihan (Bretagne)

    Informations professionnelles :
    Activité : .
    Secteur : Transports

    Informations forums :
    Inscription : Avril 2014
    Messages : 556
    Par défaut
    Bonjour,

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Private Sub UserForm_Initialize()
    Range("a2").Value = Label1.Caption
    End Sub
    Non ???

  3. #3
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Février 2017
    Messages
    31
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Vosges (Lorraine)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Enseignement

    Informations forums :
    Inscription : Février 2017
    Messages : 31
    Par défaut
    Salut Nicolas,

    Le truc c'est que j'ai environ 10 feuilles dans mon classeur excel et que je voudrai par exemple mettre le label.caption dans la feuille 8.

  4. #4
    Membre émérite Avatar de Nicolas JACQUIN
    Homme Profil pro
    .
    Inscrit en
    Avril 2014
    Messages
    556
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France, Morbihan (Bretagne)

    Informations professionnelles :
    Activité : .
    Secteur : Transports

    Informations forums :
    Inscription : Avril 2014
    Messages : 556
    Par défaut
    Après faut adapter en fonction du nom de la feuille et de l'userform

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Worksheets("feuil8").Range("a2").Value = Userform1.Label1.Caption

  5. #5
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Février 2017
    Messages
    31
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Vosges (Lorraine)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Enseignement

    Informations forums :
    Inscription : Février 2017
    Messages : 31
    Par défaut
    J'ai essayé ça :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Private Sub MultiPage1_Change()
    Worksheets(Feuil5).Range(A2).Value = CONFIGURATION.Label41.Caption
    End sub
    Mais ca ne marche pas, ca ne mets rien dans la feuille...

  6. #6
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Avril 2016
    Messages
    7 563
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 84
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Avril 2016
    Messages : 7 563
    Par défaut
    Bonjour

    Range(A2)
    hein ...
    Même pas capable de coller/copier correctement ?

  7. #7
    Membre émérite Avatar de Nicolas JACQUIN
    Homme Profil pro
    .
    Inscrit en
    Avril 2014
    Messages
    556
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France, Morbihan (Bretagne)

    Informations professionnelles :
    Activité : .
    Secteur : Transports

    Informations forums :
    Inscription : Avril 2014
    Messages : 556
    Par défaut
    ""
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Worksheets("Feuil5").Range("A2").Value = CONFIGURATION.Label41.Caption

  8. #8
    Invité
    Invité(e)
    Par défaut
    bonjor,
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Worksheets("Feuil1").Range("B2").Value = array(CONFIGURATION.Label41.Caption,"")(abs(CommandButton9))
    maintenant tu mes une formule Feuil??!B2 = Feuil1!B2

  9. #9
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Février 2017
    Messages
    31
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Vosges (Lorraine)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Enseignement

    Informations forums :
    Inscription : Février 2017
    Messages : 31
    Par défaut
    Salut à tous,

    Merci à tous pour vos réponses. Effectivement le code :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Worksheets("Bon de commande").Range("A2").Value = CONFIGURATION.Label41.Caption
    fonctionne très bien. Je viens d'utiliser le pc de mon école pour voir si ça fonctionnait et c'est le cas !
    Je vais essayer de mettre les mêmes config sur mon pc perso que sur le pc de l'école pour que le code fonctionne sur les deux PC.

    En tout cas merci vraiment pour votre aide !

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

Discussions similaires

  1. copier une valeur a partir d'un userform dans la cellule d'une feuille
    Par VELO1222 dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 12/04/2018, 12h58
  2. [XL-2007] Copie d'image dans une cellule vers une cellule d'une autre feuille
    Par natsamfa dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 20/02/2017, 21h27
  3. [LibreOffice][Tableur] transfert d'une valeur selectionnée dans une ComboBox vers une cellule de feuille de calcul
    Par Mobydisk21 dans le forum OpenOffice & LibreOffice
    Réponses: 1
    Dernier message: 22/01/2017, 01h45
  4. focus dans une cellule d'une JTable
    Par coil dans le forum Composants
    Réponses: 5
    Dernier message: 07/07/2010, 17h15
  5. [JTable] Saut de ligne dans la cellule d'une JTable
    Par enocet dans le forum Composants
    Réponses: 3
    Dernier message: 15/12/2005, 13h16

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