Discussion :

[pilounet54]

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

[Nico Chg]

Bonjour

Je n'ai pas compris la demande, est ce qu'il faut changer le test pour savoir si c'est un nombre entier ? (byte ne va que de 1 à 255)

Pour le test tu peux faire

Code :

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

1
2
3
4
5
If A - Int(A) = 0 then
    msgbox "C'est un entier !"
Else
    msgbox "Ce n'est pas un entier !"
End if

[pilounet54]

bonjour
oui! je souhaite avoir que des bytes de 1 à 250 et le code ne me le permets pas puisque je peux mettre exemple:10,2
cordialement

[Invité]

Code :

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

1
2
3
4
5
6
 
if IsNumeric(c)=true then 
     If cint(Vlaeur)<>valeur mesgbox "ce n'est pas un entier!" 
 else
     mesgbox "ce n'est pas un entier!" 
end if

[pilounet54]

quoi que je fasse cela ne répond pas à se que je souhaite car avec le dernier code cela m’empêche pas d'avoir 15,2 dans la cellule
je rappelle si c'est 1 ou 5 ou 20 ok si c'est a ou d ou maman = vide si 45 ,6 vide voilà
cordialement

[Invité]

ici je n’interdis rien je t'informe à toi de gérer comme tu veux!

[Nico Chg]

quoi que je fasse cela ne répond pas à se que je souhaite car avec le dernier code cela m’empêche pas d'avoir 15,2 dans la cellule
je rappelle si c'est 1 ou 5 ou 20 ok si c'est a ou d ou maman = vide si 45 ,6 vide voilà
cordialement

Je n'ai pas plus compris que tout à l'heure, je n'ai pas eu plus d'information. J'ai bien compris cette histoire de bytes, mais ou ? Les deux codes que l'on a fournis permettent de vérifier si le nombre est entier. Tu peux ajouter d'autre vérif pour vérifier s'il est bien inférieur à 255.

Qu'a tu besoin de plus ?

[mercatog]

En continuant, je crois que l’intéressé préfère des solutions fonctionnelles et non des pistes

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
16
17
18
19
20
21
22
23
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plage As Range, c As Range
 
Set Plage = Intersect(Target, Range("A3:F10000"))
If Not Plage Is Nothing Then    'A adapter
    For Each c In Plage
        If Not Valable(c) Then
            Application.EnableEvents = False
            c.ClearContents
            Application.EnableEvents = True
        End If
    Next c
End If
Set Plage = Nothing
End Sub
 
Private Function Valable(ByVal Tmp) As Boolean
 
If IsNumeric(Tmp) Then
    Valable = Tmp <= 20 And Tmp >= 1
    Valable = Valable And Int(Tmp) = Tmp
End If
End Function