probleme d'affichage listView

[BERRACHED said]

Salut le forum
bonne fête de st-valentin a tous le monde !
j'ai un code d'affichage sur une Listview de ma "BD"une feuille de calcul mais seulement je n'arrive pas a le corriger déjà l'affichage c une vrais catastrophe complètement désordonner les enregistrement en double les decimale des montant c nul et quand je click sur les entêtes des colonnes du contrôle il régénéré l'erreur 13 es qu'il y'a quelqu'un qui peut me corriger ça
le fichier est joint
mes salutations

 

[bqtr]

Re : probleme d'affichage listView

Bonsoir Said,

Ton fichier modifié.

Private Sub UserForm_Initialize()
  
   Dim k As Integer, i As Long
    
    With ListView1
        With .ColumnHeaders
            .Clear
            .Add , , "DATE", 60
            .Add , , "N°Ecriture", 70, lvwColumnRight
            .Add , , "N°Identification", 70, lvwColumnRight
            .Add , , "Noms", 70, lvwColumnRight
            .Add , , "Prenoms", 70, lvwColumnRight
            .Add , , "N°Compte", 70, lvwColumnRight
            .Add , , "Periode", 70, lvwColumnRight
            .Add , , "Montant", 70, lvwColumnRight
        End With
    
        .View = lvwReport
        .Gridlines = True
        .FullRowSelect = True
        
        For i = 2 To Sheets("BD").Range("A65536").End(xlUp).Row
             .ListItems.Add , , Sheets("BD").Cells(i, 1)
                  For k = 2 To 7
                       .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("BD").Cells(i, k)
                  Next
             .ListItems(.ListItems.Count).ListSubItems.Add , , Format(Sheets("BD").Cells(i, 8), "# ##0.00")
        Next
    End With
End Sub


Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
   Dim i As Integer, j As Integer
   
    ListView1.Sorted = False
    ListView1.SortKey = 0
   
    For i = 1 To ListView1.ListItems.Count
        ListView1.ListItems(i).Text = CDec(CDate(ListView1.ListItems(i).Text))
    Next i
   
    If ListView1.SortOrder = lvwAscending Then
        ListView1.SortOrder = lvwDescending
    Else
        ListView1.SortOrder = lvwAscending
    End If
    
    ListView1.Sorted = True
    
    For i = 1 To ListView1.ListItems.Count
        ListView1.ListItems(i).Text = Format(CDate(ListView1.ListItems(i).Text), "dd/mm/yyyy")
    Next i
          
End Sub

A+

 

[BERRACHED said]

Re : probleme d'affichage listView

Salut bqtr
eh ben mon vieux chapeau tu veille hein 2 heurs du mat !
ton code c géniale il je te remercie infiniment
merci encore une fois
said