Dennnisss
XLDnaute Occasionnel
Bonjour a tous
J'ai un code que l'intervenant chalet53 m'a aider a ameliorer mon userform , il va tres bien , mais ou je cherche encore a modifier c'est que ce code trie les colonne 1 , 2 , 3, 4, 5 alors je cherche a ameliorer le triage sur la colonne 16 de la listview j'ai tenter de modifier son code helas sans succes alors je me remet a vous les acros pour modifier mon code je vous envoie ce code par ecrit et aussi sous forme de pieces jointes
voici ce code
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
ListView1.Sorted = False
form = ""
ListView1.SortKey = ColumnHeader.Index - 1
Col = ColumnHeader.Index - 1
If Col = 2 Then form = "000" Else If (Col = 4 Or Col = 5) Then form = "00.00" 'colonne mois
If Col = 16 Then form = "000"
If form <> "" Then
For i = 1 To ListView1.ListItems.Count
ListView1.ListItems(i).ListSubItems(Col).Text = _
Format(CDec(ListView1.ListItems(i).ListSubItems(Col).Text), form)
Next i
End If
If ListView1.SortOrder = lvwAscending Then
ListView1.SortOrder = lvwDescending
Else
ListView1.SortOrder = lvwAscending
End If
ListView1.Sorted = True
End Sub
La ligne en rouge c'est ce que j'ai tenter
alors bonne journee a vous et merci de votre aide
dennnisss
J'ai un code que l'intervenant chalet53 m'a aider a ameliorer mon userform , il va tres bien , mais ou je cherche encore a modifier c'est que ce code trie les colonne 1 , 2 , 3, 4, 5 alors je cherche a ameliorer le triage sur la colonne 16 de la listview j'ai tenter de modifier son code helas sans succes alors je me remet a vous les acros pour modifier mon code je vous envoie ce code par ecrit et aussi sous forme de pieces jointes
voici ce code
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
ListView1.Sorted = False
form = ""
ListView1.SortKey = ColumnHeader.Index - 1
Col = ColumnHeader.Index - 1
If Col = 2 Then form = "000" Else If (Col = 4 Or Col = 5) Then form = "00.00" 'colonne mois
If Col = 16 Then form = "000"
If form <> "" Then
For i = 1 To ListView1.ListItems.Count
ListView1.ListItems(i).ListSubItems(Col).Text = _
Format(CDec(ListView1.ListItems(i).ListSubItems(Col).Text), form)
Next i
End If
If ListView1.SortOrder = lvwAscending Then
ListView1.SortOrder = lvwDescending
Else
ListView1.SortOrder = lvwAscending
End If
ListView1.Sorted = True
End Sub
La ligne en rouge c'est ce que j'ai tenter
alors bonne journee a vous et merci de votre aide
dennnisss