je cherche à mettre dans une ListView (sous VB6) plusieurs colonnes :
Numero / Doublon / Description
 
la premiere colonne se remplie avec une boucle :
for ...  
     ListView1.ListItems.Add , , numcorr  
next
==> ca ca marche
 
les autres colonnes se remplissent après (car tri/analyse) :
==> mais ca ne marche pas
pour la colonne Doublon j'indique "Double" quand un numero est identique au précédent.
 
For i = 0 To lstnontri.ListCount - 2
         
    If ListView1.ListItems.Item.Key(i) =  ListView1.ListItems.Item.Key(i + 1) Then
         
             ListView1.SubItems(1) = "double"
     
     End If
 
Next i
 
Commment fait on pour afficher dans la 2eme colonne "double" ???

je ne crois pas que tu puisse mettre plusieur colonnnes dans une liste sous VB ya qu'en VBA que tu peux faire ca!

oui mais ce n'est pas une listbox mais une listview avec report (comme dans l'explorateur Fichier / Taille / Type /Date ...)

ok sorry
je t'aurrais bien aidé mais la g po le tps.
bon courrae

 
un truc rapide?
 
quel est la syntaxe pour ajouter des données dans la 2eme colonne par exemple?
 
 
j'ai trouvé sur le site de Microsoft :
 
' Le contrôle est nommé lvwAuthors.
lvwAuthor.ListItems(23).ListSubItems.Add , , _
"Hitchhiker's Guide"
lvwAuthor.ListItems(23).ListSubItems.Add , , _
"Vaughn, William"
 
quel est ce controle lvwAuthors ???  
 

Dim item As ListItem
Dim i As Long
 
With ListView1
 
    .ColumnHeaders.Add Text:="colonne1"
    .ColumnHeaders.Add Text:="colonne2"
 
   For i = 1 To 20
      Set item = .ListItems.Add(, , "item" & Format$(i, "00" ), 1, 1) ' colonne 1
      item.SubItems(1) = Format$((20 - i) * 10, "000" ) 'colone 2
      item.SubItems(2) = String$(3, Chr$(Asc("Z" ) - i)) 'colone 3
    Next i
 
end with