erreur excel

[sandra]

J'ai un problème pas trop compliqué alors merci d'avance si vous pouvez m'aider, étant unee novice sur VBA:

Un utilisateur doit remplir des cases TextBox avec des chiffres. Ainsi s
'il se trompe en entrant une lettre ou un sigle, comment est-ce que je peux lui afficher un message d'erreur?????


Au secours et merci d'avance!!

 

[Arnaud]

salut,

rajoute cette condition :

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub

cela empechera que l'utilisateur entre autre chose que des chiffres.

 

[sandra]

Merci merci beaucoup ca marche nickel!!!

 

[Arnaud]

re,

je n'avais pas penser que l'utilisateur pouvais quand même mettre du texte en faisais un copier-coller avec cette technique.

pour parrer a ça, rajoute :

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox1) = False Then
MsgBox "veuillez ne saisir que des chiffres"
Cancel = True
End If
End Sub

 

[sandra]

Merci pour tes réponses, ca fait une semaine que je galèrais...