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

Bonjour presic et Bienvenue, le forum,

Essaies =MOD(A1;9), avec ta valeur en A1 et que tu peux tirer vers le bas.

A te lire.

Jean-Pierre

 

[Épaf]

Re : réduction d'un nombre

Bonjour Presic,
Tu es sûr de ça ?

257=5

Pour obtenir le PPCD, tu vérifies l'entier de la division par 1, puis 2,3... 9
Quand l'entier de la division est <> du résultat de la division, tu es allé un chiffre trop loin.
Si j'ai bien compris ta question 🙄
@+

 

[Coriolan]

Re : réduction d'un nombre

Bonjour

Cf fichier joint

 

[Épaf]

Re : réduction d'un nombre

Est-ce ce que tu veux ?

Sub Test_ppcd()
Dim ppcd, ok As Boolean
    For i = 1 To 9
        If 2220 / i = Int(2220 / i) Then ppcd = i
    Next
    MsgBox ppcd
End Sub

@+

Ce n'est pas tout à fait le plus petit commun dénominateur puis que tu limites le diviseur à 9 mais bon...

 

[Staple1600]

Re : réduction d'un nombre

Bonjpour



Moi j'ai compris ceci:

20102007=3

2+0+1+0+2+0+0+7=3+2+7=5+7=12=1+2=3


Une function VBA qui somme chaque caractères d'une cellule

 

[Épaf]

Re : réduction d'un nombre

Ok, Staple, tu as raison... C'est là qu'il serait bien de pouvoir effacer ses réponses 😱

 

[jeanpierre]

Re : réduction d'un nombre

Re,

Bonjour Epaf (Epaf la gamelle, enfin deux avant réédition. La seconde semble fontionner 1 coup sur 2)
Bonjour Coriolan (j'aime bien ta formulation, mais un peu longue)
Bonjour Staple (c'est ce que fait ma formule de 12h30)

C'était pour vous souhaiter une bonne journée.

Jean-Pierre

 

[Staple1600]

Re : réduction d'un nombre

Re

En adaptant d'ici
https://www.excel-downloads.com/threads/numerologie.55565/

Function sommechif(R As Range)
Application.Volatile ' [COLOR="SeaGreen"]on met ou pas ?[/COLOR]
Dim Result
Nbre = R
Result = Nbre Mod 9 - 9 * (Nbre Mod 9 = 0)
sommechif = Result
End Function

ensuite si en A1 on a 123
saisir en B1: =sommechif(A1) et on obtient: 6

-> jeanpierre (bonjour): j'avais bien vu que tu avais compris la question comme je l'ai comprise.

 

[Épaf]

Re : réduction d'un nombre

Eh oui Staple, tu es mieux reveillé que moi...
Et dire que je n'ai même pas pensé à mod 🙁
Bon, je me mets en week-end 😱

 

[Coriolan]

Re : réduction d'un nombre

Honte sur moi!!!

La première réponse de JeanPierre est évidemment la bonne : mod(a1;9) (sans tirer vers le bas) et c'est plié!!!

Mon usine à gaz marchait aussi, mais ... 🙁

 

[Staple1600]

Re : réduction d'un nombre

Re


Epaf , pour te taquiner 😉

bonjour.
je recherche la fonction pour (réduire) un nombre à sa + simple expression (<=) 9

Une fonction est demandée 🙄

Alors on met ou mets pas le volatile sans plume ?

Bien que la formule de jeanpierre soit plus simple à mettre en oeuvre

 

[jeanpierre]

Re : réduction d'un nombre

Re,

Comme je t'ai dit, Coriolan, j'aime bien ta formulation.

Pourquoi, tirer vers le bas, simplement s'il y a beaucoup de données. (Précision pour presic, si besoin)

Staple, une fonction ne veut pas, la plupart du temps, dire en VBA.....
Une fonction VBA, c'est lorsque Excel est arrivé à ses limites.

Bon week-end (je n'ai plus trop la notion du temps...)

 

[Staple1600]

Re : réduction d'un nombre

Re

En hommage à jeanpierre 😉

Function jp_formule(R As Range)
Result = R Mod 9
jp_formule = Result
End Function

Une question au VBAistes : doit-on on n doit-on pas mettre Application.Volatile

 

[chris]

Re : réduction d'un nombre

Bonjour

Qui parmi vous tous (que je salue) a écrit "pourquoi faire simple quand on peut faire compliqué" ? A lui d'être moqué !

Pour le VBA je dirais non pour volatile car aucun des arguments ne changera : on le met pour les fonctions liées au temps (qui passe eh oui) ou aux déplacements dans le classeur qui nécessient un recalcul : fonctions récupérant le nom de l'onglet par exemple.

Bon week end à tous