Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel [VBA] test de multiple

[VBA] test de multiple

6 réponses
Avatar
Microsoft VBA Excel
Bonjour à tous,

je reviens à la charge sur une question que j'ai posé il y a quelques
semaines :

comment tester si A est multiple de B ?

Voici la réponse que l'on m'a donné :
>If (a / b) Mod 1 = 0 then
> <multiple>
> else
> <non-multiple>
> endif

mais chez moi ça ne fonctionne pas... quelque soient les valeurs, un
debug.print sur (a/b) Mod 1 donne 0, même si par exemple a/b donne 8,43.

Quelqu'un peut-il m'aider ?

Merci d'avance !
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Microsoft VBA Excel
Désolé !!! Fausse alerte : mauvaise écriture de ma part.


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

Bonjour à tous,

je reviens à la charge sur une question que j'ai posé il y a quelques
semaines :

comment tester si A est multiple de B ?

Voici la réponse que l'on m'a donné :
If (a / b) Mod 1 = 0 then
<multiple>
else
<non-multiple>
endif


mais chez moi ça ne fonctionne pas... quelque soient les valeurs, un
debug.print sur (a/b) Mod 1 donne 0, même si par exemple a/b donne 8,43.

Quelqu'un peut-il m'aider ?

Merci d'avance !





Avatar
Lolote
SAlut GG.AA,

Des solutions te sont déjà proposées.

@+ Lolote

"Microsoft VBA Excel" a écrit dans le message de news:
%
Désolé !!! Fausse alerte : mauvaise écriture de ma part.


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

Bonjour à tous,

je reviens à la charge sur une question que j'ai posé il y a quelques
semaines :

comment tester si A est multiple de B ?

Voici la réponse que l'on m'a donné :
If (a / b) Mod 1 = 0 then
<multiple>
else
<non-multiple>
endif


mais chez moi ça ne fonctionne pas... quelque soient les valeurs, un
debug.print sur (a/b) Mod 1 donne 0, même si par exemple a/b donne 8,43.

Quelqu'un peut-il m'aider ?

Merci d'avance !









Avatar
Gilles MOUGNOZ
Bonjour à tous,
je reviens à la charge sur une question que j'ai posé il y a quelques
semaines :
comment tester si A est multiple de B ?
Voici la réponse que l'on m'a donné :
If (a / b) Mod 1 = 0 then
<multiple>
else
<non-multiple>
endif
mais chez moi ça ne fonctionne pas... quelque soient les valeurs, un

debug.print sur (a/b) Mod 1 donne 0, même si par exemple a/b donne 8,43.
Quelqu'un peut-il m'aider ?
Merci d'avance !


Bonjour

Non testé:

Public Function EstMultiple(ByVal Multiple as Variant, ByVal Diviseur as
Variant) as Boolean
If IsNull(Multiple) Or Nz(Diviseur,0)=0 Then
EstMultiple = False
Else
EstMultiple = ((Multiple Mod Diviseur) = 0)
End If
End Function

Bonne continuation


Avatar
Microsoft VBA Excel
Oui Lolote ! j'ai mis "Fausse alerte" parce que la solution m'avait été déjà
proposée et qu'après nouvelles vérifs, ça fonctionne !
"Lolote" a écrit dans le message de news:
%
SAlut GG.AA,

Des solutions te sont déjà proposées.

@+ Lolote

"Microsoft VBA Excel" a écrit dans le message de news:
%
Désolé !!! Fausse alerte : mauvaise écriture de ma part.


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

Bonjour à tous,

je reviens à la charge sur une question que j'ai posé il y a quelques
semaines :

comment tester si A est multiple de B ?

Voici la réponse que l'on m'a donné :
If (a / b) Mod 1 = 0 then
<multiple>
else
<non-multiple>
endif


mais chez moi ça ne fonctionne pas... quelque soient les valeurs, un
debug.print sur (a/b) Mod 1 donne 0, même si par exemple a/b donne 8,43.

Quelqu'un peut-il m'aider ?

Merci d'avance !













Avatar
Lolote
Mai de rien, j'avais même répondu en espérant que cela puisse t'aider.
@+ Lolote

"Microsoft VBA Excel" a écrit dans le message de news:
%
Oui Lolote ! j'ai mis "Fausse alerte" parce que la solution m'avait été
déjà proposée et qu'après nouvelles vérifs, ça fonctionne !
"Lolote" a écrit dans le message de news:
%
SAlut GG.AA,

Des solutions te sont déjà proposées.

@+ Lolote

"Microsoft VBA Excel" a écrit dans le message de news:
%
Désolé !!! Fausse alerte : mauvaise écriture de ma part.


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

Bonjour à tous,

je reviens à la charge sur une question que j'ai posé il y a quelques
semaines :

comment tester si A est multiple de B ?

Voici la réponse que l'on m'a donné :
If (a / b) Mod 1 = 0 then
<multiple>
else
<non-multiple>
endif


mais chez moi ça ne fonctionne pas... quelque soient les valeurs, un
debug.print sur (a/b) Mod 1 donne 0, même si par exemple a/b donne
8,43.

Quelqu'un peut-il m'aider ?

Merci d'avance !

















Avatar
Microsoft VBA Excel
Merci ;-)

"Lolote" a écrit dans le message de news:
%
Mai de rien, j'avais même répondu en espérant que cela puisse t'aider.
@+ Lolote

"Microsoft VBA Excel" a écrit dans le message de news:
%
Oui Lolote ! j'ai mis "Fausse alerte" parce que la solution m'avait été
déjà proposée et qu'après nouvelles vérifs, ça fonctionne !
"Lolote" a écrit dans le message de news:
%
SAlut GG.AA,

Des solutions te sont déjà proposées.

@+ Lolote

"Microsoft VBA Excel" a écrit dans le message de news:
%
Désolé !!! Fausse alerte : mauvaise écriture de ma part.


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

Bonjour à tous,

je reviens à la charge sur une question que j'ai posé il y a quelques
semaines :

comment tester si A est multiple de B ?

Voici la réponse que l'on m'a donné :
If (a / b) Mod 1 = 0 then
<multiple>
else
<non-multiple>
endif


mais chez moi ça ne fonctionne pas... quelque soient les valeurs, un
debug.print sur (a/b) Mod 1 donne 0, même si par exemple a/b donne
8,43.

Quelqu'un peut-il m'aider ?

Merci d'avance !