Salut le forum, et Drefzone
J'ai récuperer ce code :
If Not IsNumeric(Nom de TextBox) Then
Cancel = True
MsgBox "Seules les valeurs numériques sont acceptables.", _
vbInformation + vbOKOnly, "Attention"
Me.'Nom du TextBox.SelStart = 0
Me.'Nom du textBox.SelLength = Len(Nom du textbox)
End If
Attention, cela ne place pas de valeur dans les celules
Voila, j'espère que cela t'aider, sinon d'autres plus experts viendrons t'aider
Salut, G'Claire