Sur un userform j'ai un textbox dans lequel les gens doivent entrer un
montant.
Comment faire pour qu'ils ne puissent entrer que deux décimales au maximum?
Par contre si ils rentrent plus tu aura une erreur qu'il faudra gerer
PMO
Bonjour,
Private Sub TextBox1_AfterUpdate() If IsNumeric(TextBox1) Then TextBox1 = CLng(TextBox1 * 100) / 100 End If End Sub
Cordialement. -- PMO Patrick Morange
Bonjour à tous,
Sur un userform j'ai un textbox dans lequel les gens doivent entrer un montant. Comment faire pour qu'ils ne puissent entrer que deux décimales au maximum?
Merci pour votre aide
Denys
Bonjour,
Private Sub TextBox1_AfterUpdate()
If IsNumeric(TextBox1) Then
TextBox1 = CLng(TextBox1 * 100) / 100
End If
End Sub
Cordialement.
--
PMO
Patrick Morange
Bonjour à tous,
Sur un userform j'ai un textbox dans lequel les gens doivent entrer un
montant.
Comment faire pour qu'ils ne puissent entrer que deux décimales au maximum?
Private Sub TextBox1_AfterUpdate() If IsNumeric(TextBox1) Then TextBox1 = CLng(TextBox1 * 100) / 100 End If End Sub
Cordialement. -- PMO Patrick Morange
Bonjour à tous,
Sur un userform j'ai un textbox dans lequel les gens doivent entrer un montant. Comment faire pour qu'ils ne puissent entrer que deux décimales au maximum?
Merci pour votre aide
Denys
Denys
Bonjour Patrick
Merci beaucoup d'avoir pris le temps de répondre...
Bone fin de semaine
Denys
Bonjour,
Private Sub TextBox1_AfterUpdate() If IsNumeric(TextBox1) Then TextBox1 = CLng(TextBox1 * 100) / 100 End If End Sub
Cordialement. -- PMO Patrick Morange
Bonjour à tous,
Sur un userform j'ai un textbox dans lequel les gens doivent entrer un montant. Comment faire pour qu'ils ne puissent entrer que deux décimales au maximum?
Merci pour votre aide
Denys
Bonjour Patrick
Merci beaucoup d'avoir pris le temps de répondre...
Bone fin de semaine
Denys
Bonjour,
Private Sub TextBox1_AfterUpdate()
If IsNumeric(TextBox1) Then
TextBox1 = CLng(TextBox1 * 100) / 100
End If
End Sub
Cordialement.
--
PMO
Patrick Morange
Bonjour à tous,
Sur un userform j'ai un textbox dans lequel les gens doivent entrer un
montant.
Comment faire pour qu'ils ne puissent entrer que deux décimales au maximum?
Merci beaucoup d'avoir pris le temps de répondre...
Bone fin de semaine
Denys
Bonjour,
Private Sub TextBox1_AfterUpdate() If IsNumeric(TextBox1) Then TextBox1 = CLng(TextBox1 * 100) / 100 End If End Sub
Cordialement. -- PMO Patrick Morange
Bonjour à tous,
Sur un userform j'ai un textbox dans lequel les gens doivent entrer un montant. Comment faire pour qu'ils ne puissent entrer que deux décimales au maximum?
