Discussion :

[Marc_27]

Bonjour à tous,

J'ai fait une listview avec 3 colonnes, parmi lesquelles une colonne numérique.
Pour faire le faire trier (en cliquant sur des colonnes), j'ai utilise le code disponible dans le FAQ. Le seule soucis c'est qu'il marche bien pour des donnés Alpha, mais pas pour des numériques (sauf si j'écris 001, 010 et 100, par exemple)

J'essaye donc d'avoir les donnés numériques de ma première colonne au format "###", et lorsque quelqu'un faisse un clic, je voudrais changer le format de cette collone à "000", faire le tri et après revenir à "###".

Je pense que ça soit une bonne idée, mais je n'arrive pas à changer le format de la colonne.

Est-ce que quelqu'un peut m'aider à le faire, svp?
Merci d'avance.

[Marc_27]

C'est fait.

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
   Private Sub lstCollaborateurs_ColumnClick(ByVal sender As Object, ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles lstCollaborateurs.ColumnClick
        For i = 0 To lstCollaborateurs.Items.Count - 1
            lstCollaborateurs.Items(i).SubItems(0).Text = Format(Val(lstCollaborateurs.Items(i).SubItems(0).Text), "000")
        Next
 
        If Me.lstCollaborateurs.Sorting = SortOrder.Ascending Then
            Me.lstCollaborateurs.Sorting = SortOrder.Descending
        Else
            Me.lstCollaborateurs.Sorting = SortOrder.Ascending
        End If
        Me.lstCollaborateurs.ListViewItemSorter = New ListViewItemComparer(e.Column, Me.lstCollaborateurs.Sorting)
 
        For i = 0 To lstCollaborateurs.Items.Count - 1
            lstCollaborateurs.Items(i).SubItems(0).Text = Format(Val(lstCollaborateurs.Items(i).SubItems(0).Text), "###")
        Next
    End Sub

[Marc_27]

Après avoir reussi à trier des colonnes numériques, j'ai des soucis pour des dates:

J'essaye la même logique (j'ai trouvé le code ici):

Code :

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

1
2
3
For i = 1 To ListView1.Items.Count-1
    ListView1.Items(i).SubItems(3).Text = CDec(CDate(ListView1.Items(i).SubItems(3).Text))
    Next

Mais j'ai l'erreur
"Value of type 'Date' cannot be converted to 'Decimal'."

Pourquoi ça ne marche pas??


Merci d'avance

[Marc_27]

J'ai trouvé la solution, en changeant le format du champ date:

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
Temps = 0
        For i = 0 To Me.lstFormations.Items.Count - 1
            If Me.lstFormations.Items(i).SubItems(3).Text = "-" Then
                Me.lstFormations.Items(i).SubItems(3).Text = "31/12/3010"
                Me.lstFormations.Items(i).SubItems(3).Text = CDate(Me.lstFormations.Items(i).SubItems(3).Text)
            End If
            Me.lstFormations.Items(i).SubItems(3).Text = Format(CDate(Me.lstFormations.Items(i).SubItems(3).Text), "yyyy-MM-dd")
        Next
 
        If Me.lstFormations.Sorting = SortOrder.Ascending Then
            Me.lstFormations.Sorting = SortOrder.Descending
        Else
            Me.lstFormations.Sorting = SortOrder.Ascending
        End If
        Me.lstFormations.ListViewItemSorter = New ListViewItemComparer(e.Column, Me.lstFormations.Sorting)
 
        For i = 0 To Me.lstFormations.Items.Count - 1
            Me.lstFormations.Items(i).SubItems(3).Text = Format(CDate(Me.lstFormations.Items(i).SubItems(3).Text), "dd/MM/yyyy")
            If Me.lstFormations.Items(i).SubItems(3).Text = "31/12/3010" Then Me.lstFormations.Items(i).SubItems(3).Text = "-"
        Next