XL pour MAC Bonjour, Besoin d'aide pour un calcul de réduction avec conditions - Merci

Staple1600 à dit:

Re

C'est donc une réduction théosophique particulière car selon ce qu'on lit (toujours sans le second fil)

NB: Tu as essayé la formule de Modeste geedee?
(voir message#13)

Cliquez pour agrandir...

soulève à dit:

je vais la tester pour voir et surtout pour que tu ne sois pas intervenu pour rien Merci à toi Staple

Cliquez pour agrandir...

Staple1600 à dit:

Re

Merci de ta sollicitude.
Mais je n'interviens jamais pour rien
Puisque chaque connexion sur XLD procure du plaisir
1) à mon clavier
2) à mes neurones
3) à G..gle


Et parfois, les soirs sans lune, il arrive que mes réponses aident le lecteur

Cliquez pour agrandir...

Connais tu le référentiel de Naissance ?

Cliquez pour agrandir...

Staple1600 à dit:

Re

Fais-ce petit test sur une feuille vierge

VB:

Sub reduction()
[A1] = 1: [A1:A50].DataSeries
[B1:B50] = "=IFERROR(MAX(MOD(RC[-1],9),9*(MOD(RC[-1],9)=0)),""?"")"
Application.Goto [A21], True
End Sub

Tu obtiens bien 3, non?

Cliquez pour agrandir...

Staple1600 à dit:

Re

Il faut regarder dans la colonne B
(là où il y a les formules)
Il y a bien 3 en B21, non ?

Cliquez pour agrandir...

mapomme à dit:

Bonsoir @Staple1600 ,
Et ceci =1+MOD(A1-1;9), ça marche ?

Cliquez pour agrandir...

Sub reduction_II()
[A1] = 1: [A1:A50].DataSeries
[B1:B50] = "=IFERROR(MAX(MOD(RC[-1],9),9*(MOD(RC[-1],9)=0)),""?"")"
[C1:C50] = "=1+MOD(A1-1,9)+N(""mapomme"")"
Application.Goto [A21], True
[B21].Font.Bold = True
[B21].Interior.ColorIndex = 4
End Sub

Staple1600 à dit:

Re

j'ai bien parlé de faire le test sur une feuille vierge
C'est un test pour voir l'effet de la formule

Ensuite, on peut adapter.

Ma question était donc:
Si tu testes la macro sur une feuille vide, tu obtiens bien 3 en B21
(avec en A21 le nombre 21)
La réduction se fait donc bien.

Cliquez pour agrandir...