réduction d'un nombre

[presic]

bonjour.
je recherche la fonction pour (réduire) un nombre à sa + simple expression (<=) 9 et qui serait simple à utiliser,n'étant pas specialiste en language informatique .
ex:257=5
1999=1
20102007=3
meci!

 

[jeanpierre]

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

 

[presic]

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!

 

[presic]

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!

 

[jeanpierre]

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

 

[jeanpierre]

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 ?

 

[JNP]

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:

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... 😉

 

[Staple1600]

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

 

[presic]

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...

 

[jeanpierre]

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.

 

[JNP]

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...

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...😀

 

[jeanpierre]

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...

 

[JCGL]

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+

 

[JNP]

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...😀

 

[jeanpierre]

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...

 

[jeanpierre]

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