Discussion :

[JessieCoutas]

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

[Fvandermeulen]

Bonjour,
Tu dis avoir enregistrer la macro Tri_par_nom, je suppose donc via l'enregistreur, donc en utilisant le tri d'Excel (Données/trier)...
Si c'est bien ça, tu peux directement indiquer une deuxième 'clé' de tri, cette fois la date.
Si c'est bien ça que tu veux...
Sinon montre le code de Tri_par_nom.
A+

[diude54]

key1 corespont au premier tri, key2 au 2ème.
Donc dans ton cas key1 est le nom, key2 la date
mapalge est la plage de données:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Set maplage = ActiveSheet.Range(Cells(3, 1), Cells(nligne, 12))
maplage.Select
With Selection
    .Sort key1:=ActiveSheet.Range("A2"), order1:=xlAscending, key2:=ActiveSheet.Range("B2"), order2:=xlAscending, Header:=xlNo, Orientation:=xlSortColumns
End With

[JessieCoutas]

Merci beaucoup!