re formule de somme de textbox a réduire

[xavier]

je viens d'essayer la formule suivante dans mon user

TextBox5.Value = WorksheetFunction.Sum(Worksheets("capacité").Range("B8:B13"))

elle fonctionne impec.

toutefois dans chaques textbox, je doir entrer la formule suivante

Private Sub TextBox10_exit(ByVal cancel As MSForms.ReturnBoolean)
Worksheets("communication").Select
TextBox14.Value = Range("D14").Value + Range("E14").Value + Range("F14").Value + Range("G14").Value + Range("H14").Value + Range("I14").Value + Range("J14").Value + Range("K14").Value + Range("L14").Value + Range("M14").Value + Range("N14").Value + Range("O14").Value
End Sub

est il possible de la réduire aussi?

merci

 

[Jean-Marie]

Xavier

Tu as fumé, lol. Xavier li ne faut pas recopier les codes que l'ont te donnent, sans essayer de les comprendre. Tu vas pas faire beaucoup de progrès, si tu ne les analyses pas.

Worksheets("communication").Select
TextBox4.Value = WorksheetFunction.Sum(Range("D14:014"))

@+Jean-Marie

 

[xavier]

merci

mais je suis non fumeur j'ai rectifié le tir trop tard sorry pour le dérangement

@++

xavier

 

[Jean-Marie]

Re...

Pas grave Xavier, je suis le premier à vouloir aller trop vite.

@+Jean-Marie