Salut
ton code ne réagit pas à mon application
il faut voir comment tu l'as utilisé
j'ai un peu modifié
private Function Verifie(contenu As TextBox) As Boolean
'la fonction reçoit un textbox comme parametre
'et verifie si le textbox.text est numérique
'et modifie le séparateur décimal selon le 'séparateur definit par le p.c
Dim sDecimalSeparator As String
sDecimalSeparator = Mid$(CStr(1 / 2), 1, 1)
If Not IsNumeric(contenu.text) Then
Verifie = False
Exit Function
End If
If InStr(1, CStr(contenu.text), ".") Then
If sDecimalSeparator = "," Then
contenu.text = Replace(contenu.text, ".", ",")
Verifie = True
Exit Function
End If
Verifie = True
Exit Function
End If
If InStr(1, contenu.text, ",") Then
If sDecimalSeparator = "." Then
contenu.text = Replace(contenu.text, ",", ".")
Verifie = True
Exit Function
End If
Verifie = True
Exit Function
End If
Verifie = True
End Function
pour faire les calculs entre deux textboxs
text1 et text2
If Verifie(Text1) And Verifie(Text2) Then
Dim prod,add As Double
prod = CDbl(Text1.text) * CDbl(Text2.text)
add = CDbl(Text1.text) + CDbl(Text2.text)
End If