Pierre,

Code like:

UserForm1.TextBox1.Text = Application.WorksheetFunction.Sum( _
Worksheets("Sheet1").Range("D2", Worksheets("Sheet1").Range("D2").End(xlDown)))

Tie it into one of your events.

HTH,
Bernie
MS Excel MVP


"Pierre" wrote in message ...
Hi all,

I have a macro that open a form

The user fill an excel sheet with this form

So i have a growing number of lines in the excel sheet.

I just want to sum colum D from the second line up to the end
and display the total on the form each time a line is created on the excel
sheet

How can i do that?

regards,

Pierre