Trier par ordre chronologique des noms de famille et des prénoms

Question

Je voudrais trier un tableau de plusieurs noms de famille et de prénoms.
Je suis débutante, qqun pourrait-il me fournir un algorithme simple permettant de trier ce tableau par ordre alphabétique.
Merci.
Noémie

PtitGrumo · Answer

Bonjour no&#233;mi!

Peut tu me dire quel est ce tableau? c'est du Excel? du Access? et si c'est du Access peut tu me dire comment tu l'alimente?

A tout de suite

PtitGrumo

noemiefigaro · Answer

C'est un tableau dans Visual Basic

PtitGrumo · Answer

Ok donc tu as une requ&#232;te qui te permet de remplir ce tableau non?

alors essai a la fin de cette rqu&#232;te de mettre un Order by!

Envoi moi ta requ&#232;te si tu veux!

++

PtitGrumo

noemiefigaro · Answer

En fait, je suis vraiment au début, alors "requete" ne fait pas encore partie de mes connaissances.
Par exemple, je voudrais savoir comment trier " les noms Dupont Vanderdonck et Faignard".
Quels sont les lignes de code à écrire ?

cs_CanisLupus · Answer

Salut, comment remplis-tu ton tableau ?

Si c'est juste un algo de tri que tu souhaites, en voici un tr&#232;s simple pour des tableaux pas trop grands :

Dim t(5) As String
Dim x As String
Dim i As Integer
Dim j As Integer


' remplissage du tableau
t(0) = "zezette"
t(1) = "tristant"
t(2) = "albert"
t(3) = "bertrand"
t(4) = "cathy"
t(5) = "megane"

' tri du tableau
For i = 0 To UBound(t) - 1
  For j = i + 1 To UBound(t)
    If t(i) > t(j) Then
      x = t(i)
      t(i) = t(j)
      t(j) = x
    End If
  Next j
Next i

' Visu du r&#233;sultat
For i = 0 To UBound(t)
  MsgBox t(i)
Next

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

noemiefigaro · Answer

Merci !
UBound c'est quoi ça ? Il n'y a pas un autre nom pour cela ?
Si après je veux ajouter ou supprimer un nom, comment je fais ?

cs_CanisLupus · Answer

Ubound(t) renvoit l'index max du tableau 't'. 
Ex : dim t(5) -> ubound(t) renvoit 5.

Tu peux toujours t'en passer et faire plus compliqu&#233; si tu connais les dimensions de ton tableau :

Const limitemax as integer = 5
dim t(limitemax)

et tu remplaces les ubound(t) par limitemax.

L'avantage de ubound(t) est que tu n'as pas &#224; te pr&#233;occuper de la taille de ton tableau surtout s'il est dynamique.
Puisque tu parles d'ajout et de suppression dans le tableau, &#231;a doit convenir parfaitement et t'&#233;viter de g&#233;rer des variables dans tous les coins.

Pour ajouter un nom, le mieux est un tableau dynamique :
dim t() as string

' 1er remplissage du tableau
redim t(5)
t(0) = "zezette"
t(1) = "tristant"
t(2) = "albert"
t(3) = "bertrand"
t(4) = "cathy"
t(5) = "megane"

'ajout d'un nom : l'index max deviendra 6
dim newindexmax as integer
newindexmax = ubound(t)+1
redim preserve t(newindexmax)
t(newindexmax) ="cunegonde"

'------------------------------

'suppression d'un nom par ex : albert
dim i as integer

for i=0 to ubound(t)
   if t(i)="albert" then t(i) = ""
next

' tri du tableau en descendant pour mettre les cellules vides &#224; la fin
For i = 0 To UBound(t) - 1
  For j = i + 1 To UBound(t)
    If t(i) < t(j) Then
      x = t(i)
      t(i) = t(j)
      t(j) = x
    End If
  Next j
Next i

'redim du tableau pour &#233;liminer les trous
redim t(ubound(t)-1)

Ensuite, tu peux retrier le tableau en ascendant comme dans mon 1er post.

Tout &#231;a c'est bien compliqu&#233;, n'est ce pas ? Et encore, ce n'est que pour un tableau &#224; 1 dimension. Le mieux serait que tu te serves d'une base de donn&#233;es comme access.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?