Bonjour à tous,

Je suis débutant en VBA.
Je voudrais faire un test pour savoir si un nombre est pair ou impair.
J'ai pensé utilisé la fonction IsEven.
Par contre je ne parviens pas à la faire fonctionner...
Quelque soit le nombre que je test, j'obtiens toujours faux.
J'ai récupérer un exemple sur le site Microsoft (je le joins juste après) et j'obtiens la même chose, le résultat du test est toujours Faux.

Pourriez vous m'aider?
Merci et bonne journée!

Pour info ceci est tapé dans un module

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
   Public Function IsEven(counter) As Boolean
End Function
 
   Sub EvenOrOdd()
 
       'Enter loop
       For counter = 1 To 5
 
           'Use the IsEven function to determine whether or not the number
           'being tested is even: a return value of False means the number
           'is odd. You could alternatively use the IsOdd function.
 
           ValueIsEven = IsEven(counter)
 
           'If ValueIsEven is true, then...
           If ValueIsEven = True Then
 
               '...display a message box stating so.
               MsgBox "The value " & counter & " is even."
 
           'Otherwise...
           Else
 
               '...display a message box stating that the value is odd.
               MsgBox "The value " & counter & " is odd."
           End If
 
       Next counter
   End Sub