Bonhour, Est-il possible avec une macro de savoir si un chiffre est pair ou non ?
Merci bien
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
=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" <nospam-patrick.chretien9@wanadoo.fr> a écrit dans le message de
news:O2REUdMTEHA.240@TK2MSFTNGP11.phx.gbl...
Bonhour,
Est-il possible avec une macro de savoir si un chiffre est pair ou non ?
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
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
.. pas besoin de macro..
LeSteph
"LeSteph" <lecocosteph@frite.fr> a écrit dans le message de
news:40c4c67a$0$1554$626a14ce@news.free.fr...
=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" <nospam-patrick.chretien9@wanadoo.fr> a écrit dans le message de
news:O2REUdMTEHA.240@TK2MSFTNGP11.phx.gbl...
Bonhour,
Est-il possible avec une macro de savoir si un chiffre est pair ou non ?
"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
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
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" <nospam-patrick.chretien9@wanadoo.fr> a écrit dans le message de
news:O2REUdMTEHA.240@TK2MSFTNGP11.phx.gbl...
Bonhour,
Est-il possible avec une macro de savoir si un chiffre est pair ou non ?
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
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
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" <nospam-patrick.chretien9@wanadoo.fr> a écrit dans le message de
news:O2REUdMTEHA.240@TK2MSFTNGP11.phx.gbl...
Bonhour,
Est-il possible avec une macro de savoir si un chiffre est pair ou non ?
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 ?