Vérifier un type

Bonjour,

Je cherche à vérifier qu'une valeur saisie (ici un temps en secondes) est bien de type décimal.

Lorsque l'utilisateur saisie une valeur dans la textbox "chrono", on vérifie que la valeur est bien décimale pour qu'elle soit ensuite utilisable dans la feuille "Feuille_J"

Merci d'avance pour votre réponse.. cf le fichier.

10logiciel-cso.xlsm (73.84 Ko)

a votre disposition pour toute question

Bonjour Maxime, bonjour le forum,

Ce petit bout de code t'empêchera de taper tout autre caractère que {0, 1, 2, 3, 4, 5, 6, 7, 8, 9}, le point sera remplacé automatiquement par une virgule :

Private Sub chrono_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 46 Or KeyAscii = 44 Then KeyAscii = 44: Exit Sub
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 8
End Sub

à la fin quand tu valides tu peux écrire sans bug :

If Me.chrono.Value = "" Then Me.TextBox1.Value = 0
Me.chrono.Value = CDbl(Me.TextBox1.Value)
Rechercher des sujets similaires à "verifier type"