OVH Cloud OVH Cloud

[VBA] Test sur multiple

5 réponses
Avatar
Microsoft VBA Excel
Bonjour,

comment tester si une variable est multiple d'une valeur ?
Ex. : si toto et multiple de 8,4 alors traitement.

D'avance, merci.

5 réponses

Avatar
Lolote
Salut,

Teste avec les valeurs suivantes : 42 - 43 - 84 - 126 - 141

Sub Test()
xValeur = "42"
xDiviseur = "8.4"
If Int(xValeur / xDiviseur) = xValeur / xDiviseur Then
MsgBox "Traitement"
End If
End Sub

@+ Lolote

"Microsoft VBA Excel" a écrit dans le message de news:

Bonjour,

comment tester si une variable est multiple d'une valeur ?
Ex. : si toto et multiple de 8,4 alors traitement.

D'avance, merci.



Avatar
Ardus Petus
If (a / b) Mod 1 = 0 then
<multiple>
else
<non-multiple>
endif

Cordialement,
--
AP

"Microsoft VBA Excel" a écrit dans le message de news:

Bonjour,

comment tester si une variable est multiple d'une valeur ?
Ex. : si toto et multiple de 8,4 alors traitement.

D'avance, merci.



Avatar
Microsoft VBA Excel
Merci à vous 2, deux excellentes solutions
"Ardus Petus" a écrit dans le message de news:
%
If (a / b) Mod 1 = 0 then
<multiple>
else
<non-multiple>
endif

Cordialement,
--
AP

"Microsoft VBA Excel" a écrit dans le message de news:

Bonjour,

comment tester si une variable est multiple d'une valeur ?
Ex. : si toto et multiple de 8,4 alors traitement.

D'avance, merci.







Avatar
Gruick
Bonjour,
if toto mod diviseur = 0 then
multiple
else
non multiple
endif

C'est quand même plus simple, non
--
Gruick



If (a / b) Mod 1 = 0 then
<multiple>
else
<non-multiple>
endif

Cordialement,
--
AP

"Microsoft VBA Excel" a écrit dans le message de news:

Bonjour,

comment tester si une variable est multiple d'une valeur ?
Ex. : si toto et multiple de 8,4 alors traitement.

D'avance, merci.








Avatar
Microsoft VBA Excel
Oui c'est encore mieux ! Merci !

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

Bonjour,
if toto mod diviseur = 0 then
multiple
else
non multiple
endif

C'est quand même plus simple, non
--
Gruick



If (a / b) Mod 1 = 0 then
<multiple>
else
<non-multiple>
endif

Cordialement,
--
AP

"Microsoft VBA Excel" a écrit dans le message de news:

Bonjour,

comment tester si une variable est multiple d'une valeur ?
Ex. : si toto et multiple de 8,4 alors traitement.

D'avance, merci.