Comment obtenir le résultat d'une division de 2 textbox dans une 3ème
Bonsoir à toutes et à tous !
Débutant en vba je sollicite votre aide (à nouveau) pour une problème qui peut-être déjà été solutionné ici dans le passé.
Pour certains ma requête va sembler ridicule mais comme précisé, je débute.
Voilà les faits.
Dans mon Formulaire "frmTumo", je voudrais que la valeur de la textbox "TextBoxQuantités" (saisi en numérique par un opérateur) soit divisée par la valeur de la textbox "TextBoxCadence" (valeur induite par une rechercheV de type Worksheets (d'après la sélection
à travers une combobox). La division s'affichant dans la textbox "TextBoxHeuresAllouées".
Je voudrais qu'un message d'erreur s'affiche si une erreur de saisi est faite dans "TextBoxQuantitésé, de type MsgBox "vous devez saisi des chiffres uniquement".
Voilà,
Je joins mon fichier, si des âmes charitables souhaiteraient me venir en aide je vous en serais reconnaissant.
Stéphane,
Hello,
pour limiter la saisie à des nombres :
Private Sub TextBoxQuantités_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End Sub
Private Sub TextBoxCadence_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End SubPour faire la division :
if not TextBoxCadence = 0 then TextBoxHeuresAllouées = TextBoxQuantités / TextBoxCadenceR@g
Bonsoir Rag,
Merci pour ta réponse.
Je suis désolé car je ne suis pas suffisamment calé pour tout comprendre de ta formule.
Je l'ai saisi ainsi dans le code, mais cela ne fonctionne pas.
Saurais-tu me dire quelle erreur j'ai bien pu commettre.
Je te joins à nouveau le fichier de sorte que tu puisse constater le code dans son ensemble et faire un essai.
Peut-être est-ce une question de format des TextBox ? Je ne sais pas.
En tout cas, je te remercie énormément pour ton implication.
A bientôt.
Stéphane,
' **********************
' Procédure pour calculer les "Heures Allouées" [ Quantités / Cadence ]
' **********************
Private Sub TextBoxQuantités_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End Sub
Private Sub TextBoxCadence_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End Sub
If Not TextBoxCadence = 0 Then TextBoxHeuresAllouées = TextBoxQuantités / TextBoxCadence
End Sub
Coucou R@G,
Merci pour tout, tu m'a bien dépanné.
Je comprends davantage la manip.
Encore merci.
A bientôt ....
Bonne Soirée,
Stéphane,