[XL-2007] faire un tri avec combox dans listview [Résolu]

[chris09300]

Bonjour
J'ai le code suivant, et je cherche a faire un tri dans la listview sur la 1ere colonne "Mois" et sur une autre colonne "Date":
mettre deux combox pour chaque tri.
j'ai vu des exemple, mais je ne suis pas arrive a les adapter a mon code
merci
cris

Code :

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
 
Private Sub CommandButton1_Click()
Me.Hide
Sheets("Massage").Select
End Sub
Private Sub Massage_Click()
 Load Resa_Massage
 Resa_Massage.Show
 Unload UserForm8
 UserForm8.Show
 Sheets("Menu").Select
End Sub
Private Sub Retour_Menu_Click()
 Sheets("Menu").Select
 Unload UserForm8
 End Sub
Private Sub TextBox1_Change()
Me.TextBox1 = Sheets("Massage").Range("J2")
End Sub
Private Sub userform_Activate()
 
 Sheets("Massage").Select
 Application.DisplayFullScreen = True
 
 TextBox1.Value = Sheets("Massage").Range("J2").Value
 
With Resa_Massage
.StartUpPosition = 3
.Width = Application.Width
.Height = Application.Height
.Left = 0
.Top = 0
End With
 
'Suppression des titres de colonnes
ListView9.ColumnHeaders.Clear
 
'Alimentation des titres de colonne :
 
ListView9.ColumnHeaders.Add , , "Mois", ListView9.Width * 0.1, lvwColumnLeft
ListView9.ColumnHeaders.Add , , "Nom", ListView9.Width * 0.17, lvwColumnLeft
ListView9.ColumnHeaders.Add , , "Nº MH", ListView9.Width * 0.06, lvwColumnCenter
ListView9.ColumnHeaders.Add , , "Date", ListView9.Width * 0.1, lvwColumnCenter
ListView9.ColumnHeaders.Add , , "Type de Massage", ListView9.Width * 0.2, lvwColumnCenter
ListView9.ColumnHeaders.Add , , "Réglement", ListView9.Width * 0.12, lvwColumnCenter
ListView9.ColumnHeaders.Add , , "Durée", ListView9.Width * 0.1, lvwColumnCenter
ListView9.ColumnHeaders.Add , , "Prix", ListView9.Width * 0.06, lvwColumnCenter
ListView9.ColumnHeaders.Add , , "Total", ListView9.Width * 0.09, lvwColumnCenter
 
'on remplit la listview
 
With Me.ListView9
.ListItems.Clear
    For Each V In Range("a4:a" & Range("a65536").End(xlUp).Row)
        x = x + 1
        .ListItems.Add , , V.Text
        .ListItems(x).ForeColor = V.Font.Color
 
        For j = 1 To 8
            .ListItems(x).ListSubItems.Add , , V.Offset(0, j).Text
            .ListItems(x).ListSubItems(j).ForeColor = V.Offset(0, j).Font.Color
 
        Next j
Next V
End With
 
End Sub

[Cocotte278]

Ola Chris,

Je ne vois pas bien l'intérêt de mettre des Combobox, peux-tu m'éclairer ?

Et qd tu dis "trier", en fait tu souhaites juste afficher un mois en particulier (par exemple) ? Ou quoi ?



Personnellement, j'ai ajouter une feuille à mon classeur Excel dans laquelle je mets (par macro) le résultat de ma recherche (dans ton cas ce serait ton tri) et ensuite je transporte le contenu de cette feuille dans ma ListView.

Je ne sais pas si je suis claire... Tu passes par un intermédiaire quoi. Je ne pense pas qu'on puisse le faire directement dans la ListView.

[chris09300]

Bonsoir
quand j'ai mon userform et ma listview en visu, j'obtient dans cette listview toutes les donnees que j'ai dans ma feuille. J'ai une liste avec en 1ere colonne divers mois, ex: octobre, novembre,etc.et les valeurs dans les autres colonnes.
et je souhaiterais avec un combobox trier par exemple le mois d'octobre avec ses valeurs. Je sais que l'on peux le faire je l'est vu, mais je n'est pas arrive a l'adapter a mon code.
cris