bonjour
je cherche a tri ma listview avec un combobox.

voici mon 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
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
68
69
70
71
72
73
74
75
Code Visual Basic :
 
Private Sub CommandButton1_Click()
Me.Hide
Sheets("Menu").Select
End Sub
 
Private Sub Barbecue_Click()
 Load Barbecues
 Barbecues.Show
 Unload UserForm1
 UserForm1.Show
 Sheets("Menu").Select
End Sub
 
 
Private Sub Retour_Menu_Click()
 Sheets("Menu").Select
 Range("P5").Select
 Application.DisplayFormulaBar = False
 Unload UserForm1
 End Sub
 
Private Sub TextBox1_Change()
Me.TextBox1 = Sheets("Barbecue").Range("I2")
End Sub
Private Sub userform_activate()
 
 Sheets("Barbecue").Select
 Application.DisplayFullScreen = True
 
 TextBox1.Value = Sheets("Barbecue").Range("I2").Value
 
 
 
With Me
.StartUpPosition = 3
.Width = Application.Width
.Height = Application.Height
.Left = 0
.Top = 0
End With
 
'Suppression des titres de colonnes
ListView1.ColumnHeaders.Clear
 
'Alimentation des titres de colonne :
 
ListView1.ColumnHeaders.Add , , "Mois", ListView1.Width * 0.1, lvwColumnLeft
ListView1.ColumnHeaders.Add , , "Nom", ListView1.Width * 0.22, lvwColumnLeft
ListView1.ColumnHeaders.Add , , "Nº MobilHome", ListView1.Width * 0.15, lvwColumnLeft
ListView1.ColumnHeaders.Add , , "Duree", ListView1.Width * 0.1, lvwColumnLeft
ListView1.ColumnHeaders.Add , , "Reglement", ListView1.Width * 0.12, lvwColumnLeft
ListView1.ColumnHeaders.Add , , "Prix Location", ListView1.Width * 0.13, lvwColumnLeft
ListView1.ColumnHeaders.Add , , "Total", ListView1.Width * 0.08, lvwColumnRight
ListView1.ColumnHeaders.Add , , "Caution", ListView1.Width * 0.1, lvwColumnCenter
 
'on remplit la listview
 
With Me.ListView1
.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


a l'aide d'un combobox ou j'ai une liste des mois de l'annee
apres choix dans ce comboboxavoir l'affichage du mois choisi ainsi que ses donnees
dans le combobox
Tous les mois
Janvier
Février
Mars
etc...

cris