bonjour
j'ai une userfoem avec un textbox .
j'aimerai un control du texte dans ma textbox,je demande un temps au format hh:mm et j'aimerai verifier avant la fermeture de l'userfom que les utilisateurs ont bien taper un temps au format hh:mmj'ai ce code :
Cells(Li, 11).Value = TextBox6.Value 'durée totale
If TextBox6.Value = Format(TextBox6, 'hh:mm') Then GoTo 10 Else msg = MsgBox('Veuillez entrer un format de temps valide (HH:MM)', vbCritical, 'Erreur format de temps'): UserForm1.Hide ': UserForm1.Show
10 Cells(Li, 12).Value = ComboBox5.Value 'Chaussures
Unload Me 'vide et ferme l'UserForm
Sheets('calendriers').Select
End Sub
mais ça ne marche pas
merci de votre aide
j'ai une userfoem avec un textbox .
j'aimerai un control du texte dans ma textbox,je demande un temps au format hh:mm et j'aimerai verifier avant la fermeture de l'userfom que les utilisateurs ont bien taper un temps au format hh:mmj'ai ce code :
Cells(Li, 11).Value = TextBox6.Value 'durée totale
If TextBox6.Value = Format(TextBox6, 'hh:mm') Then GoTo 10 Else msg = MsgBox('Veuillez entrer un format de temps valide (HH:MM)', vbCritical, 'Erreur format de temps'): UserForm1.Hide ': UserForm1.Show
10 Cells(Li, 12).Value = ComboBox5.Value 'Chaussures
Unload Me 'vide et ferme l'UserForm
Sheets('calendriers').Select
End Sub
mais ça ne marche pas
merci de votre aide