Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

vba - tester nombre : pair ou impair

2,355 views
Skip to first unread message

mlu

unread,
Apr 18, 2003, 9:51:03 AM4/18/03
to
Bonjour à tous,

Je souhaite tester la valeur de mon compteur dans une
boucle:
- pair : fais ceci
-impair : fais cela

J'ai essayé sans succès de biaiser en divisant le
compteur / 2 pour tester le résultat (décimal ou pas)
avec vartype, mais celui-ci reste toujours à la constante
5.

Help please

Et Joyeuses Pâques à tous !
mlu

Michel Gaboly

unread,
Apr 18, 2003, 10:15:22 AM4/18/03
to
Bonjour,

Utilise la fonction Mod (Modulo), qui donne le reste d'une division.


Sub TestParite()
Parite TaVariable
End Sub

Sub Parite(Nb As Long)
Select Case Nb Mod 2
Case 0
MsgBox "Pair"
Case 1
MsgBox "Impair"
End Select
End Sub


mlu a écrit :

--
Cordialement,

Michel Gaboly
http://www.gaboly.com


Gadget

unread,
Apr 18, 2003, 10:06:38 AM4/18/03
to
If (Int(MonNombre/2)=MonNombre/2) Then
Le nombre est pair
Else
Le nombre est impair
End if

Int() renvoie la partie entière du nombre placé en argument.

Voilà voilà

"mlu" <mlu...@oce.fr> a écrit dans le message de news:
01e301c305b1$8d1e2860$3001...@phx.gbl...

mlu

unread,
Apr 18, 2003, 10:15:21 AM4/18/03
to
Super - Merci beaucoup : je n'avais jamais utilisé cette
fonction !

Happy WE
>-----Message d'origine-----

>.
>

mlu

unread,
Apr 18, 2003, 10:18:01 AM4/18/03
to
Merci pour cette solution : Michel compte les décimales,
et tu testes la partie entière : je garde les deux !

Bon WE
mlu
>-----Message d'origine-----

>.
>

Michel Gaboly

unread,
Apr 18, 2003, 10:58:51 AM4/18/03
to
Re

De rien ;-))

mlu a écrit :

0 new messages