VBA fonction IsEven ne fonctionne pas

**sambrelin** · 14/02/2014, 08h56

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

**Marc-L** · 14/02/2014, 09h07

Cela m'étonnerait que cette horreur provienne de Microsoft !

Et dire qu'il n'y a besoin que d'une seule ligne de code !
Pour rappel un nombre est pair si le reste de la division par deux est égal à zéro !

Donc simple avec l'opérateur Mod …

**Docmarti** · 14/02/2014, 10h04

Cette fonction fonctionne bien. Mais elle est vide. Donc elle ne sert à rien. Il ne reste plus qu'à y mettre au moins une ligne de code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Public Function IsEven(counter) As Boolean
End Function

Par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Function IsEven(counter) As Boolean
 
If Int(counter / 2) = counter / 2 Then
 IsEven = True
Else
 IsEven = False
End If
 
End Function
 
Sub tt()
 result = IsEven(5)
End Sub

**sambrelin** · 14/02/2014, 12h31

Envoyé par Marc-L

Cela m'étonnerait que cette horreur provienne de Microsoft !

Et dire qu'il n'y a besoin que d'une seule ligne de code !
Pour rappel un nombre est pair si le reste de la division par deux est égal à zéro !

Donc simple avec l'opérateur Mod …

Je te joins l'adresse où j'ai trouvé cela.

http://support.microsoft.com/kb/150374/en-us

Envoyé par Docmarti

Cette fonction fonctionne bien. Mais elle est vide. Donc elle ne sert à rien. Il ne reste plus qu'à y mettre au moins une ligne de code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Public Function IsEven(counter) As Boolean
End Function

Par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Function IsEven(counter) As Boolean
 
If Int(counter / 2) = counter / 2 Then
 IsEven = True
Else
 IsEven = False
End If
 
End Function
 
Sub tt()
 result = IsEven(5)
End Sub

Merci de ton aide.
Je ne connaissais INT. Effectivement en l'utilisant je suis parvenu à faire ce que je voulais.
Par contre, je me demande toujours à quoi sert IsEven.
Je pensai que l'on faisait un test directement avec IsEven sur un nombre pour savoir si il était pair ou impair.
Mais ta solution (qui fonctionne parfaitement) est un moyen détourné de faire ce test. Le résultat me va très bien! C'est juste que par curiosité, je me demande à quoi sert IsEven.

**nibledispo** · 14/02/2014, 14h17

Bonjour,

Ceci te renvoie exactement "vrai" ou "faux" selon que la cellule b2 est "paire" ou "impaire"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Sub pair()
resultat = WorksheetFunction.IsEven(Sheets("feuil1").Cells(2, 2))
MsgBox resultat
End Sub

je t'accorde que dans l'aide F1 un exemple ne serait pas superflu pour le débutant.

Cordialement,

**Docmarti** · 14/02/2014, 15h50

Envoyé par sambrelin

Merci de ton aide.
Je ne connaissais INT. Effectivement en l'utilisant je suis parvenu à faire ce que je voulais.
Par contre, je me demande toujours à quoi sert IsEven.
Je pensai que l'on faisait un test directement avec IsEven sur un nombre pour savoir si il était pair ou impair.
Mais ta solution (qui fonctionne parfaitement) est un moyen détourné de faire ce test. Le résultat me va très bien! C'est juste que par curiosité, je me demande à quoi sert IsEven.

IsEven n'est pas une fonction de VBA. C'est une fonction de Excel. Pour utiliser la fonction de Excel, il faut indiquer que tu veux utiliser une fonction de Excel avec la syntaxe proposée par nibledispo:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

resultat = WorksheetFunction.IsEven(Sheets("feuil1").Cells(2, 2))

Si tu ne veux pas utiliser la fonction IsEven de Excel, tu peux créer ta propre fonction personnalisée comme tu as fait, mais il faut y mettre du code.

**patricktoulon** · 14/02/2014, 16h10

Bonjour
je rejoint un peu Marc L sur ce coup la

Cela m'étonnerait que cette horreur provienne de Microsoft !

faire une fonction pour l'utiliser comme une variable booléenne ca me parait un peu pédaler dans la choucroutte

a mediter

**patricktoulon** · 14/02/2014, 16h19

une autre alternative
test sur la cellule "A1"

FONCTION

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Function test_pair( cellule as range )
test_pair = cellule Mod 2 = 0
End Function

APPEL A LA FONCTION

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub test()
MsgBox test_pair [A1]  
End Sub

Et puisque tu tiens a "iseven"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Function IsEven( cellule as range )
IsEven= cellule Mod 2 = 0
End Function

test de la fonction LA FONCTION

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub test()
msgbox IsEven [A1]  
nd Sub

Au plaisir

**Docmarti** · 14/02/2014, 16h52

Envoyé par patricktoulon

faire une fonction pour l'utiliser comme une variable booléenne ca me parait un peu pédaler dans la choucroutte

a mediter

Tu parles sérieusement ?
C'est pourtant très souvent le cas qu'une fonction retourne simplement une valeur Vrai ou Faux.

Exemple bien connu : function FileExists

**patricktoulon** · 14/02/2014, 16h58

Bonjour Docmarti

Non je suis sérieux

exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
dim pair as boolean
pair  = [A1] Mod 2 = 0
msgbox pair

**Docmarti** · 14/02/2014, 17h31

Envoyé par sambrelin

Je te joins l'adresse où j'ai trouvé cela.

http://support.microsoft.com/kb/150374/en-us

APPLIES TO
Microsoft Excel 97 Standard Edition
Microsoft Excel 95 Standard Edition
Microsoft Excel 5.0 Standard Edition
Microsoft Excel 98 for Macintosh

C'est une page qui concerne Excel 97 et 2 versions antérieures. La fonction IsEven ne faisait pas partie de Excel à l'époque. Elle faisait partie d'un module séparé : Microsoft Excel Analysis ToolPak. Les choses ont changé depuis et c'est devenu une fonction native de Excel : c'est la fonction Est.Pair qui peut être utilisée dans les formules.