TROUVER SI UN NOMBRE EST UN MULTIPLE D'UN AUTRE
cs_lermite222
Messages postés
492
Date d'inscription
jeudi 5 avril 2007
Statut
Membre
Dernière intervention
2 juillet 2012
-
13 avril 2007 à 05:20
cs_lermite222 Messages postés 492 Date d'inscription jeudi 5 avril 2007 Statut Membre Dernière intervention 2 juillet 2012 - 13 avril 2007 à 05:20
cs_lermite222 Messages postés 492 Date d'inscription jeudi 5 avril 2007 Statut Membre Dernière intervention 2 juillet 2012 - 13 avril 2007 à 05:20
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/1027-trouver-si-un-nombre-est-un-multiple-d-un-autre
https://codes-sources.commentcamarche.net/source/1027-trouver-si-un-nombre-est-un-multiple-d-un-autre
13 avril 2007 à 05:20
huummm, peut être un peu plus simple ?
Private Sub Command1_Click()
MsgBox Multiple(Text1.Text, Text2.Text)
End Sub
'problème avec INT R=6223 et int(R)=6222 ???
'aux grand maux les grands remèdes
Function Multiple(n1 As Double, n2 As Double) As Boolean
Dim R As Double, V As Double
'si les valeurs sont inversées
If n2 > n1 Then R n2: n2 n1: n1 = R
R n1 / n2: V Round(R)
Multiple = (R Like V)
End Function
fontionne également avec des décimales
je ne l'ai pas testé sur des nombre négatif
essaie la
A+
louis