VBA fonction IsEven ne fonctionne pas

Version imprimable

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:

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

14/02/2014, 09h07
Marc-L

:tagcode:

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 ! :roll:
Donc simple avec l'opérateur Mod …

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:

1 2 Public Function IsEven(counter) As Boolean End Function
Par exemple :
Code:

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

14/02/2014, 12h31
sambrelin
Citation:

Envoyé par Marc-L

:tagcode:

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 ! :roll:
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
Citation:
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:

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

Par exemple :

Code:

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.
14/02/2014, 14h17
nibledispo

vba-fonction-iseven
Bonjour,

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

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,
14/02/2014, 15h50
Docmarti

Citation:

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:

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.
14/02/2014, 16h10
patricktoulon

heu

Bonjour
je rejoint un peu Marc L sur ce coup la

Citation:

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

:mouarf:

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

a mediter

autre alternative

une autre alternative
test sur la cellule "A1"

FONCTION
Code:

1 2 3 Function test_pair( cellule as range ) test_pair = cellule Mod 2 = 0 End Function
APPEL A LA FONCTION
Code:

1 2 3 Sub test() MsgBox test_pair [A1] End Sub
Et puisque tu tiens a "iseven"
Code:

1 2 3 Function IsEven( cellule as range ) IsEven= cellule Mod 2 = 0 End Function
test de la fonction LA FONCTION
Code:

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

14/02/2014, 16h52
Docmarti

Citation:

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
14/02/2014, 16h58
patricktoulon

re
Bonjour Docmarti

Non je suis sérieux

exemple
Code:

1 2 3 dim pair as boolean pair = [A1] Mod 2 = 0 msgbox pair
:mouarf::mouarf::mouarf::ptdr::ptdr:
14/02/2014, 17h31
Docmarti

Citation:

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.
14/02/2014, 22h05
Marc-L

Citation:

Envoyé par sambrelin

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

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

Eh bien oui l'article date un peu ! :roll: Autant pour moi …

Soit via l'opérateur Mod, soit par la fonction de feuille de calculs Application.IsEven …