algorithme pour trier un tableau de valeur

[krystof_ii]

Bonjour à tous,

J'ai un tableau de données AT_SD défini comme suit :
Type tableau
Ref As Integer
TypeAT As String
Date As Date
Siege_lesion As String
Details As String
End Type

J'aimerai trier ce tableau par :
1- Ordre alphabétique du champs .TypeAT
2- Ordre anti-chronologique sur le champs .Date

Je ne sais pas comment m'y prendre ...

 

[BOISGONTIER]

Re : algorithme pour trier un tableau de valeur

Bonsoir,

Exemple

Type Personne
  Nom As String
  age As Integer
End Type

Sub essai2()
  Dim a(1 To 5) As Personne
  Dim temp As Personne
  a(1).Nom = "Dupont": a(1).age = 40
  a(2).Nom = "Balu": a(2).age = 30
  a(3).Nom = "Charlie": a(3).age = 20
  a(4).Nom = "Durand": a(4).age = 25
  a(5).Nom = "Campas": a(5).age = 35
'---- tri bubble
  For i = 1 To 5
    For j = i To 5
      If a(j).Nom < a(i).Nom Then
         temp = a(j)
         a(j) = a(i)
         a(i) = temp
      End If
    Next j
  Next i
  '--
  For i = 1 To 5
    MsgBox a(i).Nom & " " & a(i).age
  Next i
End Sub

Pour un tri rapide:
http://boisgontierjacques.free.fr/pages_site/TriQuickSort.htm

JB
Formation Excel VBA JB

 

[krystof_ii]

Re : algorithme pour trier un tableau de valeur

Merci.

C'est si simple quand on a la solution ....