Discussion :

[BenHK]

Bonjour,

Je débute tout juste en VBA et avec les ListView. Je vous remercie d'avance pour votre aide.

Dans un UserForm, j'ai créé deux ListView:

Dans ListView1 je récupère les données d'un onglet Excel et affiche les lignes récupérées ainsi qu'une box à cocher dans la première colonne. Jusqu'ici cela fonctionne sans problème.

Une fois avoir coché les lignes qui m'intéressent dans ListView1, je souhaite pouvoir copier toutes ces lignes dans ListView2 par action sur un bouton.

Je pense à ce type de code, mais il me manque la syntaxe... :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()

For j = 1 To ListView1.ListItems.Count
            If ListView1.ListItems(j).Checked = True Then

          "Copier les lignes cochées dans ListView2"

        Next j
End Sub

Merci pour votre aide!

Benoit

[BenHK]

Je me suis débrouillé en Copiant les celulles cochées de ListView1 dans un feuillet puis en récupérant les données dans ce feuillet avec ListView2. Ca marche très bien, mais niveau optimisation je ne suis pas sur que ce soit le top.

[Korleone]

Tu peux essayer ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub CommandButton1_Click()
For j = 1 To ListView1.ListItems.Count
    If ListView1.ListItems(j).Checked = True Then
        With ListView2
            .ListItems.Add , , (ListView1.ListItems(j))
            For i = 1 To ListView1.ListItems(j).ListSubItems.Count
                .ListItems(.ListItems.Count).ListSubItems.Add , , ListView1.ListItems(j).ListSubItems(i)
            Next i
        End With
    End If
Next j
End Sub

J'ai testé, ça fonctionne.
Penses à activer la propriété .View = lvwReport dans tes 2 ListView
En espérant que ça peux encore t'être utile.