imposer format de saisie hh:mm:ss,00

[freemoun]

Bonjour,
je reviens sur le forum pour un problême de format. J'ai "simplifié" au maximum mon projet pour pouvoir le poster.
Mon problême est le suivant:
j'aimerais imposer le format hh:mm:ss,00 dans mes textbox et que l'archivage se fasse dans le même format pour pouvoir ensuite les additionner.
Merci de votre aide

 

[jp14]

Re : imposer format de saisie hh:mm:ss,00

Bonjour

Ci dessous un contrôle qui devrait répondre au problème

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If InStr(1, TextBox2.Value, "/") > 0 Then
    Call MsgBox("Vous devez entrer une heure sous la forme " _
                & vbCrLf & "hh:mm:ss,00" _
                , vbCritical, Application.Name)
    Exit Sub
End If
If InStr(1, TextBox2.Value, ",") > 0 Then
    date2 = Mid(TextBox2.Value, 1, InStr(1, TextBox2.Value, ",") - 1)
Else
     date2 = TextBox2.Value
End If

On Error GoTo erreur
date1 = TimeValue(date2)
Exit Sub
erreur:
Call MsgBox("L'heure entrée est invalide" _
            & vbCrLf & "Vous devez l'écrire sous la forme hh:mm:ss,0" _
            , vbCritical, Application.Name)
Resume Next
End Sub

Il faut faire le distinguo entre l'heure et la date.
La fonction TimeValue n'aime pas la la virgule d'où le test

A tester

JP

 

[maronnette]

Re : imposer format de saisie hh:mm:ss,00

Bonjour, je travail avec freemoun et nous avons testé les lignes de code et elles ne fonctionnent pas. En effet le message d'erreur s'affiche même lorsque nous utilisons le bon format et en plus il ne se converti pas en format heure et reste en format texte (comme sortant d'une textbox). Pourriez vous essayer de nous faire un exemple à partir du document joint. Merci d'avance.

 

[jp14]

Re : imposer format de saisie hh:mm:ss,00

Bonjour

Bonjour,
je reviens sur le forum pour un problême de format. J'ai "simplifié" au maximum mon projet pour pouvoir le poster.
Mon problême est le suivant:
j'aimerais imposer le format hh:mm:ss,00 dans mes textbox et que l'archivage se fasse dans le même format pour pouvoir ensuite les additionner.
Merci de votre aide

VBA n'aime pas la virgule ou un point dans une date ( une heure est une date en vba) donc pour transférer de l'usf vers la feuille il faut utiliser les chaînes de caractères.
Dans la feuille on utilise comme format le format personnalisé "hh:mm::ss,00".

JP