msgbox si chiffre pair entré dans textbox

[charette63]

bonsoir,
je cherche une solution pour ne pouvoir insérer dans un textbox qu'un chiffre pair,
me basant sur ce code

If Not IsNumeric(TextBox1.Text) Then
MsgBox "Seules les valeurs numériques sont acceptables."

j'ai essayé maintes et maintes solutions (estpair, ESTPAIR, iseven,ispeer,...) sans aucun résultat.
Mes recherches sur le net n'ayant rien donné, je me tourne encore une fois vers vous

merci

cordialement

Thierry

 

[camarchepas]

Re : msgbox si chiffre pair entré dans textbox

Bonsoir,

une solution est :

If CLng(TextBox1.Text) Mod 2 = 0 Then MsgBox "Paire"

 

[charette63]

merci beaucoup à vous