pour cellule validation de données

Bonjour je souhaiterai avoir ceci mais pour des cellules et non pas pour un texbox es possible ?
Je sens déjà que les puristes vont m’orienter vers validation de données mais ce n’est pas ce que je
Souhaite
Si c’est un chiffre entier entre 1 et 20 ok si non vide tout simplement
un peu comme ceci pour un texbox

Code:

---

1 2 3

Private Sub TextBoxrecettes_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) '''''''''''montant If InStr("1234567890,.-", Chr(KeyAscii)) = 0 Then KeyAscii = 0 End Sub

---

Dans le programme j’ai ceci

Code:

---

1 2 3 4 5 6 7 8

Dim mCellule1 As Range ' For Each mCellule1 In Target ' ' If mCellule1.Column = 1 And mCellule1.Row > 3 Then ' traiter_cellule mCellule1 ' End If ' ' Next mCellule1

---

merci à tous ceux qui m'ont déjà aidés
bonne journée à tous

Bonjour,

Code:

---

1 2 3 4

Private Sub TextBoxrecettes_KeyPress(ByVal KeyAscii) '''''''''''montant If KeyAscii < 49 Or KeyAscii > 57 Then KeyAscii = 0 If TextBoxrecettes > 20 Then KeyAscii = 0 End Sub

---

A mettre dans le module de la feuille

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range   If Not Intersect(Target, Range("C2:C25")) Is Nothing Then 'A adapter For Each c In Intersect(Target, Range("C2:C25")) If Not IsNumeric(c) Or c > 20 Or c < 1 Then Application.EnableEvents = False c.ClearContents Application.EnableEvents = True End If Next c End If End Subb

---

Merci vous êtes rapide et efficace @+
bonne journée