Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonsoir. Essaie : Private Sub TextBox1_Change() If Right(TextBox1.Value, 1) >= 0 And Right(TextBox1.Value, 1) <= 9 Then MsgBox "saisie erronnée" TextBox1.Value = Left(TextBox1.Value, Len(TextBox1.Value) - 1) End If End Sub Cordialement. Daniel "Didier Novarin" a écrit dans le message de news: %23EX$
Bonsoir Je souhaite imposer dans un textbox toute saisie sauf les chiffres Je vous remercie Didier
Bonsoir.
Essaie :
Private Sub TextBox1_Change()
If Right(TextBox1.Value, 1) >= 0 And Right(TextBox1.Value, 1) <= 9 Then
MsgBox "saisie erronnée"
TextBox1.Value = Left(TextBox1.Value, Len(TextBox1.Value) - 1)
End If
End Sub
Cordialement.
Daniel
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: %23EX$1qOhGHA.1264@TK2MSFTNGP05.phx.gbl...
Bonsoir
Je souhaite imposer dans un textbox toute saisie sauf les chiffres
Je vous remercie
Didier
Bonsoir. Essaie : Private Sub TextBox1_Change() If Right(TextBox1.Value, 1) >= 0 And Right(TextBox1.Value, 1) <= 9 Then MsgBox "saisie erronnée" TextBox1.Value = Left(TextBox1.Value, Len(TextBox1.Value) - 1) End If End Sub Cordialement. Daniel "Didier Novarin" a écrit dans le message de news: %23EX$
Bonsoir Je souhaite imposer dans un textbox toute saisie sauf les chiffres Je vous remercie Didier
Didier Novarin
Bonsoir Daniel et merci beaucoup Didier
"Daniel" a écrit dans le message de news:
Bonsoir. Essaie : Private Sub TextBox1_Change() If Right(TextBox1.Value, 1) >= 0 And Right(TextBox1.Value, 1) <= 9 Then MsgBox "saisie erronnée" TextBox1.Value = Left(TextBox1.Value, Len(TextBox1.Value) - 1) End If End Sub Cordialement. Daniel "Didier Novarin" a écrit dans le message de news: %23EX$
Bonsoir Je souhaite imposer dans un textbox toute saisie sauf les chiffres Je vous remercie Didier
Bonsoir Daniel et merci beaucoup
Didier
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
OuzvbyOhGHA.1792@TK2MSFTNGP03.phx.gbl...
Bonsoir.
Essaie :
Private Sub TextBox1_Change()
If Right(TextBox1.Value, 1) >= 0 And Right(TextBox1.Value, 1) <= 9 Then
MsgBox "saisie erronnée"
TextBox1.Value = Left(TextBox1.Value, Len(TextBox1.Value) - 1)
End If
End Sub
Cordialement.
Daniel
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: %23EX$1qOhGHA.1264@TK2MSFTNGP05.phx.gbl...
Bonsoir
Je souhaite imposer dans un textbox toute saisie sauf les chiffres
Je vous remercie
Didier
Bonsoir. Essaie : Private Sub TextBox1_Change() If Right(TextBox1.Value, 1) >= 0 And Right(TextBox1.Value, 1) <= 9 Then MsgBox "saisie erronnée" TextBox1.Value = Left(TextBox1.Value, Len(TextBox1.Value) - 1) End If End Sub Cordialement. Daniel "Didier Novarin" a écrit dans le message de news: %23EX$
Bonsoir Je souhaite imposer dans un textbox toute saisie sauf les chiffres Je vous remercie Didier