OVH Cloud OVH Cloud

chiffre pair ou impair ?

5 réponses
Avatar
capkurk
Bonhour,
Est-il possible avec une macro de savoir si un chiffre est pair ou non ?

Merci bien

5 réponses

Avatar
LeSteph
Oui!

LeSteph
:-)))))

"capkurk" a écrit dans le message de
news:
Bonhour,
Est-il possible avec une macro de savoir si un chiffre est pair ou non ?

Merci bien




Avatar
LeSteph
=est.pair(n)

on doit toujours charger l'utilitaire d'analyse
on doit toujours charger l'utilitaire d'analyse
on doit toujours charger l'utilitaire d'analyse
on doit toujours charger l'utilitaire d'analyse

:=}
LeSteph


"capkurk" a écrit dans le message de
news:
Bonhour,
Est-il possible avec une macro de savoir si un chiffre est pair ou non ?

Merci bien




Avatar
LeSteph
.. pas besoin de macro..

LeSteph

"LeSteph" a écrit dans le message de
news:40c4c67a$0$1554$
=est.pair(n)

on doit toujours charger l'utilitaire d'analyse
on doit toujours charger l'utilitaire d'analyse
on doit toujours charger l'utilitaire d'analyse
on doit toujours charger l'utilitaire d'analyse

:=}
LeSteph


"capkurk" a écrit dans le message de
news:
Bonhour,
Est-il possible avec une macro de savoir si un chiffre est pair ou non ?

Merci bien








Avatar
Philippe.R
Bonsoir,

Sub pairoupas()
Dim lenOmbre As Long
lenOmbre = InputBox("saisissez un nombre", "M.P.F.E.") * 1
If Int(lenOmbre / 2) = lenOmbre / 2 Then
MsgBox "Le nombre est pair !", , "M.P.F.E."
Else
MsgBox "Le nombre est impair !", , "M.P.F.E."
End If
End Sub

devrait convenir
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"capkurk" a écrit dans le message de
news:
Bonhour,
Est-il possible avec une macro de savoir si un chiffre est pair ou non ?

Merci bien




Avatar
LeSteph
re bonsoir capkurk,
En macro ceci est dans l'idée
applicable à une sélection:

Sub paircolor()
For Each c In Selection
If c <> "" Then
If c.Value Mod 2 = 0 Then
Selection.Cells(c).Interior.ColorIndex = 4
Else
Selection.Cells(c).Interior.ColorIndex = 6
End If
Else
End If
Next

End Sub

LeSteph
http://cocosteph.free.fr

"capkurk" a écrit dans le message de
news:
Bonhour,
Est-il possible avec une macro de savoir si un chiffre est pair ou non ?

Merci bien