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 :

Récupérer une ligne d'une listbox et mettre les infos dans une textbox


Sujet :

Macros et VBA Excel

  1. #1
    Membre habitué
    Femme Profil pro
    Étudiant
    Inscrit en
    Décembre 2021
    Messages
    9
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 23
    Localisation : France, Gironde (Aquitaine)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Décembre 2021
    Messages : 9
    Par défaut Récupérer une ligne d'une listbox et mettre les infos dans une textbox
    Bonjour à tous,

    J'ai un premier UserForm (UFPlanning) qui contient une listbox.
    Lorsque je double-clique sur une ligne de ma listbox ça m'ouvre un nouveau UserForm(UFValidPlanning).
    Dans cette UF, les 3 premières textbox correspondent aux 3 colonnes de ma listbox (dans l'UF précedent).
    Je voudrais récupérer les données de la ligne sur laquelle j'ai double-cliqué et les mettre automatiquement dans les 3 textboxs correspondantes.

    Pouvez-vous m'aider car je n'arrive pas à faire cela.

    Je vous joint mon fichier excel ce sera peut-être plus simple pour la compréhension.
    Merci d'avance pour votre aide.
    Fichiers attachés Fichiers attachés

  2. #2
    Membre émérite
    Homme Profil pro
    ingénieur d'étude
    Inscrit en
    Juin 2013
    Messages
    563
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : ingénieur d'étude
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2013
    Messages : 563
    Par défaut
    Bonjour,

    Dans le module de code de votre premier UserForm (UFPlanning) :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
        Dim nItm As Long
        With Me.ListBox1
            nItm = .ListIndex
            If nItm > -1 Then
                If .Selected(nItm) Then
                    Me.Hide
                    Load UFValidPlanning
                    UFValidPlanning.TextBox1.Value = .List(nItm, 0)
                    UFValidPlanning.TextBox2.Value = .List(nItm, 1)
                    UFValidPlanning.TextBox3.Value = .List(nItm, 2)
                    UFValidPlanning.Show
                    Unload Me
                End If
            End If
        End With
    End Sub
    En supposant bien sûr que votre ListBox s'appelle "ListBox1" et vos TextBox "TextBox1", "TextBox2", "TextBox3".

    Attention : avec une ListBox, il n'est à ma connaissance pas possible de détecter le cas où l'utilisateur clique sur une partie vide, en bas de la listbox. Un contournement est possible en remplaçant la ListBox par une ListView.

    Bonnes fêtes à vous !

  3. #3
    Membre habitué
    Femme Profil pro
    Étudiant
    Inscrit en
    Décembre 2021
    Messages
    9
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 23
    Localisation : France, Gironde (Aquitaine)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Décembre 2021
    Messages : 9
    Par défaut
    Super merci je l'ai adapté à mon fichier et ça fonctionne parfaitement !!

    Merci beaucoup

    Bonne fête à vous !!

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

Discussions similaires

  1. [MySQL] Mettre les infos dans des boutons
    Par zozotitou dans le forum PHP & Base de données
    Réponses: 12
    Dernier message: 30/10/2013, 18h12
  2. [XL-2007] Remplir une listbox et mettre les donnees sur 1 colonne
    Par chris09300 dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 10/12/2011, 19h41
  3. Réponses: 2
    Dernier message: 17/04/2008, 18h58
  4. mettre les valeurs dans une tableau
    Par monphp dans le forum VB.NET
    Réponses: 1
    Dernier message: 01/06/2007, 16h51
  5. comment en VBA mettre les mots dans une cellule en oblique
    Par antoine.dandois dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 12/02/2007, 17h10

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