bonjour
je cherche a tri ma listview avec un combobox.
voici mon code:
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