autoriser fraction dans TextBox

[herve62]

Bonjour

Voici le code

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsNumeric(TextBox1.Value) Then
MsgBox " Ce n'est pas une valeur Numérique"
TextBox1.Value = ""
Cancel = True
TextBox1.SetFocus
End If
End Sub

J'ai traité l'entrée de caractères ( refus) , par contre je n'ai plus le droit d'entrer non plus une FRACTION : 7/9
Comment l'autoriser ?
Merci

 

[Modeste geedee]

Re : autoriser fraction dans TextBox

Bonsour®

If Not IsNumeric(Evaluate(TextBox1.Value)) Then
MsgBox " Ce n'est pas une valeur Numérique"
Else
Msgbox Evaluate(TextBox1.Value)
'...<Le code>..
End If

 

[herve62]

Re : autoriser fraction dans TextBox

Merci Modeste
Mais ce n'est pas ça , j'ai déjà mis c1=Evaluate(textbox1.value) dans mon bouton de "calcul"

Mais de toute façon une fois entré 7/9 le NOT IsNumeric est pris en compte
car pour Vba 7/9 n'est pas considéré comme NUMERIC
Je cherche le format qui accepte les fractions ( j'ai fait pas mal de sites ... meme en anglais et je trouve pas)

 

[Pierrot93]

Re : autoriser fraction dans TextBox

Bonjour,

pas tout compris, peut être une autre approche en autorisant la saisie que de certains caractères... A voir....

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If InStr("0123456789./", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

bon après midi
@+

 

[herve62]

Re : autoriser fraction dans TextBox

Bonsoir Pierrot
Voilà comment j'ai arrangé ta proposition , ca à l'air de tourner :

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("0123456789./", Chr(KeyAscii)) = 0 Then KeyAscii = 0
If KeyAscii = 0 Then
MsgBox " Ce n'est pas une valeur Numérique"
TextBox1.Value = ""
TextBox1.SetFocus
End If
End Sub

Refuse caractères : OK
Accepte fractions : ok car ensuite dans mon bouton "calcul" je fais C1=Evaluate(TextBox1.value) et j'ai une valeur correcte
Petit Hic : j'ai une 2eme Textbox ident. ou je mettais à la fin : Calcul.Set Focus et ca va plus ( dû au KeyPress ? je suppose) mais bon je m'en passerais

Merci de ton aide , A+

 

[Pierrot93]

Re : autoriser fraction dans TextBox

Re,

bah si ca fonctionne pour "TextBox1" cela devrait fonctionner également pour le textbox "Calcul", enfin à voir les différents codes liés à ce contrôle....

 

[herve62]

Re : autoriser fraction dans TextBox

Non l'autre TExtbox fonctionne aussi sur le meme principe sauf que je dois agir sur le Bouton ( command_button) CALCUL
donc dans la dernière textbox (2) je met : CALCUL.SETFOCUS .... et ca marche pas , la TextBox2 reste VIDE !!!!

truc aussi remarqué : avec les controles KEYPRESS dans les Textbox ... on peut plus faire du PAS A PAS DETAILLE en DEBOGAGE ??

 

[Pierrot93]

Re : autoriser fraction dans TextBox

Bonjour,

peut être qu'un tout petit fichier reproduisant uniquement le problème posé, nous aiderait à t'aider...

bonne journée
@+