Totale d'une colonne de listbox dans une textbox

Bonjour,

Je suis débutante en VBA et cherche depuis plusieurs heures une solution à mon problème.

Ci-joint vous trouverez mon fichier pour exemple.

Je souhaite faire apparaître dans la textbox2 le totale de la colonne 2 de ma List box1.

au passage j'ai aussi un petit problème de format de ma deuxième colonne qui doit normalement être numérique avec deux décimales.

Quelqu'un peut il m'aider?

Je vous remercie d'avance.

Josyl

Bonjour,

à tester,

Private Sub B_go_Click()
    Me.ListBox1.Clear
    Set c = Range("a:o").Find(Me.TextBox1.Value, LookIn:=xlValues)
    If Not c Is Nothing Then
      premier = c.Address
      i = 0
      Do
        Me.ListBox1.AddItem
        Me.ListBox1.List(i, 0) = c.Value
        Me.ListBox1.List(i, 1) = Format(c.Offset(0, 11).Value, "0.00")
        Me.ListBox1.List(i, 2) = c.Offset(0, 13).Value
        Set c = Range("a:o").FindNext(c)
        i = i + 1

      Loop While Not c Is Nothing And c.Address <> premier
   End If
   Me.TextBox2 = Format(Application.SumIfs(Range("L:L"), Range("A:A"), "*" & Me.TextBox1 & "*"), "0.00")
End Sub

C'est parfait. Merci!