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
BALOU
Un grand merci !
-----Message d'origine----- Bonjour Babou,
Voici une fonction qui se charge de limiter :
A ) la saisie aux chiffres seulement dans un textbox
B ) la saisie que de 1 séparateur décimal , virgule ou point
dans la boîte de saisie et ce d'après le système en vigueur
sur la machine.
C ) Cette fonction peut servir à un nombre indéterminé de textbox
de ton formulaire.
D ) En copiant cette fonction dans un module standard, elle peut être
utilisé pour tous les formulaires de ton projet qui ont le même besoin.
Pour appeler la fonction pour chaque texbox voici le code à saisir, Il
ne te reste plus qu'à adapter le nom du textbox a la ligne de code
---------------- Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
KeyAscii = CheckLaSaisie(TextBox1, KeyAscii)
End Sub ------------------
Voici la fonction à copier dans un module standard
------------------ Function CheckLaSaisie(Textbox As MSForms.Textbox, ByVal Char As Integer)
Dim SepDec As String SepDec = Application.International(xlDecimalSeparator)
If Char = 44 Or Char = 46 Then If InStr(1, Textbox, SepDec, vbTextCompare) > 0 Then CheckLaSaisie = 0 Else CheckLaSaisie = Asc(SepDec) End If Else If Char < 48 Or Char > 58 Then CheckLaSaisie = 0 Else CheckLaSaisie = Char End If End If
End Function -------------------------------------
Salutations!
"balou" a écrit dans le message de news:04ee01c3664b$a48229c0$
Bonjour, Comment obliger un utilisateur à entrer uninquement une valeur numérique dans un textbox et donc lui interdire un format texte ?
Merci pour vos réponses
.
Un grand merci !
-----Message d'origine-----
Bonjour Babou,
Voici une fonction qui se charge de limiter :
A ) la saisie aux chiffres seulement dans un textbox
B ) la saisie que de 1 séparateur décimal , virgule ou
point
dans la boîte de saisie et ce d'après le système en
vigueur
sur la machine.
C ) Cette fonction peut servir à un nombre indéterminé
de textbox
de ton formulaire.
D ) En copiant cette fonction dans un module standard,
elle peut être
utilisé pour tous les formulaires de ton projet qui
ont le même besoin.
Pour appeler la fonction pour chaque texbox voici le
code à saisir, Il
ne te reste plus qu'à adapter le nom du textbox a la
ligne de code
----------------
Private Sub TextBox1_KeyPress(ByVal KeyAscii As
MSForms.ReturnInteger)
KeyAscii = CheckLaSaisie(TextBox1, KeyAscii)
End Sub
------------------
Voici la fonction à copier dans un module standard
------------------
Function CheckLaSaisie(Textbox As MSForms.Textbox, ByVal
Char As Integer)
Dim SepDec As String
SepDec = Application.International(xlDecimalSeparator)
If Char = 44 Or Char = 46 Then
If InStr(1, Textbox, SepDec, vbTextCompare) > 0 Then
CheckLaSaisie = 0
Else
CheckLaSaisie = Asc(SepDec)
End If
Else
If Char < 48 Or Char > 58 Then
CheckLaSaisie = 0
Else
CheckLaSaisie = Char
End If
End If
End Function
-------------------------------------
Salutations!
"balou" <balou@voila.fr> a écrit dans le message de
news:04ee01c3664b$a48229c0$a001280a@phx.gbl...
Bonjour,
Comment obliger un utilisateur à entrer uninquement une
valeur numérique dans un textbox et donc lui interdire un
format texte ?
A ) la saisie aux chiffres seulement dans un textbox
B ) la saisie que de 1 séparateur décimal , virgule ou point
dans la boîte de saisie et ce d'après le système en vigueur
sur la machine.
C ) Cette fonction peut servir à un nombre indéterminé de textbox
de ton formulaire.
D ) En copiant cette fonction dans un module standard, elle peut être
utilisé pour tous les formulaires de ton projet qui ont le même besoin.
Pour appeler la fonction pour chaque texbox voici le code à saisir, Il
ne te reste plus qu'à adapter le nom du textbox a la ligne de code
---------------- Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
KeyAscii = CheckLaSaisie(TextBox1, KeyAscii)
End Sub ------------------
Voici la fonction à copier dans un module standard
------------------ Function CheckLaSaisie(Textbox As MSForms.Textbox, ByVal Char As Integer)
Dim SepDec As String SepDec = Application.International(xlDecimalSeparator)
If Char = 44 Or Char = 46 Then If InStr(1, Textbox, SepDec, vbTextCompare) > 0 Then CheckLaSaisie = 0 Else CheckLaSaisie = Asc(SepDec) End If Else If Char < 48 Or Char > 58 Then CheckLaSaisie = 0 Else CheckLaSaisie = Char End If End If
End Function -------------------------------------
Salutations!
"balou" a écrit dans le message de news:04ee01c3664b$a48229c0$
Bonjour, Comment obliger un utilisateur à entrer uninquement une valeur numérique dans un textbox et donc lui interdire un format texte ?
Merci pour vos réponses
.
BALOU
Un grand merci !
-----Message d'origine----- Bonjour Babou,
Voici une fonction qui se charge de limiter :
A ) la saisie aux chiffres seulement dans un textbox
B ) la saisie que de 1 séparateur décimal , virgule ou point
dans la boîte de saisie et ce d'après le système en vigueur
sur la machine.
C ) Cette fonction peut servir à un nombre indéterminé de textbox
de ton formulaire.
D ) En copiant cette fonction dans un module standard, elle peut être
utilisé pour tous les formulaires de ton projet qui ont le même besoin.
Pour appeler la fonction pour chaque texbox voici le code à saisir, Il
ne te reste plus qu'à adapter le nom du textbox a la ligne de code
---------------- Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
KeyAscii = CheckLaSaisie(TextBox1, KeyAscii)
End Sub ------------------
Voici la fonction à copier dans un module standard
------------------ Function CheckLaSaisie(Textbox As MSForms.Textbox, ByVal Char As Integer)
Dim SepDec As String SepDec = Application.International(xlDecimalSeparator)
If Char = 44 Or Char = 46 Then If InStr(1, Textbox, SepDec, vbTextCompare) > 0 Then CheckLaSaisie = 0 Else CheckLaSaisie = Asc(SepDec) End If Else If Char < 48 Or Char > 58 Then CheckLaSaisie = 0 Else CheckLaSaisie = Char End If End If
End Function -------------------------------------
Salutations!
"balou" a écrit dans le message de news:04ee01c3664b$a48229c0$
Bonjour, Comment obliger un utilisateur à entrer uninquement une valeur numérique dans un textbox et donc lui interdire un format texte ?
Merci pour vos réponses
.
Un grand merci !
-----Message d'origine-----
Bonjour Babou,
Voici une fonction qui se charge de limiter :
A ) la saisie aux chiffres seulement dans un textbox
B ) la saisie que de 1 séparateur décimal , virgule ou
point
dans la boîte de saisie et ce d'après le système en
vigueur
sur la machine.
C ) Cette fonction peut servir à un nombre indéterminé
de textbox
de ton formulaire.
D ) En copiant cette fonction dans un module standard,
elle peut être
utilisé pour tous les formulaires de ton projet qui
ont le même besoin.
Pour appeler la fonction pour chaque texbox voici le
code à saisir, Il
ne te reste plus qu'à adapter le nom du textbox a la
ligne de code
----------------
Private Sub TextBox1_KeyPress(ByVal KeyAscii As
MSForms.ReturnInteger)
KeyAscii = CheckLaSaisie(TextBox1, KeyAscii)
End Sub
------------------
Voici la fonction à copier dans un module standard
------------------
Function CheckLaSaisie(Textbox As MSForms.Textbox, ByVal
Char As Integer)
Dim SepDec As String
SepDec = Application.International(xlDecimalSeparator)
If Char = 44 Or Char = 46 Then
If InStr(1, Textbox, SepDec, vbTextCompare) > 0 Then
CheckLaSaisie = 0
Else
CheckLaSaisie = Asc(SepDec)
End If
Else
If Char < 48 Or Char > 58 Then
CheckLaSaisie = 0
Else
CheckLaSaisie = Char
End If
End If
End Function
-------------------------------------
Salutations!
"balou" <balou@voila.fr> a écrit dans le message de
news:04ee01c3664b$a48229c0$a001280a@phx.gbl...
Bonjour,
Comment obliger un utilisateur à entrer uninquement une
valeur numérique dans un textbox et donc lui interdire un
format texte ?
A ) la saisie aux chiffres seulement dans un textbox
B ) la saisie que de 1 séparateur décimal , virgule ou point
dans la boîte de saisie et ce d'après le système en vigueur
sur la machine.
C ) Cette fonction peut servir à un nombre indéterminé de textbox
de ton formulaire.
D ) En copiant cette fonction dans un module standard, elle peut être
utilisé pour tous les formulaires de ton projet qui ont le même besoin.
Pour appeler la fonction pour chaque texbox voici le code à saisir, Il
ne te reste plus qu'à adapter le nom du textbox a la ligne de code
---------------- Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
KeyAscii = CheckLaSaisie(TextBox1, KeyAscii)
End Sub ------------------
Voici la fonction à copier dans un module standard
------------------ Function CheckLaSaisie(Textbox As MSForms.Textbox, ByVal Char As Integer)
Dim SepDec As String SepDec = Application.International(xlDecimalSeparator)
If Char = 44 Or Char = 46 Then If InStr(1, Textbox, SepDec, vbTextCompare) > 0 Then CheckLaSaisie = 0 Else CheckLaSaisie = Asc(SepDec) End If Else If Char < 48 Or Char > 58 Then CheckLaSaisie = 0 Else CheckLaSaisie = Char End If End If
End Function -------------------------------------
Salutations!
"balou" a écrit dans le message de news:04ee01c3664b$a48229c0$
Bonjour, Comment obliger un utilisateur à entrer uninquement une valeur numérique dans un textbox et donc lui interdire un format texte ?
