Discussion :

[SOTUMA]

bonjour tout le monde,

je cherche depuis des jours un fonction qui permet le trie des colonnes d'une listeview sachant que la colonne peut contenir soit des dates , des lettres et des nombres avec 3 chiffres après la virgule
le prob du trie classique sur les date ne trie pas sur les mois et les années mais uniquement sur les jours
le trie sur les chiffre ne marche pas
il n 'y a que le trie sur les chaînes alphabétique qui fonctionne correctement

est ce qu'il y a quelqu’un qui peut m'aider cad à un code vba de trie sur les 3 cas
merci d'avance

[Patrice740]

Bonjour

Pour le tri,
Mets les dates au format yyyy/mm/dd
et les nombres au format 0000000000000000

[Invité]

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
 
Sub test()
Dim Dico As Object
Set Dico = CreateObject("System.Collections.SortedList")
Add Dico, "1/1/17 12:55"
Add Dico, "1/1/17"
Add Dico, "test12rd152"
Add Dico, "AAAAA"
ReDim r(Dico.Count - 1)
Dim i As Integer
For i = 0 To Dico.Count - 1
Debug.Print Dico.GetKey(i), Dico.GetByIndex(i)
    r(i) = Dico.GetByIndex(i)
Next
End Sub
Sub Add(ByRef Dico As Object, value)
If CStr(value) = "" Then Exit Sub
If IsDate(value) And InStr(value, "/") And InStr(value, ":") Then Dico(CStr(Format(value, "yyyy-mm-dd hh:mm:ss"))) = value: Exit Sub
If IsDate(value) And InStr(value, "/") Then Dico(CStr(Format(value, "yyyy-mm-dd"))) = value: Exit Sub
Dico(CStr(ForamteTxt(value))) = value
End Sub
 
 
Public Function ForamteTxt(v)
Dim num As String, txt As String, i As Integer
For i = 1 To Len(v)
    If IsNumeric(Mid(v, i, 1)) Then
        num = num & Mid(v, i, 1)
    Else
    If num <> "" Then ForamteTxt = ForamteTxt & Format(num, String(13, "0")): num = ""
    ForamteTxt = ForamteTxt & Mid(v, i, 1)
    End If
Next
If num <> "" Then ForamteTxt = ForamteTxt & Format(num, String(13, "0"))
End Function

[unparia]

Bonjour

le trie des colonnes d'une listeview sachant que la colonne peut contenir soit des dates , des lettres et des nombres avec 3 chiffres après la virgule

Un tel tri n'a aucun sens raisonnable, pas plus, d'ailleurs que n'en auraient des valeurs aussi disparates d'un même champ d'une base de données.

Dis-moi (je suis très curieux) dans quel ordre trierais-tu des carottes, des prix, des poissons et des températures ?
Bref ...

Je me demande si une référence de produit 1121345578 est plus grande ou plus petite que la date 20/01/20127. Tu veux bien m'aider à le déterminer ?

[mjpmjp]

bonjour,
c'est peut être un tri en cascade
@+JP

[unparia]

Bonjour mjpmjp
Moi, j'ai l'habitude de me fier à ce qui est écrit.
Reste que je pense (et espère presque) que tu as raison de penser que le demandeur n'a pas su s'exprimer

sachant que la colonne peut contenir soit des dates , des lettres et des nombres avec 3 chiffres après la virgule

[mjpmjp]

bonjour unparia,
c'est impressionnant tellement que c'est affolant , la façon de poser la question et de ce fait le problème lui même qu'ont un grand nombre de participants ...

@+JP

[SOTUMA]

Bonjour tout le monde,
merci pour toutes les réponses

quand j'ai dit "sachant que la colonne peut contenir soit des dates , des lettres et des nombres avec 3 chiffres après la virgule"

je veux dire par la que la colonne peut contenir soit des dates, soit des chaines de caractères alphabétiques soit des nombres avec 3 chiffres après la virgule mais en aucun cas la colonne ne contient un mélange
merci d'avance

[unparia]

Re
L'astuce est simple :
- ajout d'une colonne invisible (de largeur si infime que non visible)
- si nombre : mettre dans cette colonne le nombre formaté avec des "0" devant
- si date : mettre dans cette colonne la fate formatée en "ddddmmyy"
- trier sur CETTE colonne

[unparia]

Exemple (ici une colonne avec des dates)

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
21
22
23
24
25
26
27
28
29
Private Sub UserForm_Activate()
    ListView1.ColumnHeaders.Add , , "Nom", ListView1.Width / 3
    ListView1.ColumnHeaders.Add , , "prénom ID", ListView1.Width / 3, lvwColumnCenter
    ListView1.ColumnHeaders.Add , , "date de naissance", ListView1.Width / 3
    ListView1.ColumnHeaders.Add , , "", 0 '----->>>>>>>>>>>>>>>>>>> colonne invisible ajoutée
    Dim itmX As ListItem
    For i = 1 To 10
       Set itmX = ListView1.ListItems.Add(, , i)
       itmX.SubItems(1) = "a" & i
 
       If i Mod 2 = 0 Then
          d = "17/02/2000"
           itmX.SubItems(2) = d
           itmX.SubItems(3) = Format(CDate(d), "yyyymmdd")
       Else
          d = "20/03/2002"
           itmX.SubItems(2) = d
           itmX.SubItems(3) = Format(CDate(d), "yyyymmdd")
 
       End If
    Next
End Sub
 
 
Private Sub CommandButton1_Click()
  ListView1.SortOrder = lvwAscending
  ListView1.SortKey = 3
  ListView1.Sorted = True
End Sub

Voilà tout.

EDIT : et pour ce qui est des nombres : si les formater avec des "0" peut être assez fastidieux, un autre petit truc : transforme-les en date interne, elle-même formatée ensuite en yyyymmdd et le tour est joué (y compris pour les nombres négatifs...)