Sub recher()
With UserForm
key = .TextBox5
cl = .ComboBox1.ListIndex
.ListView1.ListItems.Clear
Set d = Feuil3.[A10]
While (d) <> ""
If key Like UCase(Left(d.Offset(, cl), Len(key))) Then
Set lst = .ListView1.ListItems.Add(, , d.Cells(1, 1))
For i = 2 To 21
lst.ListSubItems.Add , , d.Cells(, i)
If i = 8 Then cumul = cumul + d.Cells(, i)
Next i
End If
Set d = d.Offset(1, 0)
Wend
.TextBox3.Value = .ListView1.ListItems.Count
.TextBox4.Value = Format(Replace(cumul, ".", ","), "0.00 Litres")
End With
End Sub
Merci beaucoup pour votre aide.Bonjour
VB:Sub recher() With UserForm key = .TextBox5 cl = .ComboBox1.ListIndex .ListView1.ListItems.Clear Set d = Feuil3.[A10] While (d) <> "" If key Like UCase(Left(d.Offset(, cl), Len(key))) Then Set lst = .ListView1.ListItems.Add(, , d.Cells(1, 1)) For i = 2 To 21 lst.ListSubItems.Add , , d.Cells(, i) If i = 8 Then cumul = cumul + d.Cells(, i) Next i End If Set d = d.Offset(1, 0) Wend .TextBox3.Value = .ListView1.ListItems.Count .TextBox4.Value = Format(Replace(cumul, ".", ","), "0.00 Litres") End With End Sub