Changement de IsNumeric à byte

Version imprimable

bonjour
dans ce programme je souhaite simplement ne mettre que des

Code:

"bytes"

car le

Code:

IsNumeric

permets les virgules comment faire svp

Code:

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

12/03/2015, 09h50
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:

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
12/03/2015, 10h50
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

Code:

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

12/03/2015, 12h14
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
12/03/2015, 12h18
Invité

ici je n’interdis rien je t'informe à toi de gérer comme tu veux!
12/03/2015, 12h20
Nico Chg

Citation:

Envoyé par 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

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 ?

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

Code:

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

Bonjour.

Ou alors pour coller à ce que tu as déjà fait:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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
        Application.EnableEvents = False
        For Each c In Intersect(Target, Range("A3:F10000"))
            If IsNumeric(c) Then
                If (c - CLng(c) <> 0) Or (c < 1) Or (c > 20) Then c.ClearContents
            Else
                c.ClearContents
            End If
        Next c
        Application.EnableEvents = True
    End If
End Sub

Remarque : pourquoi contrôler toute une plage, tu pourrais vérifier seulement la dernière saisie, cad Target

Bonne journée,

pgz

12/03/2015, 12h34
mercatog

@pgz, bonjour

J'attendais cette question de l'intéressé dans un autre sujet (puisque le code est le mien) mais je répondrai volontiers sur l'utilisation de l'Intersect dans le cas d'un copier/coller de plusieurs cellules.

Il va de soi si dans TOUS les cas de figure, il n'y a qu'une cellule de modifiée, le boucle bouclera sur une seule cellule
12/03/2015, 13h57
pilounet54

merci pour toutes les pistes elle sont toutes très bonne j'avance dans mon programme grace à vous ;)
12/03/2015, 15h30
pgz

à Mercatog,

C'est clair. Je craignais juste que ce ne soit pas intentionnel.
Par contre, pourquoi mettre dans la boucle "Application.EnableEvents = ..." ? Là je ne vois pas de raison de répéter.

pgz
12/03/2015, 15h37
mercatog

:plusser:
Effectivement pgz