Bonjour
essaye ceci :
Private Sub CommandButton1_Click()
'on remplace le "." par la ","
TextBox1.Value = Application.WorksheetFunction.Substitute(TextBox1.Value, ".", ",")
'on vérifie si la valeur du textbox1 est bien du numérique
If Not IsNumeric(TextBox1.Value) Then
'si non on envoie un message
MsgBox "Merci de rentrer du numérique.", , "Attention..."
'on redonne le focus au textbox1
TextBox1.SetFocus
'on prépare le textbox1 pour la correction
TextBox1.SelStart = 0
TextBox1.SelLength = Len(Me.TextBox1)
'on sort de la macro
Exit Sub
End If
'on place en A1 la valeur du textbox1.value sour forme de chiffre et non de texte
Range("a1").Value = CSng(TextBox1.Value)
End Sub
salut
Hervé