Heure dans une textbox

Bonjour,

il faut mettre le format que tu désires :
UserForm2.TextBox3.Value = Format(Sheets(annee).Range("FT24"), "[H]:mm:ss")
eric

déjà essaie de mettre un .value et où se trouve ton addition de date ?

[code]
If mois = "01" Then
UserForm2.TextBox3.Value = Sheets(annee).Range("FT24").Value
UserForm2.TextBox3.Value = Format(Sheets(annee).Range("FT24").value, "HH:mm:ss")
end if
[_code]

A plus

C'est vraiment hallucinant cette histoire, j'ai essayé pas mal de truc sans résultat ????
Alors je suis reparti sur les bases, après tout, on n'a qu'à faire l'addition nous mêmes et en plus ça fonctionne !
Voici un petit code, j'ai mis les deux dates dans les cellules A1 & A2 et créer une fonction d'addition qui retourne une chaine de caractère pour la textbox.

[code]
Private Function addheures(t1 As Date, t2 As Date) As String
Dim h, m, s As Integer 'heures, minutes, secondes
Dim supm, suph As Integer 'suppléments minutes & heures
supm = 0
suph = 0
s = Second(t1) + Second(t2)
If s >= 60 Then
supm = Int(s / 60)
s = s - 60 * supm
End If
m = Minute(t1) + Minute(t2) + supm
If m >= 60 Then
suph = Int(m / 60)
m = m - 60 * suph
End If
h = Hour(t1) + Hour(t2) + suph
addheures = h & ":" & m & ":" & s
End Function

Private Sub Boutonadd_Click()
TextBox1.Text = addheures(Range("A1").Value, Range("A2").Value)
End Sub
[\code]

le boutonadd est un bouton que j'ai créé juste pour l'appli après la fonction peut servir n'importe où ?

A plus, mais c'est quand même délirant de ne pas pouvoir copier ce fichu résultat, si quelqu'un à l'info ça m'intéresse.

merci encore pour cette reponse

tres interressant le programme, toutefois, le calcul se fait avec deux heures en A1 et A2
Dans mon cas, j'ai une plage d'heures allant de J19 a J50 alors je ne sais pas comment utiliser la fonction pour une plage d'heures
est ce que tu peux me donner un coup de main ça serait super cool ?

merci encore pour cette fonction

up please please please oh please

Bonsoir,

voici une fonction pour te refabriquer ce que excel a du mal à faire :

Function strH(temps As Double) As String
    Dim h As Long, m As Long, s As Long
    h = Int(temps) * 24
    temps = (temps - Int(temps)) * 24
    h = h + Int(temps)
    temps = (temps - Int(temps)) * 60
    m = Int(temps)
    s = Int((temps - Int(temps)) * 60)
    strH = Right("00" & h, 2) & ":" & Right("00" & m, 2) & ":" & Right("00" & s, 2)
End Function

Tu lui passes un temps (numérique) en paramètre, il te retourne ce temps sous forme de chaine de caractère.
A copier dans un module.

Pour tester saisis un temps en A1 et lance cette macro :

Sub test()
    MsgBox (strH([A1]))
End Sub

eric

Je t'avais donné un code vite fait pour l'addition de deux dates < 24 heures, pour ce que tu veux faire le code de erric est impeccable. Bravo Erric
Attention il perd une seconde à chaque addition, tu as juste à l'ajouter en ligne des secondes

[code]
s = Int((temps - Int(temps)) * 60)+1
[\code]

Salut

Je parle de ta variable s qui elle est numérique et qui en perd une petite à chaque mise en forme (excuses moi, la perte n'est pas à l'addition mais à la conversion)
A plus