Bonjour

Je patauge un peu encore!!! j'ai deux problemes dans et avec un textbox
La saisie dans ce textbox5 ne doit etre que numérique je le fais avec ce code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Private Sub textBox5_keyPress(ByVal keyAscii As MSForms.ReturnInteger)
'Impose une valeur de poid avec le clavier numérique
  If InStr("0123456789.", Chr(keyAscii)) = 0 Then keyAscii = 0
End Sub
Ensuite je vérifie que la valeur entrée n'est pas supérieur avec le textBox4 avec ce code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Private Sub TextBox5_Change()
Dim A
Dim B
A = TextBox4
B = TextBox5
If B > A Then
MsgBox "Le Poid Indiqué est Superieur au Poid Initial", vbCritical
End If
Mais dès que j'utilise la virgule du clavier numérique le message s'affiche !!!
J'ai donc remplacé le "." du clavier par la virgule du clavier alphabetique çà marche mais je trouve çà dommage!!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
If InStr("0123456789,", Chr(keyAscii)) = 0 Then keyAscii = 0
2eme Problème
le nombre saisie dans ce textbox5 est inscrits dans une feuil de calcul avec ce code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
 ActiveCell.Value = TextBox5
Ma feuil de calcul voit un format texte elle à surement raison !!!
Peut on avoir un format nombre directement ?
Merci d'avoir pris le temps de lire