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:
Merci pour votre aide
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
Partager