blord
XLDnaute Impliqué
Bonjour à tous,
J'aimerais charger le contenu d'une listview en fonction d'un nom de feuille variable qui serait contenu dans un textbox [TextBoxJour], voici ce que j'ai tenté de bricoler sans succès....
Merci pour votre aide !
Blord
J'aimerais charger le contenu d'une listview en fonction d'un nom de feuille variable qui serait contenu dans un textbox [TextBoxJour], voici ce que j'ai tenté de bricoler sans succès....
Code:
Sub LoadListView1()
Dim f As Worksheet
'Set f = Sheets(feuille)
Set f = TextBoxJour.Value
Dim I As Long
Dim j As Integer, X As Integer
Dim somme As Double
With ListView1
X = .ListItems.Count + 1
.ListItems.Clear
With .columnHeaders
.Clear
.Add , , "Temps", 50, lvwColumnLeft
.Add , , "Projet", 200, lvwColumnLeft
.Add , , "Détail", 200, lvwColumnLeft
.Add , , "Clé", 1, lvwColumnLeft
End With
.View = 3
.FullRowSelect = True
.Gridlines = True
.labeledit = 1
For I = 2 To Sheets(f).Range("A65536").End(xlUp).Row
If Left(Sheets(f).Cells(I, 1), 8) = TextBoxCle.Value Then
.ListItems.Add , , Format(Sheets(f).Cells(I, 2), "0.00")
X = .ListItems.Count
somme = somme + .ListItems(X)
.ListItems(X).ListSubItems.Add , , Sheets(f).Cells(I, 3)
.ListItems(X).ListSubItems.Add , , Sheets(f).Cells(I, 4)
.ListItems(X).ListSubItems.Add , , Sheets(f).Cells(I, 1)
End If
Next
TextBoxHeures.Value = Format(somme, "0.00")
End With
End Sub
Merci pour votre aide !
Blord