Textbox multiple de 5

Question

Bonjour,

je souhaiterai que quelque soit le nombre saisi dans txtmontant qu'il soit un multiple de 5 (à cause du F CFA).

Merci d'avance.

Cordialement.

NHenry · Answer

Bonjour,

IsNumeric
Mod

cs_ghuysmans99 · Answer

Private Sub txtMontant_LostFocus()
 On Error Resume Next 'on pourrait avoir une erreur à la conversion ; si c'est le cas, montant=0
 Dim montant As Integer: montant = CInt(Me.txtMontant.Text)
 Me.txtMontant.Text = CStr(Round(montant / 5) * 5)
End Sub

VB.NET is good ... VB6 is better
Utilise Réponse acceptée quand un post répond à ta question

Bacterius · Answer

Round(montant / 5) * 5)
Ou juste (plus performant et élégant) :
montant Mod 5

Cordialement, Bacterius !

cs_ghuysmans99 · Answer

Alors là ... pas du tout. 1 n'est pas multiple de 5 à ce que je sache (1 mod 5) 

VB.NET is good ... VB6 is better
Utilise Réponse acceptée quand un post répond à ta question

Bacterius · Answer

1 mod 5 est différent de zéro (1 mod 5 = 1), donc 1 n'est pas multiple de 5 ... où est le problème ?

Cordialement, Bacterius !

cs_ghuysmans99 · Answer

Ce que js8bleu, c'est que quelque soit le nombre entré dans txtMontant, qu'il soit toujours multiple de 5. Je t'ai montré que ton code ne fonctionnait pas (faut pas transformer 2435 en 0) mais je suis preneur si t'as un bout de code meilleur que le mien et fonctionnel 

VB.NET is good ... VB6 is better
Utilise Réponse acceptée quand un post répond à ta question

Bacterius · Answer

Là ce que tu fais dans ton code tu arrondis le nombre au plus proche multiple de 5, je ne pense pas que c'est ce que désire js8bleu et c'est une mauvaise pratique de modifier les champs de saisie ainsi. Il vaudrait mieux laisser l'utilisateur entrer sa valeur et si elle n'est pas un multiple de 5, afficher un message ou colorier le champ de saisie en rouge, un truc du genre. C'est une question d'usabilité d'interface graphique, on ne modifie pas en temps réel un texte que l'utilisateur tape.

Cordialement, Bacterius !

Bacterius · Answer

C'est donc pour cela que j'ai soulevé le Mod pour pouvoir vérifier si le nombre entré est bien un multiple de 5 lors de la vérification.

Cordialement, Bacterius !

cs_ghuysmans99 · Answer

Pas faux .
Private Sub txtMontant_LostFocus()
 On Error Resume Next
 Dim montant As Integer
 montant = CInt(Me.txtMontant.Text)
 If (Not err) And (montant Mod 5) Then
  If MsgBox("Le montant doit être un multiple de 5. Voulez-vous l'arrondir ?", vbQuestion Or vbYesNo) = vbYes Then
   Me.txtMontant.Text = CStr(Round(montant / 5) * 5)
  Else
   Me.txtMontant.SetFocus
  End If
 End If
End Sub

VB.NET is good ... VB6 is better
Utilise Réponse acceptée quand un post répond à ta question

Textbox multiple de 5

9 réponses

Votre réponse

Discussions similaires