Détection chiffre pair en VBA

[coco_lapin]

Bonjour le forum.

je souhaiterais détecter, en VBA, si un nombre est pair. Je n'arrive pas à trouver.

Pourriez-vous m'aider?

 

[Temjeh]

Bonjour à tous


Voici une facon parmis tant d'autre

If ActiveCell.Value Mod 2 = 1 Then
MsgBox 'ImPair'
Else
MsgBox 'Pair'
End If

Temjeh

 

[Temjeh]

Oups Rebonjour

pour la pair seule:

ActiveCell.Value Mod 2 = 0

A+

Temjeh

 

[coco_lapin]

Merci Temjeh, c'est ce qu'il me fallait.

Bonne fin de journée