Vérification nombre entier

bonjour,

yes, INT(ta_fraction)

-----Original Message-----
Bonjour,

Existe t-il une formulation VB pour vérifier le
caractère 'entier' d'une

fraction ?

En fait le but est de créer une macro pour verifier si
un nombre est premier

ou non.

La manoeuvre consisterait à tester un nombre en le
soumettant aux diviseurs

principaux 2,3,9,11 etc... si aucune de ces divisions ne
donne un résultat

entier, c'est que le nombre testé n'accepterait que
l'unité et lui même comme

diviseur, donc qu'il serait premier.

Merci de votre aide.
.

<buzzer> BIIIP

Cette fonction ne correspond pas à ce que je cherche.

INT (fraction) donne la partie entière du résultat mais ne vérifie pas que
le résultat est un entier.

Je continue mes recherches

bonjour,

yes, INT(ta_fraction)

-----Original Message-----
Bonjour,

Existe t-il une formulation VB pour vérifier le
caractère 'entier' d'une

fraction ?

En fait le but est de créer une macro pour verifier si
un nombre est premier

ou non.

La manoeuvre consisterait à tester un nombre en le
soumettant aux diviseurs

principaux 2,3,9,11 etc... si aucune de ces divisions ne
donne un résultat

entier, c'est que le nombre testé n'accepterait que
l'unité et lui même comme

diviseur, donc qu'il serait premier.

Merci de votre aide.
.

Franck,

compare la valeur que tu testes avec sa partie entière

Sub aa()
a = 2.12
b = Int(a)
MsgBox a = b
End Sub

-----Original Message-----
<buzzer> BIIIP

Cette fonction ne correspond pas à ce que je cherche.

INT (fraction) donne la partie entière du résultat
mais ne vérifie pas que

le résultat est un entier.

Je continue mes recherches

bonjour,

yes, INT(ta_fraction)

-----Original Message-----
Bonjour,

Existe t-il une formulation VB pour vÃf©rifier le
caractÃf¨re 'entier' d'une

fraction ?

En fait le but est de crÃf©er une macro pour
verifier si

un nombre est premier

ou non.

La manoeuvre consisterait Ãf tester un nombre en le
soumettant aux diviseurs

principaux 2,3,9,11 etc... si aucune de ces divisions
ne

donne un rÃf©sultat

entier, c'est que le nombre testÃf© n'accepterait
que

l'unitÃf© et lui mÃfªme comme

diviseur, donc qu'il serait premier.

Merci de votre aide.
.

.

Salut,

une fonction SI :
avec un nombre en A1 et l'autre en A2 :

=SI(A1/A2=ENT(A1/A2);"Nombre entier";"Pas entier")

Ca marche ?

CAP2

Voila ce que j'ai pu écrire (ça semble fonctionner)

Sub liste_prem()

For lnp = 1 To 10000

Range("b3").Value = lnp

i = 0

If lnp Mod 2 = 0 And lnp > 2 Then
'multiple de 2 donc non premier
i = i + 1
ElseIf lnp Mod 3 = 0 And lnp > 3 Then
i = i + 1
ElseIf lnp Mod 5 = 0 And lnp > 5 Then
i = i + 1
ElseIf lnp Mod 7 = 0 And lnp > 7 Then
i = i + 1
ElseIf lnp Mod 11 = 0 And lnp > 11 Then
i = i + 1

End If

If i = 0 Then

Range("B4").Value = "ENTIER"
ActiveSheet.Range("E65536").End(xlUp).Offset(1).Value = lnp

Else

Range("B4").Value = "NON ENTIER"

End If

Next

End Sub

bonjour,

yes, INT(ta_fraction)

-----Original Message-----
Bonjour,

Existe t-il une formulation VB pour vérifier le
caractère 'entier' d'une

fraction ?

En fait le but est de créer une macro pour verifier si
un nombre est premier

ou non.

La manoeuvre consisterait à tester un nombre en le
soumettant aux diviseurs

principaux 2,3,9,11 etc... si aucune de ces divisions ne
donne un résultat

entier, c'est que le nombre testé n'accepterait que
l'unité et lui même comme

diviseur, donc qu'il serait premier.

Merci de votre aide.
.