Re bonjour,
J'ai retrouvé la formule.
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox_D1.TextChanged
Try
d1 = TextBox_D1.Text
Catch ex As Exception
MsgBox("Numeric value only", MsgBoxStyle.Information)
End Try
End Sub
c'est le Try, et le catch ex As Exception, si la valeur n'est pas numérique, le msgbox s'ouvre.
Je me souvenais d'un truc comme ça, par contre la c'est du VB 2008 (que j'ai sur le portable), je pense que ça doit exister aussi en VB6 (que j'ai au boulot)
Cordialement, et merci pour vos aides.
Pierre.