bonjour
dans ce programme je souhaite simplement ne mettre que des
Code : Sélectionner tout - Visualiser dans une fenêtre à part
"bytes"
car le
Code : Sélectionner tout - Visualiser dans une fenêtre à part
IsNumeric
permets les virgules comment faire svp

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Worksheet_Change(ByVal Target As Range)
''''''''''''''''''''''''''''''''''''''''''''''''''''' controle des cellules si entre 1 et 20
Dim c As Range
 
    If Not Intersect(Target, Range("A3:F10000")) Is Nothing Then 'A adapter
        For Each c In Intersect(Target, Range("A3:F10000"))
            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
Cordialement