Fonction MOD

myval = MyAnnee Mod 4
ou bien
myval= Evaluate("mod(" & myval & ", 4)")

AV

Bonsoir Eric,

Inutile de faire appel à la fonction de feuille de calcul : l'opérateur
Mod existe en VBA, avec comme syntaxe :

MyValeur = MyAnnee Mod 4

Bonjour,
Je voudrais exécuter cette fonction en VBA suivant le principe ci-dessous
mais je fait appel car ligne avec MOD renvoie unneerreur.

MyAnnee 04
MyValeur = Application.WorksheetFunction.MOD(MyAnnee, 4) <------ ligne ne
fonctionnant pas
If MyVal= 0 then
.... etc

D'avance merci

--
Cordialement,

Michel Gaboly
www.gaboly.com

Salut Éric,

Il arrive que lorsqu'une fonction fait déjà parti du langage VBA, les
concepteurs d'Excel n'ont pas inclus ladite fonction dans la classe
WorksheetFunction. C'est le cas de MOD.

Essaie plutôt:

MyValeur = MyAnnee Mod 4

Salutations,

Daniel M.

"RENAUD Eric" <erenaud@fr.fm> wrote in message
news:ucx3tc3DFHA.2600@TK2MSFTNGP09.phx.gbl...

Bonjour,
Je voudrais exécuter cette fonction en VBA suivant le principe ci-dessous
mais je fait appel car ligne avec MOD renvoie unneerreur.

MyAnnee 04
MyValeur = Application.WorksheetFunction.MOD(MyAnnee, 4) <------ ligne ne
fonctionnant pas
If MyVal= 0 then
.... etc

D'avance merci

Bonsour® ....
;o)))
juste pour le schmilblick
La fonction feuille de calcul me semble plus élaborée !!

=MOD("12:38";"0:15") résultat 0:08

msgbox "12:38" Mod "0:15" incompatibilité de type
msgbox 0.526 Mod 1/96 Division par 0

;o)))

-----Message d'origine-----
Bonsoir Eric,

Inutile de faire appel à la fonction de feuille de
calcul : l'opérateur

Mod existe en VBA, avec comme syntaxe :

MyValeur = MyAnnee Mod 4

Bonjour,
Je voudrais exécuter cette fonction en VBA suivant le
principe ci-dessous

mais je fait appel car ligne avec MOD renvoie
unneerreur.

MyAnnee=2004
MyValeur = Application.WorksheetFunction.MOD(MyAnnee,
4) <------ ligne ne

fonctionnant pas
If MyVal= 0 then
.... etc

D'avance merci

--
Cordialement,

Michel Gaboly
www.gaboly.com
.