numerologie

[pat81fr]

bjr, je cherche a faire une macro pour reduireun nombre de 2 chiffres en faisant l'addition de ses 2 chiffres et le refaire jusqu'à ce que ce nombre n'ait plus qu'un seul chiffre.
exemple 84 donne 8+4 =12 qu'il faut encore reduire à 1+2 =3.
Simple?
Merci aux experts.A+

 

[GillesC]

Une solution simpliste :
en A1 84
en B1 : =GAUCHE(A1;1)+DROITE(A1;1)
en C1 : =GAUCHE(B1;1)+DROITE(B1;1)
En C1 il y aura 3

rectif pour C1 :
=SI(NBCAR(B1)=2;GAUCHE(B1;1)+DROITE(B1;1);B1)

Message édité par: GillesC, à: 22/02/2006 16:05

 

[@Bobby]

Une autre solution en VBA

Sub blabla()

Do While Len(Range('A1')) > 1

Range('A1') = CInt(Left(Range('A1'), 1)) + CInt(Right(Range('A1'), 1))

Loop


End Sub

Bien à vous

 

[PascalXLD]

Bonjour

un exemple de macro pour mettre en B1 ce que tu demandes pour un chiffre contenu en A1


Sub numero()
Dim MonNum As Byte
MonNum = Val(Right(Range('A1'), 1)) + Val(Left(Range('A1'), 1))
Range('B1') = IIf(MonNum > 9, Val(Right(MonNum, 1)) + Val(Left(MonNum, 1)), MonNum)

End Sub

 

[andré]

Salut,

Aussi pour le 'fun', le tout en une cellule :
=ENT((ENT(A1/10)+MOD(A1;10))/10)+MOD((ENT(A1/10)+MOD(A1;10));10)

Je crois aussi qu'une macro sera plus simple !

Â+

 

[andré]

Resalut,

Toujours pour le fun, mais beaucoup mieux :

En A1 un nombre de 5 chiffres.
En B1 : =SOMME(STXT(SOMME(STXT(A1;{1;2;3;4;5};1)*1);{1;2};1)*1)

Â+

Message édité par: andré, à: 22/02/2006 16:21

 

[PhiBou]

Bonjour le Fil, le Forum

=SI(MOD(A1;9)=0;9;MOD(A1;9))

ou

=MOD(A1;9)+9*(MOD(A1;9)=0)

@+

PhiBou

 

[PhiBou]

Re le fil, le Forum

Y'avais pas vu par macro, donc en transposant :

Nbre = Cells(1, 1)
Result = Nbre Mod 9 - 9 * (Nbre Mod 9 = 0)
MsgBox Result

PhiBou

 

[pierrejean]

bravo


Message édité par: pierrejean, à: 22/02/2006 18:31

Message édité par: pierrejean, à: 22/02/2006 18:32

 

[pat81fr]

Je réponds à tous, un grand MERCI. Je vais profiter de ces qqs jours de vacances pour mettre ce calcul en place.
Bonne journée à tous et encore BRAVO pour votre savoir.
Patrick :woohoo:

 

[pat81fr]

bjr, André, c'est ta formule que je choisis.comment faire pour commencer le calcul quand, par exemple, A2 est déjà le produit d'un calcul A2=C1-2.
A bientot de te lire;
Patrick

 

[andré]

Salut,

Je n'avais pas vu passer ton message.
Heureusement que tu me l'as signalé par messagerie privée !

De quelle formule parles-tu, j'en ai donné deux ?

En principe, il suffit de changer A1 par A2 dans la formule, le fait que cette cellule soit déjà le résultat d'une formule ne devrait rien changer.

Si cela ne marche pas, mets un petit exemple en pièce jointe, ou donne un exemple de ce que tu as en C1.

Bon dimanche.
Â+