Format Date VBA et Excel

Bonjour, je vis un véritable casse tête.

J'aimerais qu'un utilisateur saisissent dans un Textbox un temps passé sur une activité sous la forme "hh:mm"

J'aimerais que cela s'enregistre dans une cellule d'une feuille Excel sous le format "[hh]:mm"

J'ai donc utiliser ce code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub Tbtime1_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'Quand on sort du textbox "Tbtime1" (celui qui contient le temps de travail Me.Tbtime1.Value = Format(Me.Tbtime1.Value, "[hh]:mm") 'format     If Not Tbtime1.Text Like "??:??" And Not Tbtime1.Text = "" Then 'Si le next n'est pas au format "hh:mm" alors qu'il contient qqch MsgBox "Invalid property value, please respect the format type hh:mm " 'Un message s'affiche à l'écran Cancel = True Tbtime1.SetFocus End If End Sub

---

Mais comme ca ne s'enregistrai pas sous le format voulu j'ai ajouté un code à l'évenement "clique" du bouton save

Code:

---

1 2	ActiveCell.NumberFormat = "[hh]:mm" ActiveCell.Value = Whyduserform!Tbtime1 'même principe

---

et enfin dans la feuille excel j'a défini le format des cellules qui recoivent les informations mais rien y fait le format reste "général"

Comment faire SVP. (C'est important que l'on puisse additioner les heures et que cela ne revienne pas à 0 aprês 24h)

Si vous voulez bien m'aider ce serait top.

Bonjour,

Vois ceci :

III-F. Gymnastique sur la gestion des Calculs Horaires et Mise en application

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier

Salut,pourquoi ne pas utiliser un DTPicker avec sa propriété Format=dtpTime
et ensuite par exemple

Code:

---

1 2 3 4

Private Sub DTPicker2_Change() ActiveCell.Value = Format(DTPicker2.Value, "hh:mm:ss") End Sub

---

Pour ce composant voir http://excel.developpez.com/faq/?pag...nstallMSCOMCT2

Bonjour,
attention aux limitations indiquées dans le tutoriel toutefois ;)

Pièce jointe 85855

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier

Salut,effectivement j'avais lu un peu vite, il faudrait adapter une colonne Temps + une autre Temps -
Option Calendrier 1904 cochée et une cellule faisant le cumul