equivalent VBA de MOD() ou possibilité de tester style IsInteger

14 réponses

DarthMac

19/10/2006 à 16:05

Hello les zamis.

Tout est dans le titre. Je suis fatigué, je cherche sans trouver, pourtant
je suis sûr d'avoir déjà utilisé mais j'ai la tête comme une pastèque. Bref,
je dois vérifier que :
MaVar/10 est Integer ou que MOD(MaVar)= 0

en gros. Une idée ?

1/2 merci d'avance, le reste à la livraison ;-P

10 réponses

1 2

Paul V

19/10/2006 à 16:40

Hello la pasteque,

if MaVar mod 10 = 0 then

HTHG

Paul V

"DarthMac" a écrit dans le message de
news:

Hello les zamis.

Tout est dans le titre. Je suis fatigué, je cherche sans trouver, pourtant
je suis sûr d'avoir déjà utilisé mais j'ai la tête comme une pastèque.
Bref,
je dois vérifier que :
MaVar/10 est Integer ou que MOD(MaVar)= 0

en gros. Une idée ?

1/2 merci d'avance, le reste à la livraison ;-P

Youky

19/10/2006 à 17:05

Attention avec Mod
12 Mod 4.2 'renvoie 0

On Error Resume Next
MsgBox IIf(Int([A1] / 10) = zz / 10, "ok", "faux")
If Err <> 0 Then MsgBox "non integer"

Youky

"DarthMac" a écrit dans le message de
news:

Hello les zamis.

Tout est dans le titre. Je suis fatigué, je cherche sans trouver, pourtant
je suis sûr d'avoir déjà utilisé mais j'ai la tête comme une pastèque.
Bref,
je dois vérifier que :
MaVar/10 est Integer ou que MOD(MaVar)= 0

en gros. Une idée ?

1/2 merci d'avance, le reste à la livraison ;-P

19/10/2006 à 17:43

Avec la fonction de feuille, pas d'embrouille avec Mod :

MsgBox Evaluate("mod(" & mavar & ",10)=0")

AV

Youky

19/10/2006 à 18:52

Bizzare,
avec diviseur 6.6 comme ici renvoie Faux
aussi 22 / 2.2
je pige pas, peut être faut'il un entier comme diviseur

mavar = 66
MsgBox Evaluate("mod(" & mavar & ", 6.6)=0")

Youky

19/10/2006 à 19:05

avec diviseur 6.6 comme ici renvoie Faux
aussi 22 / 2.2

Ben c'est tout à fait logique !
Dans la question originelle il s'agit de savoir si
"maVar/10 est un entier"
D'où la réponse...

AV

Youky

19/10/2006 à 20:07

Bonsoir AV
Quand je comprends pas je reste têtu

"maVar/10 est un entier"
D'où la réponse...
22/2.2 donne bien comme résultat un entier ...!

précisément à la va vite cela fait résultat 10 et reste 0..
ce qui devait donner "Vrai"
Youky
"AV" a écrit dans le message de news:
%

avec diviseur 6.6 comme ici renvoie Faux
aussi 22 / 2.2

Ben c'est tout à fait logique !
Dans la question originelle il s'agit de savoir si
"maVar/10 est un entier"
D'où la réponse...

AV

DarthMac

19/10/2006 à 22:14

Hello guys,

En effet, c'est curieux :

B1 = 66
C1 = 6,6
et alors : MOD(B1;C1) = 3,55271E-15 ?????????!!!!!!!!!!!
pourtant : B1/C1 = 10

Weird !!!!

amc

Youky a couché sur son écran :

Bonsoir AV
Quand je comprends pas je reste têtu
"maVar/10 est un entier"
D'où la réponse...
22/2.2 donne bien comme résultat un entier ...!

précisément à la va vite cela fait résultat 10 et reste 0..
ce qui devait donner "Vrai"
Youky
"AV" a écrit dans le message de news:
%
avec diviseur 6.6 comme ici renvoie Faux
aussi 22 / 2.2

Ben c'est tout à fait logique !
Dans la question originelle il s'agit de savoir si
"maVar/10 est un entier"
D'où la réponse...

AV

DarthMac

19/10/2006 à 22:16

Paul V a formulé ce jeudi :

Hello la pasteque,

if MaVar mod 10 = 0 then

HTHG

Paul V

1/2 merci d'avance, le reste à la livraison ;-P

Le reste + 1 bon de livraison signé mac ;-)

DarthMac

19/10/2006 à 22:16

Youky a présenté l'énoncé suivant :

Attention avec Mod
12 Mod 4.2 'renvoie 0

On Error Resume Next
MsgBox IIf(Int([A1] / 10) = zz / 10, "ok", "faux")
If Err <> 0 Then MsgBox "non integer"

Youky

1/2 merci d'avance, le reste à la livraison ;-P

Le reste + 1 bon de livraison signé mac ;-)

DarthMac

19/10/2006 à 22:16

AV avait énoncé :

Avec la fonction de feuille, pas d'embrouille avec Mod :

MsgBox Evaluate("mod(" & mavar & ",10)=0")

AV

1/2 merci d'avance, le reste à la livraison ;-P

Le reste + 1 bon de livraison signé mac ;-)

1 2

equivalent VBA de MOD() ou possibilité de tester style IsInteger

10 réponses

Veuillez sélectionner un problème