Récupérer la somme d'une plage dans un Textbox en format (hh:mm)

[INFINITY100]

Bjr à tous

Voila je me bloque sur la syntaxe d'une formule au quelle je voudrai récupérer la somme d'une plage dans la feuil1 vers un Textbox dans un Userform en format (hh:mm)

j'ai essayé d’utiliser cette application mais il me renvoi une erreur

TextBox_heures_minutes.Value = Application.WorksheetFunction.Sum(Feuil1.Format(Range("F3:F10"), "HH:MM"))

Donc qu'elle est la syntaxe correct à utliser ?

Merci à vous tous

Cordialement

 

[Staple1600]

Bonjour le fil, le forum

Non testé
TextBox_heures_minutes.Value = Format(Application.Sum(Feuil1.Range("F3:F10")),"HH:MM")

 

[INFINITY100]

Apres teste ça marche à merveille

Juste une correction

Après APPLICATION il y a juste un (.) et non (..)
Et après FEUIL1 il manque (.)
Ce qui nous donne le code correct comme suit :

TextBox_heures_minutes.Value = Format(Application.Sum(Feuil1.Range("F3:F10")), "HH:MM")

Merci beaucoup Staple1600 c'est très gentil

😉

 

[Staple1600]

Re

Merci de m'avoir corrigé 😉
(j'ai saisi d'une main tout en roulant une cigarette de l'autre)

C'est peut être gentil mais c'est imparfait cette histoire 😉
Si ta somme d'heures dépasse 24h , il se passe quoi dans ta textbox ?

 

[Staple1600]

Bonsoir le fil, le forum

Comme je le disais à 15h44, si la somme dépasse 24h, ca coincera
Alors mieux vaut assurer ses arrières comme ceci 😉

Private Sub CommandButton1_Click()
Dim Heures As Range
Set Heures = Feuil1.Range(Feuil1.Cells(3, 6), Feuil1.Cells(Rows.Count, 6).End(xlUp))
With Application
    TextBox1 = .WorksheetFunction.Text(.Sum(Heures), "[hh]:mm")
End With
End Sub

PS: je te laisse faire les changements selon cette syntaxe sur ton propre userform.

 

[INFINITY100]

merci staple tres gentil