lancer une procedure

[lulu]

If Range("b98") = 2 Or 4 Or 6 Or 8 Or 10 Or 12 Or 14 Or 16 Or 18 Or 20 Or 22 Or 24 Or 26 Or 28 Or 30 Or 32 Or 34 Or 36 Or 38 Or 40 Or 42 Or 44 Or 46 Or 48 Or 50 Or 52 Or 54 Or 56 Or 58 Or 60 Or 62 Or 64 Or 66 Or 68 Or 70 Or 72 Or 74 Or 76 Or 78 Or 80 Or 82 Or 84 Or 86 Or 88 Or 90 Then Call VGTPAIR Else: Call vgt1

voila mon probleme je cherche a valider un sub vgtpair si le total de la cellule b98 est pair et appele sub vgt1 si il est impair

mon probleme est qu il ne lance que la procedure vgtpair meme si le total est impair.

j espere avoir ete clair meme moi je n ai pas trop suivi mes propos

merci de votre aide

lucien

 

[Ti]

Function EstPair(nombre) As Boolean
EstPair = nombre Mod 2 = 0
End Function

Sub vgtpair()
MsgBox "pair"
End Sub

Sub vgt1()
MsgBox "impair"
End Sub

Sub test()
Dim nombre
nombre = Range("b98").Value
If EstPair(nombre) Then Call vgtpair Else Call vgt1
End Sub