Bonsoir le forum,

Voilà, je suis en train de tester une variable de type tableau dans un code.

Le code ci-dessous me donne bien le contenu de chaque ligne du tableau, mais je souhaiterais l'améliorer.

Vous voici le code :

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
Sub TestVariableTableau()
'Déclaration des variables
Dim Untab(1 To 3, 1 To 2) As Variant
Dim i As Integer, j As Integer
Dim resultat As String
'Remplissage de la première colonne
Untab(1, 1) = "31/01/2011"
Untab(2, 1) = "01/01/2011"
Untab(3, 1) = "10/01/2011"
'Remplissage de la seconde colonne
Untab(1, 2) = "10:00"
Untab(2, 2) = "16:00"
Untab(3, 2) = "11:30"
For i = 1 To UBound(Untab, 1)
     For j = 1 To UBound(Untab, 2)
          resultat = resultat & " " & Untab(i, j) & vbCr
     Next j
Next i
MsgBox resultat
End Sub
Je souhaiterais que mon tableau soit lu en triant les dates de la première colonne et qu'en fonction de ce tri, les heures figurant dans la seconde colonne soient directement liés à la date triée dans la première colonne.

En d'autre termes, je souhaiterais que le msgBox me donne ce qui suit.
1. 01/01/2011 à 16:00
2. 10/01/2011 à 11:30
3. 31/01/2011 à 10:00

Serait-ce possible?

Si c'est le cas, pourrais-je avoir ne serait-ce qu'un bout de code pour pouvoir m'orienter?

Je remercie d'avance la personne qui pourra me venir en aide.