VBA listbox copie à listbox

Ok, cela semble noix et j'ai fait des recherches pour un couple d'heures, mais je ne peux pas trouver quelque chose qui fonctionne. Ce post va être assez dépourvu de code, mais je vais vous expliquer très rapidement exactement ce que je suis en train de faire.

Donc, j'ai une zone de liste que j'ai réussi à peuplée et il fonctionne très bien. À un certain moment comme indiqué par l'utilisateur, l'utilisateur pourra sélectionner une ligne de la listbox, appeler RecordBox, de réviser certaines informations, peut-être en ajouter, puis cliquez sur "save" bouton de commande. En Cliquant sur ce bouton enregistrer, je voudrais copier la ligne sélectionnée à partir de RecordBox à la deuxième zone de liste. Appeler DetailsBox je suppose.

J'ai besoin d'un moyen de prendre les données affichées dans le formulaire sous la forme de légendes, des entrées de zone de liste déroulante, zone de texte et des entrées d'ajouter une ligne à "DetailsBox" et copier les informations sur la particulier les colonnes de cette ligne, ou j'ai besoin de tout simplement copier la ligne sélectionnée à partir de RecordBox à DetailsBox.

De toute façon, si une partie du code serait utile, il suffit de demander, mais il n'y a vraiment pas de tout à part le bouton de commande sur l'événement.

J'espère que ce serait assez d'informations.

InformationsquelleAutor user2759242 | 2013-09-28

3

C'est aussi simple que
```
ListBox2.AddItem ListBox1.List(ListBox1.ListIndex)
```
De SUIVI (De Commentaires)

Je pense que je vais l'envoyer à la ligne dans une feuille de calcul, puis l'ajouter à l'autre listbox à partir de là.

Je crois que vous êtes en utilisant une liste multicolonne. Dans ce cas, le code ci-dessus va ajouter de la première colonne de la 2e zone de liste. Vous devez parcourir le reste des colonnes à ajouter la ligne sélectionnée à partir Listbox1.

Disons que votre userform ressemble à ceci. J'ai créé un petit échantillon pour vous.

et les propriétés des zones de liste sont définis comme ci-dessous

et ce est la façon dont votre Sheet1 ressemble.

Maintenant mettre de l'utilisation de ce code dans le Userform.
```
Private Sub UserForm_Initialize()
    '~~> Adding Sample Data to listbox 1
    ListBox1.List = ThisWorkbook.Sheets(1).Range("A1:E3").Value
End Sub

Private Sub CommandButton1_Click()
    Dim iIndex
    Dim i As Long, j As Long, k As Long

    With ListBox1
        i = .ListIndex

        ListBox2.AddItem .List(i, 0), 0

        j = ListBox2.ListCount - 1

        For k = 1 To .ColumnCount - 1
            ListBox2.List(j, k) = .List(i, k)
        Next k
    End With
End Sub
```
Lorsque vous sélectionnez un élément dans la Listbox1 et appuyez sur le bouton de commande, vous remarquerez que la ligne sélectionnée à partir Listbox1 est copié avec succès à Listbox2
- Pas assez de travail pour moi. Je ne sais pas pourquoi... Cela a été un moins que le projet de la coopérative. Je pense que je vais l'envoyer à la ligne dans une feuille de calcul, puis l'ajouter à l'autre listbox à partir de là.
- Ce n'est pas de travail? Quelle erreur avez-vous? Êtes-vous essayer de copier un multicolumn ligne à partir d'une zone de liste à l'autre?
- Je crois que je vois ce que j'ai fait de mal avant. Malheureusement, je ne suis pas au travail pour le moment, mais quand je reviens, je vais donner un coup de cette et de vous laisser savoir comment ça se passe. J'ai remanié ce projet un peu et il serait agréable d'être en mesure de prendre soin de ce que j'essayais de le faire de cette façon maintenant.
- Mais cette solution ne fonctionne qu'avec les zones de liste avec les 10 colonnes ou moins.
- Non, ce n'est pas vrai 🙂
- Vous ne pouvez pas utiliser ListBox2.Liste(j, k) avec k > 10. Si vous n'avez qu'une erreur se passe.
InformationsquelleAutor Siddharth Rout

Pour une quelconque recherche à l'envoi d'éléments à partir d'une zone de liste à l'autre à l'aide d'une boucle et une multi sélection. Heres un peu de code qui pourrait vous aider. Vous aurez besoin de définir deux zones de liste les propriétés de Mulitselect. 1-fmMultiSelectMulti. Ensuite, utilisez les mêmes paramètres/configuration que Siddharth Déroute posté ci-dessus.

 Private Sub CommandButton1_Click()
Dim iIndex
Dim i As Long, j As Long, k As Long
ListBox2.Clear
For i = 0 To 2' loop 3 times for each row in listbox1.
   If ListBox1.Selected(i) = True Then 'Get the first selected Row index number.

   ListBox2.AddItem ListBox1.List(i, 0) 'Gets the first item from listbox1 and puts it in listbox2.
        j = ListBox2.ListCount - 1 ' counts all items in listbox2. which is one item.

        For k = 1 To ListBox1.ColumnCount - 1 'Count the columns listbox1.Now that the first item is in listbox2 _
        move over one column & copy the next value to listbox2. loop 4 more times for 4th entry of row one.
            ListBox2.List(j, k) = ListBox1.List(i, k)
         Next k
   End If
 Next i
End Sub

Mais cette solution ne fonctionne qu'avec les zones de liste avec les 10 colonnes ou moins.

InformationsquelleAutor Blackrock41

Vous devez vous connecter pour publier un commentaire.