Déterminer si un nombre est entier ou pas

**safami** · 22/09/2014, 16h41

Bonjour à vous,

voilà je fais une petite macro vga sous excel dont voici un bout de code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
a = p/4
If a = entier Then
    u = a / 100
        If u = non.entier Then
            f = 29
        Else
            f = 28
        End If
Else
    f = 28
End If

a est un entier (par ex 2014 ^^)

Vous l'aurez surement compris, ce code n'est pas bon ^^
En fait je cherche à savoir dans un 1er temps si le résulta de p/4 (donc a) est un nombre entier
si c'est le cas je cherche a savoir si a/100 (donc u) n'est pas un entier.

Le problème c'est que mes cours de VBA remontent un peu et que je ne sais plus comment regarder si un nombre est entier ou pas.

Pouvez-vous m'aider ?

Je reste disponible pour plus d'info ^^

Merci d'avance

**Theze** · 22/09/2014, 16h55

Bonjour,

Regarde du coté de Mod :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub Test()
 
    Dim p As Integer
    Dim a As Integer
 
    p = 2000
    a = p Mod 4
 
    MsgBox IIf(a <> 0, "'a' n'est pas un entier !", "'a' est un entier !")
 
End Sub

Hervé.

**safami** · 22/09/2014, 19h46

Merci !!

ça ne répond pas au pb mais ça le résoud ^^

**eriiic** · 22/09/2014, 20h50

Bonjour,

(a mod 1) =>0 si a entier

eric

**Theze** · 23/09/2014, 06h54

Bonjour,

ça ne répond pas au pb mais ça le résoud ^^

C'est ceci que tu cherche ? Dans mon premier code, j'ai fais une erreur, j'ai déclaré a comme Integer alors qu'il fallait le déclarer Single !

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
24
25
26
27
28
 
Sub Test()
 
    Dim p As Integer
    Dim a As Single
    Dim f As Integer
 
    p = 420
 
    If p Mod 4 = 0 Then
 
        If p / 4 Mod 100 <> 0 Then
 
            f = 29
 
        Else
 
            f = 28
 
        End If
 
    Else
 
        f = 28
 
    End If
 
End Sub

Hervé.

**safami** · 23/09/2014, 08h20

Mod permet de résoudre mon problème en effet.

mais je pensai qu'excel était capable de reconnaître un entier.
Car si je me souviens bien,
il y a une propriété comme "integer" qui permet de voir ou dire que "a" est un entier.

Mes souvenirs sont sûrement faux mais j'aimerai que vous me renseigniez sur ce point.

Merci pour vos réponses en tout cas.

Invité · 23/09/2014, 08h53

Salut,

Regarde sur internet pour trouver l'inspiration: https://www.google.fr/search?hl=fr&q=test+entier+excel

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
 
' Utilisation en condition réel de EstEntier
Private Sub IsEntierTest()
    If IsWhole(5.5) Then
        MsgBox "..."
    ElseIf IsWhole(5) Or IsWhole(6) Then
        MsgBox "..."
    Else
        MsgBox "..."
    End If
End Sub
 
' Fonction EstEntier : IsWhole (Est-ce la bonne traduction d'ailleurs ?)
Function IsWhole(Nombre) As Boolean
    If IsNumeric(Nombre) Then
        IsWhole = (Nombre = Int(Nombre))
    End If
End Function

Aïe pour les dépassement de capacité par contre.

Edit: CInt => Int

**eriiic** · 23/09/2014, 09h02

Bonjour,

Tes souvenirs ne sont pas faux.
Mais (n Mod 1)=0 est beaucoup plus rapide que n-int(n)=0 pour le même résultat : la partie décimale est-elle nulle ?

eric

Invité · 23/09/2014, 09h12

Ah, Int effectivement permet de faire passer les variable de type Double sans dépassement de capacité.

**safami** · 24/09/2014, 10h24

Ok, je vais essayer.

Merci pour l'aide en tout cas

Invité · 24/09/2014, 10h55

Bonjour,
j'arrive un peut tard mais...
la meilleur façon de tester un integer est encore de passer la valeur à un integer qui vas arrondir à l'unité si le nombre est à virgule puis de le comparer au nombre original!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test()
If IsInterger(3 / 4) = False Then MsgBox "Pas Integer"
If IsInterger(4 / 4) = True Then MsgBox "C'est un Integer"
End Sub
 
Function IsInterger(V) As Boolean
Dim I As Integer
IsInterger = True
I = V
If I <> V Then IsInterger = False
End Function

**eriiic** · 24/09/2014, 11h39

Bonjour,

la meilleur façon de tester un integer est encore de passer la valeur à un integer qui vas arrondir à l'unité si le nombre est à virgule puis de le comparer au nombre original!

C'est vraiment meilleur que :
if x mod 1 =0 then ?

eric

Invité · 24/09/2014, 11h46

test ça:

Code :

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

1
2
3
Debug.Print 1.5 Mod 1
Debug.Print 0.000005 Mod 1
Debug.Print 1500 Mod 1

**eriiic** · 24/09/2014, 14h48

Oupssss... Cette machine est folle.
Effectivement.

Alors pour rester dans la même compacité, comme la fonction feuille est correcte ça pourrait être:

Code :

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

1
2
3
Debug.Print Evaluate("=mod(1.5, 1)")
Debug.Print Evaluate("=mod(0.000005 , 1)")
Debug.Print Evaluate("=mod(1500 , 1)")

Apparemment il ne connait pas worksheetfunction.mod().
Sous réserve d'autres surprises

eric

Invité · 24/09/2014, 14h52

en revanche ma solution est imparable!
en plus comme je le fais sous forme de fonction tu l'appel simplement : IsInterger(valeur) comme IsNumeric IsDate!

**eriiic** · 24/09/2014, 15h08

C'est vrai qu'on écrit le corps de la fonction qu'une fois et que le code est plus lisible lors de l'appel.
Ok :-)
eric

Invité · 24/09/2014, 19h12

Salut,

Envoyé par rdurupt

Bonjour,
j'arrive un peut tard mais...
la meilleur façon de tester un integer est encore de passer la valeur à un integer qui vas arrondir à l'unité si le nombre est à virgule puis de le comparer au nombre original!

Envoyé par rdurupt

en revanche ma solution est imparable!
en plus comme je le fais sous forme de fonction tu l'appel simplement : IsInterger(valeur) comme IsNumeric IsDate!

C'est un petit peu la même logique de la fonction que j'ai fourni plus haut, dont l'idée, je l'avoue a été péché sur le NET.

Nombre = Int(Nombre) permet de comparer la partie entière de Nombre avec lui-même.
Si la partie entière égale le nombre lui-même, alors c'est un entier.

IsNumeric permet de garantir qu'il sera compatible avec des opération de calcul numérique car c'est un Variant qui est passé pour éviter des conversions de type implicite lors du passage de l'argument.

Int permet de prendre en compte les variable de type Double pour supprimer les dépassements de capacité : un nombre de type Double pouvant très bien être un entier.