Bonjour,
Comment contrôler dans cette proc
Si Ment n'est pas numérique
Private Sub Ment_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If Ment.Value <> "" Then
If Len(Ment) <> 4 Then
MsgBox "4 chiffres obligatoires"
Cancel = True
End If
'If Ment n'est pas numérique
' MsgBox "valeur numérique obligatoire"
End If
End If
Merci d'avance
--
Cordialement
jpmonnier-nospam@neuf.fr
End Sub
If IsNumeric(Ment) Then ou If Not IsNumeric(Ment) Then
Youky (BJ)
michdenis
J'ai supposé que c'était un textbox dans un formulaire :
Voici un exemple : En utilisant une fonction personnalisée tu vas gérer le séparateur décimale. Que l'usager utilise le point ou la virgule comme séparateur décimale, cela fonctionnera.
'------------------------- Private Sub CommandButton1_Click() MsgBox UnNombre(Me.TextBox1) 'Ou tu peux remplacer par ' if UnNombre(Me.TextBox1) = true then 'C'est numique 'end if End Sub '------------------------- Function UnNombre(Nombre As String) As Boolean
Dim Sep As String, X As Double Sep = Format(0, ".") On Error Resume Next If Nombre <> "" Then X = CDbl(Application.Substitute(Nombre, ".", Sep)) If Err = 0 Then UnNombre = True Err = 0 Else UnNombre = False End If Else UnNombre = False End If
End Function
"JPMonnier" a écrit dans le message de news:
Bonjour, Comment contrôler dans cette proc Si Ment n'est pas numérique
Private Sub Ment_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) If Ment.Value <> "" Then If Len(Ment) <> 4 Then MsgBox "4 chiffres obligatoires" Cancel = True End If 'If Ment n'est pas numérique ' MsgBox "valeur numérique obligatoire" End If End If Merci d'avance -- Cordialement
End Sub
J'ai supposé que c'était un textbox dans un formulaire :
Voici un exemple : En utilisant une fonction personnalisée
tu vas gérer le séparateur décimale. Que l'usager utilise
le point ou la virgule comme séparateur décimale, cela
fonctionnera.
'-------------------------
Private Sub CommandButton1_Click()
MsgBox UnNombre(Me.TextBox1)
'Ou tu peux remplacer par
' if UnNombre(Me.TextBox1) = true then
'C'est numique
'end if
End Sub
'-------------------------
Function UnNombre(Nombre As String) As Boolean
Dim Sep As String, X As Double
Sep = Format(0, ".")
On Error Resume Next
If Nombre <> "" Then
X = CDbl(Application.Substitute(Nombre, ".", Sep))
If Err = 0 Then
UnNombre = True
Err = 0
Else
UnNombre = False
End If
Else
UnNombre = False
End If
End Function
"JPMonnier" <jpmonnier-no-spam@neuf.fr> a écrit dans le message de news:
uoEnBWeXJHA.6036@TK2MSFTNGP05.phx.gbl...
Bonjour,
Comment contrôler dans cette proc
Si Ment n'est pas numérique
Private Sub Ment_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If Ment.Value <> "" Then
If Len(Ment) <> 4 Then
MsgBox "4 chiffres obligatoires"
Cancel = True
End If
'If Ment n'est pas numérique
' MsgBox "valeur numérique obligatoire"
End If
End If
Merci d'avance
--
Cordialement
jpmonnier-nospam@neuf.fr
End Sub
J'ai supposé que c'était un textbox dans un formulaire :
Voici un exemple : En utilisant une fonction personnalisée tu vas gérer le séparateur décimale. Que l'usager utilise le point ou la virgule comme séparateur décimale, cela fonctionnera.
'------------------------- Private Sub CommandButton1_Click() MsgBox UnNombre(Me.TextBox1) 'Ou tu peux remplacer par ' if UnNombre(Me.TextBox1) = true then 'C'est numique 'end if End Sub '------------------------- Function UnNombre(Nombre As String) As Boolean
Dim Sep As String, X As Double Sep = Format(0, ".") On Error Resume Next If Nombre <> "" Then X = CDbl(Application.Substitute(Nombre, ".", Sep)) If Err = 0 Then UnNombre = True Err = 0 Else UnNombre = False End If Else UnNombre = False End If
End Function
"JPMonnier" a écrit dans le message de news:
Bonjour, Comment contrôler dans cette proc Si Ment n'est pas numérique
Private Sub Ment_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) If Ment.Value <> "" Then If Len(Ment) <> 4 Then MsgBox "4 chiffres obligatoires" Cancel = True End If 'If Ment n'est pas numérique ' MsgBox "valeur numérique obligatoire" End If End If Merci d'avance -- Cordialement
End Sub
JPMonnier
Merci beaucoup youky -- Cordialement
"Youky (BJ)" a écrit dans le message de news:%
If IsNumeric(Ment) Then ou If Not IsNumeric(Ment) Then
Youky (BJ)
Merci beaucoup youky
--
Cordialement
jpmonnier-nospam@neuf.fr
"Youky (BJ)" <nospam.bruno.jeune@wanadoo.fr> a écrit dans le message de
news:%23ZxWcgeXJHA.556@TK2MSFTNGP06.phx.gbl...
If IsNumeric(Ment) Then
ou
If Not IsNumeric(Ment) Then
If IsNumeric(Ment) Then ou If Not IsNumeric(Ment) Then
Youky (BJ)
JPMonnier
Merci michdenis -- Cordialement
"michdenis" a écrit dans le message de news:
J'ai supposé que c'était un textbox dans un formulaire :
Voici un exemple : En utilisant une fonction personnalisée tu vas gérer le séparateur décimale. Que l'usager utilise le point ou la virgule comme séparateur décimale, cela fonctionnera.
'------------------------- Private Sub CommandButton1_Click() MsgBox UnNombre(Me.TextBox1) 'Ou tu peux remplacer par ' if UnNombre(Me.TextBox1) = true then 'C'est numique 'end if End Sub '------------------------- Function UnNombre(Nombre As String) As Boolean
Dim Sep As String, X As Double Sep = Format(0, ".") On Error Resume Next If Nombre <> "" Then X = CDbl(Application.Substitute(Nombre, ".", Sep)) If Err = 0 Then UnNombre = True Err = 0 Else UnNombre = False End If Else UnNombre = False End If
End Function
"JPMonnier" a écrit dans le message de news:
Bonjour, Comment contrôler dans cette proc Si Ment n'est pas numérique
Private Sub Ment_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) If Ment.Value <> "" Then If Len(Ment) <> 4 Then MsgBox "4 chiffres obligatoires" Cancel = True End If 'If Ment n'est pas numérique ' MsgBox "valeur numérique obligatoire" End If End If Merci d'avance -- Cordialement
End Sub
Merci michdenis
--
Cordialement
jpmonnier-nospam@neuf.fr
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:uGgRBpeXJHA.556@TK2MSFTNGP06.phx.gbl...
J'ai supposé que c'était un textbox dans un formulaire :
Voici un exemple : En utilisant une fonction personnalisée
tu vas gérer le séparateur décimale. Que l'usager utilise
le point ou la virgule comme séparateur décimale, cela
fonctionnera.
'-------------------------
Private Sub CommandButton1_Click()
MsgBox UnNombre(Me.TextBox1)
'Ou tu peux remplacer par
' if UnNombre(Me.TextBox1) = true then
'C'est numique
'end if
End Sub
'-------------------------
Function UnNombre(Nombre As String) As Boolean
Dim Sep As String, X As Double
Sep = Format(0, ".")
On Error Resume Next
If Nombre <> "" Then
X = CDbl(Application.Substitute(Nombre, ".", Sep))
If Err = 0 Then
UnNombre = True
Err = 0
Else
UnNombre = False
End If
Else
UnNombre = False
End If
End Function
"JPMonnier" <jpmonnier-no-spam@neuf.fr> a écrit dans le message de news:
uoEnBWeXJHA.6036@TK2MSFTNGP05.phx.gbl...
Bonjour,
Comment contrôler dans cette proc
Si Ment n'est pas numérique
Private Sub Ment_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If Ment.Value <> "" Then
If Len(Ment) <> 4 Then
MsgBox "4 chiffres obligatoires"
Cancel = True
End If
'If Ment n'est pas numérique
' MsgBox "valeur numérique obligatoire"
End If
End If
Merci d'avance
--
Cordialement
jpmonnier-nospam@neuf.fr
End Sub
J'ai supposé que c'était un textbox dans un formulaire :
Voici un exemple : En utilisant une fonction personnalisée tu vas gérer le séparateur décimale. Que l'usager utilise le point ou la virgule comme séparateur décimale, cela fonctionnera.
'------------------------- Private Sub CommandButton1_Click() MsgBox UnNombre(Me.TextBox1) 'Ou tu peux remplacer par ' if UnNombre(Me.TextBox1) = true then 'C'est numique 'end if End Sub '------------------------- Function UnNombre(Nombre As String) As Boolean
Dim Sep As String, X As Double Sep = Format(0, ".") On Error Resume Next If Nombre <> "" Then X = CDbl(Application.Substitute(Nombre, ".", Sep)) If Err = 0 Then UnNombre = True Err = 0 Else UnNombre = False End If Else UnNombre = False End If
End Function
"JPMonnier" a écrit dans le message de news:
Bonjour, Comment contrôler dans cette proc Si Ment n'est pas numérique
Private Sub Ment_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) If Ment.Value <> "" Then If Len(Ment) <> 4 Then MsgBox "4 chiffres obligatoires" Cancel = True End If 'If Ment n'est pas numérique ' MsgBox "valeur numérique obligatoire" End If End If Merci d'avance -- Cordialement