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

Staple1600

XLDnaute Barbatruc

• 30 Septembre 2017

• #2

Bonjour le fil, le forum

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

 

Dernière édition: 30 Septembre 2017

Vote positif 0 Vote négatif

I

INFINITY100

XLDnaute Occasionnel

• 30 Septembre 2017

• #3

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 :

VB:

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

Merci beaucoup Staple1600 c'est très gentil

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Septembre 2017

• #4

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 ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Septembre 2017

• #5

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

VB:

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.

 

Vote positif 0 Vote négatif

I

INFINITY100

XLDnaute Occasionnel

• 20 Octobre 2017

• #6

merci staple tres gentil

 

Vote positif 0 Vote négatif