réduction d'un nombre

jeanpierre

Nous a quitté

Repose en paix

• 20 Octobre 2007

• #16

Re : réduction d'un nombre

Re et pour saluer Chris (tis bisous, tiens),

chris, oui, qui a dit : "pourquoi faire simple quand on peut faire compliqué", que l'on se moque et que l'on rigole un peu.... ?

Bon week-end à vous

Jean-Pierre

 

Vote positif 0 Vote négatif

P

presic

XLDnaute Nouveau

• 20 Octobre 2007

• #17

Re : réduction d'un nombre

merci à tous.
pas évident de poser la question clairement.
j'ai utilisé la 1° réponse de jean pierre puis de corolian à savoir : mod(a1;9) et le lien donné par staple1600 car je veux voir apparaitre le chiffre 9 lorsqu'il est le résultat.donc:si(mod(a1;9)=0;9;mod(a1;9))
QUESTION.pourquoi le module fonction d'excel indique que mod renvoie le reste d'une division donc: 257/9=28.55555 et non 5
Excellement à tous!

 

Vote positif 0 Vote négatif

P

presic

XLDnaute Nouveau

• 20 Octobre 2007

• #18

Re : réduction d'un nombre

merci à tous.
pas évident de poser la question clairement.
j'ai utilisé la 1° réponse de jean pierre puis de corolian à savoir : mod(a1;9) et le lien donné par staple1600 car je veux voir apparaitre le chiffre 9 lorsqu'il est le résultat.donc:si(mod(a1;9)=0;9;mod(a1;9))
QUESTION.pourquoi le module fonction d'excel indique que mod renvoie le reste d'une division donc: 257/9=28.55555 et non 5
Excellement à tous!

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 20 Octobre 2007

• #19

Re : réduction d'un nombre

Re,

Pour la première question (qui n'était pas à l'ordre du jour tout à l'heure) : =SI(MOD(A1;9)=0;9;MOD(A1;9))

Voir

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 20 Octobre 2007

• #20

Re : réduction d'un nombre

Re,

Pour ta seconde question, je n'avais pas compris....

C'est le reste intégral, comment dire, celui avant d'y inclure virgule, celui et le dernier auquel on ne peut plus retrancher quoi que ce soit, sauf à devenir négatif....

Clair, je ne sais....

257/9 = 2 reste 77
77/9 =8 reste 5
Là on ne peut plus diviser en nombre entier....

Pas pédagogue des fois, mais je me soigne...

Est-ce clair au regard de ta question ?

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 20 Octobre 2007

• #21

Re : réduction d'un nombre

Bonjour 🙂,
Si j'ai bien compris le problème, c'est une réduction des nombres en faisant toujours la somme des chiffres jusqu'à obtenir un seul chiffre:
Soit 22=4, 55=11=2 et ainsi de suite.
Je te propose la fonction VBA suivante:

Code:

Function Réduction(Nombre)
Dim I As Integer, J As Integer, K As Integer, L As String
Do
    I = Len(Nombre)
    For J = 1 To I
        L = Nombre
        K = K + Val(Mid(L, J, 1))
    Next J
    Nombre = K
    K = 0
Loop While Len(Nombre) > 1 Or K > 10
Réduction = Nombre
End Function

qui devrait répondre à tes attentes.
Application dans le fichier joint.
Pense à me dire si c'était bien ça... 😉

 

Pièces jointes

• Reduction.xls

  22 KB · Affichages: 51
• Reduction.xls

  22 KB · Affichages: 49
• Reduction.xls

  22 KB · Affichages: 49

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Octobre 2007

• #22

Re : réduction d'un nombre

Bonsoir JNP


Oui, (à mon sens en tout cas), tu as compris la requete de presic

Cette réduction a son petit nom bien à elle. 😉

reduction théosophique

 

Dernière édition: 20 Octobre 2007

Vote positif 0 Vote négatif

P

presic

XLDnaute Nouveau

• 20 Octobre 2007

• #23

Re : réduction d'un nombre

je te remercie .
c'est avec le 77/9=8,.....que je pense avoir compris.mod me permet d'obtenir la #entre 77 et le produit des entiers 9 et 8 soit 77-72=5;cela fonctionne avec des nombres + grand et un rang différent
ex pour un rang de 5:77/5=15,.... donc 77-(15x5)=2 ou avec 257: 257/5=51,...donc 257-(5x51)=2

je vais pouvoir poursuivre ma feuille de calculs.....

excellement...

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 20 Octobre 2007

• #24

Re : réduction d'un nombre

Re tous, salut JNP,

Oui, c'est bon tout cela mais bien plus long que mon post de 15h02...

Pour l'instant, on attend l'avis de presic

Mais cela fait plein de soluces différentes.

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 20 Octobre 2007

• #25

Re : réduction d'un nombre

jeanpierre à dit:

Re tous, salut JNP,

Oui, c'est bon tout cela mais bien plus long que mon post de 15h02...

Cliquez pour agrandir...

Bonjour Jean-Pierre,
C'est peut-être plus long, mais quand j'essaie ta formule, 0 donne 9...🙂
Tu me diras, qui du 9 ou de la poule...😀

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 20 Octobre 2007

• #26

Re : réduction d'un nombre

Re,

Oki, bien vu,

Peut-être comme ceci : =SI(A1<>0;SI(MOD(A1;9)=0;9;MOD(A1;9));0)

Voir....

On va y arriver...

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 20 Octobre 2007

• #27

Re : réduction d'un nombre

Bonjour à tous,
Salut JP 🙂,

Il me semble que la fonction MOD() te limite en nombre de chiffres...

Essaye le Mod(123 456 789 876 543;9)

Quinze chiffres étant le maximum d'un nombre calculable d'XL

A+

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 20 Octobre 2007

• #28

Re : réduction d'un nombre

Chapeau bas, Jean-Pierre, maistre de la formule...😉

Bien que, après le message de JCGL, mon VBA reste sans faille...😀

 

Dernière édition: 20 Octobre 2007

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 20 Octobre 2007

• #29

Re : réduction d'un nombre

Re tous,

Salut Jean-Claude,

Merci de me casser la barraque.... (sont comme cela les copains)

Mais des nombres au delà, ça sert à quoi...?

Lorsque mon compte en banque depassera 15 chiffres, j'aviserai.... Pour l'instant, je fais avec... A suivre donc...

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 20 Octobre 2007

• #30

Re : réduction d'un nombre

Re,

Pour JNP que je n'avais pas vu revenir..

Ok, je n'ai pas vérifié la véracité de la chose, mais au vu du code, il n'y a pas de raison...

Ceci dit, tout dépend du besoin...

Il faut rester simple, lorsque la chose est simple.... Plus c'est simple, moins c'est compliqué...

Bonne nuit les loups...

Jean-Pierre

 

Vote positif 0 Vote négatif