Discussion :

[cortex59]

bonjour,

je voudrais copier une listview dans une variable
comment pourais je faire?

pour l'instant j'ai ecrit ceci:

Code :

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

1
2
Public liste As ListView
liste = ListViewlecturetexte

il n'aime pas ceci


merci

[SilkyRoad]

bonsoir

les objets doivent être précédés du mot clé "Set":

Code :

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

1
2
3
4
5
6
7
Option Explicit
Public Liste As ListView
 
Private Sub CommandButton1_Click()
    Set Liste = ListViewlecturetexte
    MsgBox Liste.ListItems.Count
End Sub

bon week end
michel

[cortex59]

bonjour,

et si j'ai besoin de faire l'inverve cad

Code :

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

ListViewlecturetexte = liste

cela ne fonctionne pas
comment je peu faire?
merci

peut etre l'utilisation d'un get?

une idée?
merci

[SilkyRoad]

bonsoir


ta demande n'est vraiment pas claire.
à tout hasard, tu peux essayer:

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
18
19
20
21
22
23
24
25
Private Sub CommandButton1_Click()
    Duplication ListView1, ListView2
End Sub
 
 
Sub Duplication(Source As ListView, Destination As ListView)
    Dim i As Integer, j As Integer
 
    Destination.ColumnHeaders.Clear
 
    For i = 1 To Source.ColumnHeaders.Count
        Destination.ColumnHeaders.Add , , _
            Source.ColumnHeaders(i).Text, _
            Source.ColumnHeaders(i).Width
    Next i
 
    For i = 1 To Source.ListItems.Count
        Destination.ListItems.Add , , Source.ListItems(i).Text
 
        For j = 1 To Source.ListItems(i).ListSubItems.Count
            Destination.ListItems(i).ListSubItems.Add , , _
                Source.ListItems(i).ListSubItems(j).Text
        Next j
    Next i
End Sub

bonne soirée
michel