Bonjour,

J'ai un tableau de données qui se remplit avec un userform dans lequel j'ai une textbox1 pour le nom, et trois ComboBox pour la date (ComboBox2 pour le jour, ComboBox3 pour le mois, ComboBox4 pour l'année).
On clique ensuite sur OK pour remplir le tableau.

Je souhaite classer les données du tableau par nom puis par date en créant une macro.
J'ai enregistré la macro Tri_par_nom permettant de classer les données par nom mais je ne sais pas comment m'y prendre pour trier par date.

Voici ce que j'ai écris pour le moment:

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
'Clic sur OK
Private Sub CommandButton1_Click()
 
Dim l As Integer  'ligne où l'on doit écrire
 
Sheets("Suivi déchets NON DANGEREUX").Select
 
    'On recherche la première ligne libre
    For I = 12 To 18
 
        If Range("A" & I) = "" Then
            l = I
           Exit For
       End If
 
    Next
 
    'On renseigne la ligne
    Range("A" & l).Value = TextBox1.Value
    Range("B" & l).Value = ComboBox1.Value
    Range("D" & l).Value = ComboBox2.Value & "/" & ComboBox3.Value & "/" & ComboBox4.Value
 
    'Classement des données par prestataire
    Call Tri_par_nom
 
    'Fermeture de la fenêtre
    Unload Me
 
End Sub
Merci pour votre aide