Remplir une listview avec feuilel de calcul

[christian.bedere]

Bonsoir à vous !!

Comment puis-je faire pour pouvoir remplir ma listview avec le tableau 'devis' ci joint.
Je ne parviens pas à adapter un ancien, code, j'espère que vous serez meilleur que moi (je n en doute pas ...)

Merci et belle soirée à vous

Kiki

 

[bqtr]

Re : Remplir une listview avec feuilel de calcul

Bonsoir christian

Essaye comme ceci :

Private Sub UserForm_initialize()

Dim i As Long, k As Byte

With Me.ListView1
 .ListItems.Clear
    With .ColumnHeaders
      .Clear
      .Add , , "Pièce", 70
      .Add , , "Articles", 120
      .Add , , "Référence", 90
      .Add , , "Qtté", 39
      .Add , , "Prix Unitaire", 80
      .Add , , "Montant HT", 80
     '.Add , , "Marge", 40
     '.Add , , "Pièce", 0
    End With
    
    For i = 20 To Sheets("Devis").Range("A65536").End(xlUp).Row
       .ListItems.Add , , Sheets("Devis").Cells(i, 1)
          For k = 2 To 6
             .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Devis").Cells(i, k)
          Next
    Next
End With

End Sub

Pour les deux dernières colonnes je sais pas avec quoi les remplir 😀 donc elles ne sont pas prises en compte.

A+

 

[christian.bedere]

Re : Remplir une listview avec feuilel de calcul

Salut Pierre-Olivier !


Génial !
Merci infiniment, bonne soirée
Kiki