Discussion :

[apt]

Bonjour à tous,

J'aimerais à l'aide de la fonction :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Function Check_hourFormat(m As String) As Boolean
'Fonction permettant de vérifier l'heure entrée dans un textbox par un
'utilisateur est de la forme hhmm
'checkformat renvoi 0 pour une saisie conforme, sinon 1
Dim hr As Integer 'variable des heures
Dim min As Integer 'variable des minutes
    If Len(m) < 4 Then Exit Function    'si la valeur saisie par l'utilisateur est inférieur à
                                        '4 caractères, alors Check_Hourformat non conforme
    If m Like "##:##" Then m = Left(m, 2) & Right(m, 2)
    If m Like "####" Then
        hr = Fix(m / 100)       ' permet de récupérer la partie concernant les heures
        min = m - (hr * 100)    ' permet de récupérer la partie concernant les minutes
        If hr > 23 Or min > 59 Then Exit Function   'Vérifications des heures et minutes entrées
        Check_hourFormat = True
    End If
End Function

Trouvée ici :

http://www.developpez.net/forums/d11...aisie-textbox/

Pouvoir saisir 3 chiffres dans un TextBox, après la fonction complète le format en ajoutant un zéro devant le premier chiffre :

Ex : Si je saisie "932", dans le TextBox, le texte se transformeras en "09:32"

Parce que dans un cas pareil, la fonction déclenche une erreur !

Merci d'avance.

[Marc-L]

Bonjour !

Extraire la partie de droite avec la fonction Right

puis la partie de gauche avec la fonction Left en retirant 2 à la longueur initiale de la chaine (fonction Len)

et enfin concaténer les deux parties avec les deux-points via l'opérateur &; voir aussi les fonctions Format, TimeSerial …

: Manipuler les chaînes de caractères en VB6 et VBA Excel …

__________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

__________________________________________________________________________________________________
Tous unis, tous Charlie

[apt]

Bonjour Marc-L,

j'ai essayé de modifier le code pour prendre en charge le cas de la saisie de 3 chiffres, en complétant pas un zéro devant.

Mais sa déclenche toujours une erreur !

Code :

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

1
2
3
4
5
6
7
8
9
10
    If Len(m) < 3 Then Exit Function    'si la valeur saisie par l'utilisateur est inférieur à
'4 caractères, alors Check_Hourformat non conforme
    If m Like "##:##" Then m = Left(m, 2) & Right(m, 2)
    If m Like "###" Then m = "0###"
    If m Like "####" Or m Like "0###" Then
        hr = Fix(m / 100)       ' permet de récupérer la partie concernant les heures
        min = m - (hr * 100)    ' permet de récupérer la partie concernant les minutes
        If hr > 23 Or min > 59 Then Exit Function   'Vérifications des heures et minutes entrées
        Check_hourFormat = True
    End If

[Philippe Tulliez]

Bonjour,
Que veux-tu exactement ?
J'ai compris que si l'on entre dans un TextBox un nombre de trois ou quatre chiffres le format nombre doit être transformé en décimal (une heure en Excel est comprise entre 0 et 1). Soit Exemple 930 doit donné 09:30
Par contre est-ce dans le TextBox lui-même que le format doit être renvoyé ou bien dans une cellule Excel ?
Et je suppose qu'il doit être possible d'entrer deux voir un chiffre. 30 -> 00:30

[apt]

Bonjour Philippe,

si l'on entre dans un TextBox un nombre de trois ou quatre chiffres le format nombre doit être transformé en décimal (une heure en Excel est comprise entre 0 et 1). Soit Exemple 930 doit donné 09:30

Exactement ça !

Par contre est-ce dans le TextBox lui-même que le format doit être renvoyé ou bien dans une cellule Excel ?

Le format devra-être retourner dans le TextBox.

Et je suppose qu'il doit être possible d'entrer deux voir un chiffre. 30 -> 00:30

Oui, c'est une possibilité pour le cas de minuit (00:00)

[Marc-L]

Code :

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

1
2
3
4
Sub Demo()
    Const TXT = "932"
    MsgBox Left(TXT, Len(TXT) - 2) & ":" & Right(TXT, 2)
End Sub

En dehors du tutoriel, suffit pourtant juste de lire l'aide VBA intégrée des fonctions Format, TimeSerial, …
C'est comme les LEGO, suffit d'emboîter ‼

__________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

__________________________________________________________________________________________________
Tous unis, tous Charlie

[apt]

En retour j'aurais : 9:32 est non pas 09:32 (Compléter avec le zéro devant le 9)

[clementmarcotte]

En retour j'aurais : 9:32 est non pas 09:32 (Compléter avec le zéro devant le 9)

Franchement ?????????????????????????????

juste à mettre cela:

Code :

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

Const TXT = "0932"

au lieu de:

Code :

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

 Const TXT = "932"

Un clic sur un mot-clef et

Des fois, je me dis...

[apt]

Bonsoir Clement,

9:32 ce n'est pas une constante mais qu'un exemple de saisie dans un TextBox avec 3 chiffres

[Noizette]

Besoin d'aide pour ajouter un 0 dans une chaîne?. Je suis sur que tu peux réussir par toi même. Les fonctions explquées par Marc-L doivent te permettre de le faire à bon escient.

[clementmarcotte]

En retour j'aurais : 9:32 est non pas 09:32 (Compléter avec le zéro devant le 9)

PEBKAC

Tu nous niaises ? Ça ne prend pas la tête à Papineau pour comprendre que entres 0932 dans ton TextBox sans aucun autre chichi.

Ensuite tu prends

Code :

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

1
2
3
4
Sub Demo()
     TXT =CStr(textbox1.value)
     MsgBox Left(TXT, Len(TXT) - 2) & ":" & Right(TXT, 2)
End Sub

P : Problem
E : Exists
B : Between
K : Keyboard
A : And
C : Chair

[apt]

Bonsoir à tous,

Voila ce que j'ai tenté de modifier et ça marche !

J'ai ajouté cette ligne dans la fonction Check_hourFormat

Code :

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

If m Like "###" Then m = "0" & Left(m, Len(m) - 2) & Right(m, 2)

pour que le TextBox prend en charge la saisie de 3 chiffres.

Elle de devient :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Function Check_hourFormat(m As String) As Boolean
'Fonction permettant de vérifier l'heure entrée dans un TextBox par un
'utilisateur est de la forme hhmm
'checkformat renvoi 0 pour une saisie conforme, sinon 1
    Dim hr As Integer    'variable des heures
    Dim min As Integer    'variable des minutes
    If Len(m) < 3 Then Exit Function    'si la valeur saisie par l'utilisateur est inférieur à
'3 caractères, alors Check_Hourformat non conforme
    If m Like "##:##" Then m = Left(m, 2) & Right(m, 2)
    If m Like "###" Then m = "0" & Left(m, Len(m) - 2) & Right(m, 2)   '"0###"
    If m Like "####" Then
        hr = Fix(m / 100)       ' permet de récupérer la partie concernant les heures
        min = m - (hr * 100)    ' permet de récupérer la partie concernant les minutes
        If hr > 23 Or min > 59 Then Exit Function   'Vérifications des heures et minutes entrées
        Check_hourFormat = True
    End If
End Function

Et dans l’événement TextBox2_Exit(), j'ai ajouté cette ligne :

Code :

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

TextBox2 = Format(Left(TextBox2.Value, Len(TextBox2.Value) - 2), "00") & ":" & Right(TextBox2.Value, 2)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'evenement LostFocus utilisé, ainsi la procédure s'exécute
'lors de la perte du focus par le contrôle TextBox2
'cette procédure appelle la fonction check_HourFormat
 
'si check_HourFormat = VRAI (True), elle formate le TextBox2 dans la forme hh:mm
    If TextBox2.Value = "" Then Exit Sub
    If Not Check_hourFormat(TextBox2.Value) Then
        MsgBox "le format de l'heure saisie n'est pas valide", vbExclamation, "Erreur de saisie"
        TextBox1.Value = ""
        Cancel = True
    Else
        TextBox2 = Format(Left(TextBox2.Value, Len(TextBox2.Value) - 2), "00") & ":" & Right(TextBox2.Value, 2)
    End If
End Sub

Merci pour vous tous.