Discussion :

[pilounet54]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

A mettre dans le module de la feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pilounet54]

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