Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 7 sur 7

Discussion: Copies entre listbox

  1. #1
    Membre du Club
    Inscrit en
    mars 2008
    Messages
    279
    Détails du profil
    Informations forums :
    Inscription : mars 2008
    Messages : 279
    Points : 68
    Points
    68

    Par défaut Copies entre listbox

    Bonjour au forum

    j'ai 2 listbox de plusieurs colonnes et j'essaye vainement de faire passer des éléments de l'une vers l'autre cela fonctionne mais je n'obtiens que la première colonne

    Y a t-il une solution pour copier les autres colonnes ?
    cordialement

  2. #2
    Expert Confirmé
    Homme Profil pro
    Retraité
    Inscrit en
    avril 2011
    Messages
    1 724
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : avril 2011
    Messages : 1 724
    Points : 3 504
    Points
    3 504

    Par défaut

    Bonjour,

    Un document qui devrait t'aider
    http://silkyroad.developpez.com/VBA/...serForm/#LII-G
    En particulier :
    Extraire la valeur de la 3eme colonne d'une Listbox, dans la ligne sélectionnée.
    Code :
    MsgBox ListBox1.List(ListBox1.ListIndex, 2)
    Cordialement.

  3. #3
    Membre du Club
    Inscrit en
    mars 2008
    Messages
    279
    Détails du profil
    Informations forums :
    Inscription : mars 2008
    Messages : 279
    Points : 68
    Points
    68

    Par défaut

    bonjour et merci pour la réponse.
    Je connais ce tuto

    ce que je souhaite : copier toutes les colonnes d'un élément dans une autre listbox

    mes 2 listbox ont la même structure
    exemple: si dans listebox1 j'ai 3 colonnes (Nom, prenom, age) que ces renseignements aillent dans les même colonnes de la listbox2

  4. #4
    Expert Confirmé
    Homme Profil pro
    Retraité
    Inscrit en
    avril 2011
    Messages
    1 724
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : avril 2011
    Messages : 1 724
    Points : 3 504
    Points
    3 504

    Par défaut

    As-tu essayé
    Code :
    ListBox2.List = ListBox1.List
    Cordialement.

  5. #5
    Membre du Club
    Inscrit en
    mars 2008
    Messages
    279
    Détails du profil
    Informations forums :
    Inscription : mars 2008
    Messages : 279
    Points : 68
    Points
    68

    Par défaut

    oui il me copie tout le contenu de la liste

  6. #6
    Expert Confirmé
    Homme Profil pro
    Retraité
    Inscrit en
    avril 2011
    Messages
    1 724
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : avril 2011
    Messages : 1 724
    Points : 3 504
    Points
    3 504

    Par défaut

    Voici le détail d'un code qui effectue pour chaque ligne la copie du premier élément a gauche de la liste puis des 2 éléments de droite.
    Il te reste à l'adapter à ton besoin.
    Code :
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    Private Sub Copier_Click()
        'Ajoute les données dans la colonne de gauche
        For i = 0 To ListBox1.ListCount - 1
            ListBox2.AddItem ListBox1.List(i, 0)
            'Ajoute des données dans les colonnes de droite
            For j = 1 To 2
                ListBox2.List(i, j) = ListBox1.List(i, j)
            Next j
        Next i
    End Sub
    Cordialement.

  7. #7
    Membre du Club
    Inscrit en
    mars 2008
    Messages
    279
    Détails du profil
    Informations forums :
    Inscription : mars 2008
    Messages : 279
    Points : 68
    Points
    68

    Par défaut

    Bonjour

    en fait ça ne donne pas le résultat escompté

    ça m'écrase dans box2 le contenu de la colonne 1 de la Box 1
    et la colonne 1 de la box 1 n'est pas copié

    je vais passer par une copie de la ligne excel d'un tableau à l'autre pour que le listbox 2 se mette à jour
    cordialement

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •