bonjour,
je sèche! et sollicite votre aide
je cherche à écrire un code qui pourrait trouver le nombres de multiples,
explication:
j'ai une série de chiffre (8): ex: 5, 12, 15, 29, 60, 72, 100, 120
ceci sur une table de près de 3 millions!!
le résultat devrait me donner 5 multiples de 5 car 5,15,60,100,120
et (normalement) 4 multiples de 12 car 12,60,72,120, mais que je ne traite
pas, je ne traite que les multiples compris de 4 à 10
j'avais commencé avec des conditions (if et elseif) mais vachement lourd,
j'ai abandonné
si qqn à une bonne idée ou suggestion, je suis preneur
merci d'avance de l'aide que vous pourrez m'apporter
Pascal
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
Jessy Sempere [MVP]
Bonjour
Regardes du côté de la fonction Mod() si la valeur retourné est 0, c'est que ta valeur est divisible par ton multiple genre :
Exemple d'une fonction :
Function IsMultiple(lngVal As Long, lngMultiple As Long) As Boolean If lngVal Mod lngMultiple = 0 Then IsMultiple = True End Function
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Pascal" a écrit dans le message news:
bonjour, je sèche! et sollicite votre aide je cherche à écrire un code qui pourrait trouver le nombres de multiples, explication: j'ai une série de chiffre (8): ex: 5, 12, 15, 29, 60, 72, 100, 120 ceci sur une table de près de 3 millions!! le résultat devrait me donner 5 multiples de 5 car 5,15,60,100,120 et (normalement) 4 multiples de 12 car 12,60,72,120, mais que je ne traite pas, je ne traite que les multiples compris de 4 à 10
j'avais commencé avec des conditions (if et elseif) mais vachement lourd, j'ai abandonné si qqn à une bonne idée ou suggestion, je suis preneur merci d'avance de l'aide que vous pourrez m'apporter Pascal
Bonjour
Regardes du côté de la fonction Mod() si la valeur retourné est 0,
c'est que ta valeur est divisible par ton multiple genre :
Exemple d'une fonction :
Function IsMultiple(lngVal As Long, lngMultiple As Long) As Boolean
If lngVal Mod lngMultiple = 0 Then IsMultiple = True
End Function
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Pascal" <anonymous@serveurInconnu.com> a écrit dans le message news:
u2bJqBHpEHA.648@tk2msftngp13.phx.gbl...
bonjour,
je sèche! et sollicite votre aide
je cherche à écrire un code qui pourrait trouver le nombres de multiples,
explication:
j'ai une série de chiffre (8): ex: 5, 12, 15, 29, 60, 72, 100, 120
ceci sur une table de près de 3 millions!!
le résultat devrait me donner 5 multiples de 5 car 5,15,60,100,120
et (normalement) 4 multiples de 12 car 12,60,72,120, mais que je ne traite
pas, je ne traite que les multiples compris de 4 à 10
j'avais commencé avec des conditions (if et elseif) mais vachement lourd,
j'ai abandonné
si qqn à une bonne idée ou suggestion, je suis preneur
merci d'avance de l'aide que vous pourrez m'apporter
Pascal
Regardes du côté de la fonction Mod() si la valeur retourné est 0, c'est que ta valeur est divisible par ton multiple genre :
Exemple d'une fonction :
Function IsMultiple(lngVal As Long, lngMultiple As Long) As Boolean If lngVal Mod lngMultiple = 0 Then IsMultiple = True End Function
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Pascal" a écrit dans le message news:
bonjour, je sèche! et sollicite votre aide je cherche à écrire un code qui pourrait trouver le nombres de multiples, explication: j'ai une série de chiffre (8): ex: 5, 12, 15, 29, 60, 72, 100, 120 ceci sur une table de près de 3 millions!! le résultat devrait me donner 5 multiples de 5 car 5,15,60,100,120 et (normalement) 4 multiples de 12 car 12,60,72,120, mais que je ne traite pas, je ne traite que les multiples compris de 4 à 10
j'avais commencé avec des conditions (if et elseif) mais vachement lourd, j'ai abandonné si qqn à une bonne idée ou suggestion, je suis preneur merci d'avance de l'aide que vous pourrez m'apporter Pascal
Jessy Sempere [MVP]
En complément ensuite il te suffit pour utiliser la fonction de faire :
Pour tester le multiple de 5 DCount("TonChamp", "TaTable", "IsMultiple (TonChamp,5)")
Pour tester le multiple de 12 DCount("TonChamp", "TaTable", "IsMultiple (TonChamp,12)")
...
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Jessy Sempere [MVP]" a écrit dans le message news: cj8np3$v0l$
Bonjour
Regardes du côté de la fonction Mod() si la valeur retourné est 0, c'est que ta valeur est divisible par ton multiple genre :
Exemple d'une fonction :
Function IsMultiple(lngVal As Long, lngMultiple As Long) As Boolean If lngVal Mod lngMultiple = 0 Then IsMultiple = True End Function
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Pascal" a écrit dans le message news:
bonjour, je sèche! et sollicite votre aide je cherche à écrire un code qui pourrait trouver le nombres de multiples, explication: j'ai une série de chiffre (8): ex: 5, 12, 15, 29, 60, 72, 100, 120 ceci sur une table de près de 3 millions!! le résultat devrait me donner 5 multiples de 5 car 5,15,60,100,120 et (normalement) 4 multiples de 12 car 12,60,72,120, mais que je ne traite pas, je ne traite que les multiples compris de 4 à 10
j'avais commencé avec des conditions (if et elseif) mais vachement lourd, j'ai abandonné si qqn à une bonne idée ou suggestion, je suis preneur merci d'avance de l'aide que vous pourrez m'apporter Pascal
En complément ensuite il te suffit pour utiliser la fonction de faire :
Pour tester le multiple de 5
DCount("TonChamp", "TaTable", "IsMultiple (TonChamp,5)")
Pour tester le multiple de 12
DCount("TonChamp", "TaTable", "IsMultiple (TonChamp,12)")
...
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Jessy Sempere [MVP]" <jessy.sempere@prg.sncf.fr> a écrit dans le message news:
cj8np3$v0l$1@muguet.sncf.fr...
Bonjour
Regardes du côté de la fonction Mod() si la valeur retourné est 0,
c'est que ta valeur est divisible par ton multiple genre :
Exemple d'une fonction :
Function IsMultiple(lngVal As Long, lngMultiple As Long) As Boolean
If lngVal Mod lngMultiple = 0 Then IsMultiple = True
End Function
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Pascal" <anonymous@serveurInconnu.com> a écrit dans le message news:
u2bJqBHpEHA.648@tk2msftngp13.phx.gbl...
bonjour,
je sèche! et sollicite votre aide
je cherche à écrire un code qui pourrait trouver le nombres de multiples,
explication:
j'ai une série de chiffre (8): ex: 5, 12, 15, 29, 60, 72, 100, 120
ceci sur une table de près de 3 millions!!
le résultat devrait me donner 5 multiples de 5 car 5,15,60,100,120
et (normalement) 4 multiples de 12 car 12,60,72,120, mais que je ne traite
pas, je ne traite que les multiples compris de 4 à 10
j'avais commencé avec des conditions (if et elseif) mais vachement lourd,
j'ai abandonné
si qqn à une bonne idée ou suggestion, je suis preneur
merci d'avance de l'aide que vous pourrez m'apporter
Pascal
En complément ensuite il te suffit pour utiliser la fonction de faire :
Pour tester le multiple de 5 DCount("TonChamp", "TaTable", "IsMultiple (TonChamp,5)")
Pour tester le multiple de 12 DCount("TonChamp", "TaTable", "IsMultiple (TonChamp,12)")
...
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Jessy Sempere [MVP]" a écrit dans le message news: cj8np3$v0l$
Bonjour
Regardes du côté de la fonction Mod() si la valeur retourné est 0, c'est que ta valeur est divisible par ton multiple genre :
Exemple d'une fonction :
Function IsMultiple(lngVal As Long, lngMultiple As Long) As Boolean If lngVal Mod lngMultiple = 0 Then IsMultiple = True End Function
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Pascal" a écrit dans le message news:
bonjour, je sèche! et sollicite votre aide je cherche à écrire un code qui pourrait trouver le nombres de multiples, explication: j'ai une série de chiffre (8): ex: 5, 12, 15, 29, 60, 72, 100, 120 ceci sur une table de près de 3 millions!! le résultat devrait me donner 5 multiples de 5 car 5,15,60,100,120 et (normalement) 4 multiples de 12 car 12,60,72,120, mais que je ne traite pas, je ne traite que les multiples compris de 4 à 10
j'avais commencé avec des conditions (if et elseif) mais vachement lourd, j'ai abandonné si qqn à une bonne idée ou suggestion, je suis preneur merci d'avance de l'aide que vous pourrez m'apporter Pascal
ORDINO
Sub diviseur() Dim Nombres(7) As Integer Dim i As Integer 'indice diviseur Dim j As Integer 'indice du dividante Dim Résultat As String
For i = 0 To 7 For j = 0 To 7 If Nombres(j) / Nombres(i) = Int(Nombres(j) / Nombres(i)) Then 'pas de reste Résultat = Résultat & Nombres(j) & " " End If
Next j Debug.Print Nombres(i) & " est diviseur de " & Résultat Résultat = ""
Next i
End Sub Résultat 5 est diviseur de 5 15 60 100 120 12 est diviseur de 12 60 72 120 15 est diviseur de 15 60 120 29 est diviseur de 29 60 est diviseur de 60 120 72 est diviseur de 72 100 est diviseur de 100 120 est diviseur de 120
-----Message d'origine----- bonjour, je sèche! et sollicite votre aide je cherche à écrire un code qui pourrait trouver le nombres de multiples,
explication: j'ai une série de chiffre (8): ex: 5, 12, 15, 29, 60, 72, 100, 120
ceci sur une table de près de 3 millions!! le résultat devrait me donner 5 multiples de 5 car 5,15,60,100,120
et (normalement) 4 multiples de 12 car 12,60,72,120, mais que je ne traite
pas, je ne traite que les multiples compris de 4 à 10
j'avais commencé avec des conditions (if et elseif) mais vachement lourd,
j'ai abandonné si qqn à une bonne idée ou suggestion, je suis preneur merci d'avance de l'aide que vous pourrez m'apporter Pascal
.
Sub diviseur()
Dim Nombres(7) As Integer
Dim i As Integer 'indice diviseur
Dim j As Integer 'indice du dividante
Dim Résultat As String
For i = 0 To 7
For j = 0 To 7
If Nombres(j) / Nombres(i) = Int(Nombres(j) /
Nombres(i)) Then 'pas de reste
Résultat = Résultat & Nombres(j) & " "
End If
Next j
Debug.Print Nombres(i) & " est diviseur de " &
Résultat
Résultat = ""
Next i
End Sub
Résultat
5 est diviseur de 5 15 60 100 120
12 est diviseur de 12 60 72 120
15 est diviseur de 15 60 120
29 est diviseur de 29
60 est diviseur de 60 120
72 est diviseur de 72
100 est diviseur de 100
120 est diviseur de 120
-----Message d'origine-----
bonjour,
je sèche! et sollicite votre aide
je cherche à écrire un code qui pourrait trouver le
nombres de multiples,
explication:
j'ai une série de chiffre (8): ex: 5, 12, 15, 29, 60,
72, 100, 120
ceci sur une table de près de 3 millions!!
le résultat devrait me donner 5 multiples de 5 car
5,15,60,100,120
et (normalement) 4 multiples de 12 car 12,60,72,120,
mais que je ne traite
pas, je ne traite que les multiples compris de 4 à 10
j'avais commencé avec des conditions (if et elseif) mais
vachement lourd,
j'ai abandonné
si qqn à une bonne idée ou suggestion, je suis preneur
merci d'avance de l'aide que vous pourrez m'apporter
Pascal
For i = 0 To 7 For j = 0 To 7 If Nombres(j) / Nombres(i) = Int(Nombres(j) / Nombres(i)) Then 'pas de reste Résultat = Résultat & Nombres(j) & " " End If
Next j Debug.Print Nombres(i) & " est diviseur de " & Résultat Résultat = ""
Next i
End Sub Résultat 5 est diviseur de 5 15 60 100 120 12 est diviseur de 12 60 72 120 15 est diviseur de 15 60 120 29 est diviseur de 29 60 est diviseur de 60 120 72 est diviseur de 72 100 est diviseur de 100 120 est diviseur de 120
-----Message d'origine----- bonjour, je sèche! et sollicite votre aide je cherche à écrire un code qui pourrait trouver le nombres de multiples,
explication: j'ai une série de chiffre (8): ex: 5, 12, 15, 29, 60, 72, 100, 120
ceci sur une table de près de 3 millions!! le résultat devrait me donner 5 multiples de 5 car 5,15,60,100,120
et (normalement) 4 multiples de 12 car 12,60,72,120, mais que je ne traite
pas, je ne traite que les multiples compris de 4 à 10
j'avais commencé avec des conditions (if et elseif) mais vachement lourd,
j'ai abandonné si qqn à une bonne idée ou suggestion, je suis preneur merci d'avance de l'aide que vous pourrez m'apporter Pascal
.
Pascal
merci à vous deux pour vos réponses, j'apprécie je vais voir comment intégrer cela dans le code existant! Pascal
"Pascal" a écrit dans le message de news:
bonjour, je sèche! et sollicite votre aide je cherche à écrire un code qui pourrait trouver le nombres de multiples, explication: j'ai une série de chiffre (8): ex: 5, 12, 15, 29, 60, 72, 100, 120 ceci sur une table de près de 3 millions!! le résultat devrait me donner 5 multiples de 5 car 5,15,60,100,120 et (normalement) 4 multiples de 12 car 12,60,72,120, mais que je ne traite pas, je ne traite que les multiples compris de 4 à 10
j'avais commencé avec des conditions (if et elseif) mais vachement lourd, j'ai abandonné si qqn à une bonne idée ou suggestion, je suis preneur merci d'avance de l'aide que vous pourrez m'apporter Pascal
merci à vous deux pour vos réponses, j'apprécie
je vais voir comment intégrer cela dans le code existant!
Pascal
"Pascal" <anonymous@serveurInconnu.com> a écrit dans le message de
news:u2bJqBHpEHA.648@tk2msftngp13.phx.gbl...
bonjour,
je sèche! et sollicite votre aide
je cherche à écrire un code qui pourrait trouver le nombres de multiples,
explication:
j'ai une série de chiffre (8): ex: 5, 12, 15, 29, 60, 72, 100, 120
ceci sur une table de près de 3 millions!!
le résultat devrait me donner 5 multiples de 5 car 5,15,60,100,120
et (normalement) 4 multiples de 12 car 12,60,72,120, mais que je ne traite
pas, je ne traite que les multiples compris de 4 à 10
j'avais commencé avec des conditions (if et elseif) mais vachement lourd,
j'ai abandonné
si qqn à une bonne idée ou suggestion, je suis preneur
merci d'avance de l'aide que vous pourrez m'apporter
Pascal
merci à vous deux pour vos réponses, j'apprécie je vais voir comment intégrer cela dans le code existant! Pascal
"Pascal" a écrit dans le message de news:
bonjour, je sèche! et sollicite votre aide je cherche à écrire un code qui pourrait trouver le nombres de multiples, explication: j'ai une série de chiffre (8): ex: 5, 12, 15, 29, 60, 72, 100, 120 ceci sur une table de près de 3 millions!! le résultat devrait me donner 5 multiples de 5 car 5,15,60,100,120 et (normalement) 4 multiples de 12 car 12,60,72,120, mais que je ne traite pas, je ne traite que les multiples compris de 4 à 10
j'avais commencé avec des conditions (if et elseif) mais vachement lourd, j'ai abandonné si qqn à une bonne idée ou suggestion, je suis preneur merci d'avance de l'aide que vous pourrez m'apporter Pascal
Pascal
bonsoir, voilà juste un petit retour, pour vous dire que j'ai apprécier votre aide! vos réponses m'ont servies et cela fonctionne comme je le souhaitai merci Pascal
"Pascal" a écrit dans le message de news:%
merci à vous deux pour vos réponses, j'apprécie je vais voir comment intégrer cela dans le code existant! Pascal
"Pascal" a écrit dans le message de news:
bonjour, je sèche! et sollicite votre aide je cherche à écrire un code qui pourrait trouver le nombres de multiples,
explication: j'ai une série de chiffre (8): ex: 5, 12, 15, 29, 60, 72, 100, 120 ceci sur une table de près de 3 millions!! le résultat devrait me donner 5 multiples de 5 car 5,15,60,100,120 et (normalement) 4 multiples de 12 car 12,60,72,120, mais que je ne traite
pas, je ne traite que les multiples compris de 4 à 10
j'avais commencé avec des conditions (if et elseif) mais vachement lourd,
j'ai abandonné si qqn à une bonne idée ou suggestion, je suis preneur merci d'avance de l'aide que vous pourrez m'apporter Pascal
bonsoir,
voilà juste un petit retour, pour vous dire que j'ai apprécier votre aide!
vos réponses m'ont servies et cela fonctionne comme je le souhaitai
merci
Pascal
"Pascal" <anonymous@serveurInconnu.com> a écrit dans le message de
news:%2321zhAKpEHA.1816@TK2MSFTNGP09.phx.gbl...
merci à vous deux pour vos réponses, j'apprécie
je vais voir comment intégrer cela dans le code existant!
Pascal
"Pascal" <anonymous@serveurInconnu.com> a écrit dans le message de
news:u2bJqBHpEHA.648@tk2msftngp13.phx.gbl...
bonjour,
je sèche! et sollicite votre aide
je cherche à écrire un code qui pourrait trouver le nombres de
multiples,
explication:
j'ai une série de chiffre (8): ex: 5, 12, 15, 29, 60, 72, 100, 120
ceci sur une table de près de 3 millions!!
le résultat devrait me donner 5 multiples de 5 car 5,15,60,100,120
et (normalement) 4 multiples de 12 car 12,60,72,120, mais que je ne
traite
pas, je ne traite que les multiples compris de 4 à 10
j'avais commencé avec des conditions (if et elseif) mais vachement
lourd,
j'ai abandonné
si qqn à une bonne idée ou suggestion, je suis preneur
merci d'avance de l'aide que vous pourrez m'apporter
Pascal
bonsoir, voilà juste un petit retour, pour vous dire que j'ai apprécier votre aide! vos réponses m'ont servies et cela fonctionne comme je le souhaitai merci Pascal
"Pascal" a écrit dans le message de news:%
merci à vous deux pour vos réponses, j'apprécie je vais voir comment intégrer cela dans le code existant! Pascal
"Pascal" a écrit dans le message de news:
bonjour, je sèche! et sollicite votre aide je cherche à écrire un code qui pourrait trouver le nombres de multiples,
explication: j'ai une série de chiffre (8): ex: 5, 12, 15, 29, 60, 72, 100, 120 ceci sur une table de près de 3 millions!! le résultat devrait me donner 5 multiples de 5 car 5,15,60,100,120 et (normalement) 4 multiples de 12 car 12,60,72,120, mais que je ne traite
pas, je ne traite que les multiples compris de 4 à 10
j'avais commencé avec des conditions (if et elseif) mais vachement lourd,
j'ai abandonné si qqn à une bonne idée ou suggestion, je suis preneur merci d'avance de l'aide que vous pourrez m'apporter Pascal
