Discussion :

[puledad1]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Didier Gonard]

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

[kiki29]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Didier Gonard]

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



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

[kiki29]

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