Somme dans listbox

Bonjour le forum

Dans le fichier que je place en pièce jointe j'ouvre un "userform" qui me positionne sur une feuille puis me lance

un autre "userform" contenant des colonnes

Je cherche à faire la somme dans des "Textbox" de mes colonnes contenues dans le "Listbox"

Je ne comprends pas pourquoi ça ne fonctionne pas

Si quelqu'un pouvait y jeter un oeil

D'avance je vous remercie pour votre aide et votre disponibilité

Bonjour,

Private Sub UserForm_Initialize() 'à l'initialisation de l'UserForm
 Dim DernLign As Long
  Set F = ActiveSheet
  DernLign = F.Cells(Rows.Count, 1).End(xlUp).Row
  tbl1 = F.Range("A3:S" & DernLign).Value

  Dim Tbl2: ReDim Tbl2(1 To UBound(tbl1), 1 To 6)
  col = 0
  For Each k In Array(1, 15, 16, 17, 18, 19)
    col = col + 1
    For I = 1 To UBound(tbl1): Tbl2(I, col) = tbl1(I, k): Next I
  Next k
  Me.ListBox1.List = Tbl2

  For Each k In Array(15, 16, 17, 18, 19)
    Me.TextBox1 = Application.Sum(Me.TextBox6 & "!" & Range(Cells(3, k), Cells(DernLign, k)).Address)
  Next k
End Sub

Bonsoir le forum

Bonsoir sabV merci pour ta disponibilité et pour ton aide

je n'arrive pas à faire fonctionner ton code

j'ai placé une deuxième version de mon fichier avec une capture d'écran de ce que je cherche à réaliser

Une précision le "textbox6" contient le nom de l'affaire consulter

merci pour ton aide

Une précision le "textbox6" contient le nom de l'affaire consulter

la valeur n'est pas encore transmit au "textbox6" au moment du calcul

mais j'ai fais autrement

Bonjour le forum

Bonjour sabV

c'est impec super ça fonctionne nickel

Merci beaucoup pour ton aide et ta disponibilité