Requete initiale :
gpotin a demandé comment faire pour savoir le nombre de pairs ou d'impairs dans une plage


Réponse d'AV


De: AV
Objet: Re: nombre de pairs
Date : mardi 25 avril 2000 06:37

Sub Pair_Impair()
dim cel As range
for each cel In selection
if cel Mod 2 = 0 And cel <> "" then compte_pair = compte_pair + 1
if cel Mod 2 = 1 then compte_impair = compte_impair + 1
next
msgbox "Nombre pairs : " & compte_pair
msgbox "Nombre impairs : " & compte_impair
end Sub


Reponse de Laurent
Objet: Re: nombre de pairs
Date : mardi 25 avril 2000 08:29

Nombre d'impairs : =SOMMEPROD(MOD(Plage;2))
Nombre de pairs : =SOMMEPROD(1-MOD(Plage;2))