Interdire la saisie de caractères alphabétiqu

Fermé
apdf Messages postés 21 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 27 avril 2012 - Modifié par apdf le 27/04/2012 à 17:24
Bonjour,

Je recherche un code pour Interdire la saisie de caractères alphabétiques dans une zone bien précise sur une feuille excel.

J'ai comme code ceci:

Code :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C4:F20")) Is Nothing Then
If Not IsNumeric(Target) Then
MsgBox "ce n'est pas numérique"
End If
End If

End Sub
Ce n'est pas exactement ma recherche.Car avec ce code je peut saisir des caractères alphabétiques et aprés j'ai un message "ce n'est pas numérique"

Alors que moi j'aimerais ne pas pouvoir saisir des caractères alphabétiques mais uniquement numerique

Je vous remercie d'avance

Cordialement

Max