Somme d'une plage dans une textBox

[boucherst]

Bonjour à tous, dans le fichier ci-joint, j'aimerais avoir à l'ouverture dans la textbox, la somme de la colonne D.

Par avance, merci pour vos réponses.

 

[pierrejean]

Re : Somme d'une plage dans une textBox

bonjour boucherst

vois si cela te convient

 

[bqtr]

Re : Somme d'une plage dans une textBox

Bonjour boucherst, le forum

Essaye avec ceci : Fait la somme de la cellule D1 à la dernière cellule non vide de la colonne D.

Private Sub UserForm_Initialize()
With Sheets("Sheet1")
TextBox1.Value = Application.WorksheetFunction.Sum(.Range("D1:D" & .Range("D65536").End(xlUp).Row))
TextBox1.Value = Format(TextBox1, "# ###.00")
End With
End Sub

A mettre dans le module de code du Userform.

A+

Bonjour pierrejean