Controler le contenu num d'une textbox ds un usf

[DESTRUKTOR]

:whistle:
Bonjour,

Je suis un peu grippé et je n'arrive pas a chercher correctement les infos sur le forum. alors je pose ma question.
Comment faire pour controler dans un champ de saisie d'un userform, si la valeur est alphabétique alors qu'elle devrait etre numérique puis générer un msg d'erreur.
Merci d'avance. :evil:

 

[Evelynetfrancois]

Bonsoir destruktor


Private Sub TextBox3_Change()
If Not IsNumeric(TextBox3) Then
TextBox3 = ''
ElseIf IsNumeric(TextBox3) Then
ton action
End If
End Sub

j utilse ca pour un Textebox3 dans un programme
ca ne donne pas de boite
mais ca empeche toute saisie alpha !
maintenant tu peux y rajouter une boite , pourkoi pas

E et F

 

[Destruktor]

:whistle: Merci a tous les deux. Je tentais desespérement le IsNuméric et au lieu de tester sur le textbox je testais sur la cellule de la feuille (meme avec votre aide j'ai mis 3/4 d'heure a réagir.) en tout cas ce site est super car convivial et efficace ... Encore... Je ferai de la pub.. :evil: