Format textbox

[Tail]

bonsoir
j'ai chercher toute la journée sur le forum mais je n'ai pas trouvé réponse à ma question :
j'ai un fichier avec une userform contenant 2 textbox.
j'aimerai que les donné entrées dans ces textbox soit vérifier pour controler le format.J'aimerai que le format soit en heure (HH:MM) et ainsi eviter les erreurs de saisis.
Donc un 'truc qui verifie que l'utilisateur à entré un nombre en format (hh:mm) c'est ok autrement un message s'affiche pour l'informer de l'erreur et on reviens sur les textbox .
je ne sais pas si j'ai été clair ,demander moi si besoin

Ci joint le fichier et merci de votre aide
[file name=Textbox.zip size=8330]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Textbox.zip[/file]

 

[excalibur]

bonjour tail , le forum essaie cela Private Sub TextBox8_Change()
Dim Chge As Boolean
If Not Chge Then
With TextBox8
Select Case Len(.Text)
Case 2
.Text = .Text & ':'
End Select
End With
Else
Chge = False
End If
Sheets('feuil1').Range('k10').Value = TextBox8
End Sub' dans proprietes tu limites maxleng = 5 caracteres salutations

 

[Tail]

bonjour
j'ai plusieurs textbox dans le meme userform comprenant du texte et d'autres des temps, le lien proposé empèche la saisie de touche alphanumérique donc ne correspond pas tout a fait à ce que je cherche et je n'arrive pas à l'adapté à mon fichier
merci pour votre aide

 

[Tail]

re bonjour
ou alors permettre de rentrer un nombre en minutes par ex 95 et me le mettre dans le fichier en format 1:35

merci

 

[Staple1600]

Bonjour le fil, le forum

Public Function VerifSaisie(V As String) As Boolean
'Vérifie la cohérence de la saisie 00:00
Dim i As Byte
    If Len(V) <> 5 Then GoTo Fin
    For i = 1 To 5
        If i <> 3 Then
            If Not IsNumeric(Mid(V, i, 1)) Then GoTo Fin
        Else
            If Mid(V, i, 1) <> ':' Then GoTo Fin
        End If
    Next i
    VerifSaisie = True
    Exit Function
Fin:
    If Not VerifSaisie Then
        MsgBox ('Horaire saisi non reconnu [hh:mm]!')
    End If
End Function

C'est bien ce que tu voulais non????
et c'était là:
Lien supprimé

 

[Tail]

bonjour
je crois que je ne me fais pas comprendre
j'ai ce code :
Private Sub CommandButton1_Click() 'bouton 'Ok'
1 Sheets('calendriers').Select
Dim Li As Integer 'déclare la variable Li
Li = Cells(ComboBox1.List(ComboBox1.ListIndex, 1), 1).Row 'définit la variable Li

'remplit les cellules de la date désignées
Cells(Li, 2).Value = ComboBox2.Value 'Météo
'jour / nuit
If OptionButton1.Value = True Then
Cells(Li, 3).Value = 'Jour'
Else
Cells(Li, 3).Value = 'Nuit'
End If
Cells(Li, 4).Value = TextBox1.Value 'Poids
Cells(Li, 5).Value = TextBox2.Value 'Pouls au repos
Cells(Li, 6).Value = TextBox3.Value 'Observations
Cells(Li, 7).Value = ComboBox3.Value 'Type de Séance
Cells(Li, 8).Value = TextBox5.Value 'Durée de la séance
Cells(Li, 9).Value = ComboBox4.Value 'État de Forme
Cells(Li, 10).Value = TextBox4.Value 'Distance
Cells(Li, 11).Value = TextBox6.Value 'durée totale
Cells(Li, 12).Value = ComboBox5.Value 'Chaussures
Unload Me 'vide et ferme l'UserForm
Sheets('calendriers').Select
End Sub
et j'aimerai controler les textbox 5 et 6 pour que l'utilisateur ne puisse rentrer que des nombre format (HH:MM)
merci de votre aide

 

[Tail]

oui sur l'exemple ça marche mais je n'arrive pas à le mettre dans mon fichier
j'ai plusieurs pages avec plusieurs userform c'est peut etre pour ça ???

merci

 

[Tail]

bonjour
ok c'est bon j'ai trouvé
sans vous je crois que je ne pourrai pas en dire autant vraiment sympa pour vous acharner sur moi je suis débutant et j'ai franchement du mal mais grace à vous je progresse

merci

 

[Tail]

bonsoir
et le meme code pour un format (h:mm)?
merci

 

[Staple1600]

Bonsoir
Logiquement en modifiant le code comme suit
(à vérifier)

Public Function VerifSaisie(V As String) As Boolean
'Vérifie la cohérence de la saisie 0:00
Dim i As Byte
If Len(V) <> 4 Then GoTo Fin
For i = 1 To 4
If i <> 2 Then
If Not IsNumeric(Mid(V, i, 1)) Then GoTo Fin
Else
If Mid(V, i, 1) <> ':' Then GoTo Fin
End If
Next i
VerifSaisie = True
Exit Function
Fin:
If Not VerifSaisie Then
MsgBox ('Horaire saisi non reconnu [h:mm]!')
End If
End Function

 

[Tail]

trop cool
merci ça marche
j'aimerai progresser en VBA ,comment vous avez fait vous pour apprendre ??
merci