Excel et numérologie
Hors ligneMickey Le 16/03/2006 à 14:26 Profil de Mickey Configuration de Mickey

Salut à tous,
Jaimerais réduire des dates suivant la méthode de numérologie.
Je mexplique :
Si on prend par exemple le 15 mars 2006,
Lopération se pose de la façon suivante :

        15      ( Pour  le jour)
+        3      (Pour le mois)
+   2006      (Pour lannée)

Total= 2024
Ensuite, on additionne tous les chiffres du résultat précédent de façon à nobtenir quun seul chiffre (De 1 à 9).
Si le nouveau résultat donne plus dun chiffre, alors, on additionne à nouveau tous les chiffres de ce nouveau résultat,
et ainsi de suite jusquà obtention dun seul chiffre. ( Résultat du 15 mars 2006 =8)

Ceci est-il possible avec excel ?
Merci davance
A+
Hors ligneTigene Le 16/03/2006 à 17:12 Profil de Tigene Configuration de Tigene

Viconaute Modérateur
salut mickey

d'abord tu peux simplifier car 31 + 12 + 2006 te donneras la même chose que 3+1+1+2+2+0+0+6

je n'ai pas eu le temps de réaliser la fonction, mais tu peux utiliser

cette fonction "stxt(A1;1;1)"
et celle ci "cnum(A1)"

en combinant ça va donner qq chose comme ça :

ta date est en A1, par exemple 31122006

= somme(cnum(stxt(A1;1;1));cnum(stxt(A1;2;1));cnum(stxt(A1;3;1));........)

de plus avec la fonction : si somme(....)>9, tu dois pouvoir additionner ou pas les deux chiffres.

bon si ça peux t'aider

@+
--

Ce n'est pas parce qu'on a quelque chose à dire, qu'il faut forcément l'ouvrir

Hors ligneLebabs Le 16/03/2006 à 19:20 Profil de Lebabs Configuration de Lebabs

Bonjour Mickey,
Oui, tout est possible avec excel, la seule limite étant celle de notre imagination.
Pour revenir à ton problème, je te propose la chose suivante:

En imaginant que la date à réduire se trouve en A1, tu peux placer la formule:
=(((JOUR(A1)+MOIS(A1)+ANNEE(A1))/9)-TRONQUE((JOUR(A1)+MOIS(A1)+ANNEE(A1))/9;0))*9

C'est tout. Je te laisse le soin de supprimer les parenthèses inutiles. (Après essai seulement).

@+
--
D'une étincelle peut jaillir la lumière.
Hors ligneTigene Le 16/03/2006 à 19:52 Profil de Tigene Configuration de Tigene

Viconaute Modérateur
wahoouuuuuu
trop fort Lebabs

J'ai pas compris le raisonnement mathématique, mais ça marche

exemple 26 11 1954 donne 2 en numérologie

26 11 1954 --> 1991 -->1991/9=221,2222
221,2222-221=0,222 --> 0,222x9=2    CQFD

Bravo
--

Ce n'est pas parce qu'on a quelque chose à dire, qu'il faut forcément l'ouvrir

Hors ligneLebabs Le 17/03/2006 à 12:46 Profil de Lebabs Configuration de Lebabs

Bonjour tigène,
Merci pour le compliment, c'est toujours très agréable de se faire caresser dans le sens du poil.
Pour revenir à ma formule, elle présente aussi l'avantage de fonctionner même si le mois est écrit en toutes lettes.
@+
--
D'une étincelle peut jaillir la lumière.
Hors ligneTigene Le 17/03/2006 à 13:08 Profil de Tigene Configuration de Tigene

Viconaute Modérateur
il existe aussi la numérologie qui comptabilise le poids des lettres dans le mot.

exemple MARS = 13+1+18+19 = 51->6

et là quel sera la formule ?

--

Ce n'est pas parce qu'on a quelque chose à dire, qu'il faut forcément l'ouvrir

Hors ligneMickey Le 17/03/2006 à 20:33 Profil de Mickey Configuration de Mickey

Salut à tous,
Quel pied, ce V.I.C.
Toujours quelqu'un pour vous dépanner, et de plus, toujours l'humour et la bonne humeur.
Merci, vous êtes super.
a+
Hors ligneLebabs Le 18/03/2006 à 14:15 Profil de Lebabs Configuration de Lebabs

Je ne vois pas de formule qui pourrait faire ce que tu demandes, mais la petite macro suivante y arrive très bien. De plus, elle est insensible aux majuscules.
En imaginant que le mot à réduire soit en A1 et que tu veuilles le résultat en B1:

Sub ValLettres()
Dim Texte, NbreCar, total
Range("B1").Value = ""
Texte = LCase(Range("A1").Value)
NbreCar = Len(Texte)
For lettre = 1 To NbreCar
total = Range("B1").Value + Asc(Mid(Texte, lettre, 1)) - 96
Range("B1").Value = (total / 9 - Int(total / 9)) * 9
Next lettre
End Sub

Bien sûr tu peux appeler cette macro à partir de la feuille de calcul.
à+
--
D'une étincelle peut jaillir la lumière.
Hors ligneTigene Le 18/03/2006 à 14:28 Profil de Tigene Configuration de Tigene

Viconaute Modérateur
STOP !
n'en jette plus, par surcroit je suis contre le maquereautage !



--

Ce n'est pas parce qu'on a quelque chose à dire, qu'il faut forcément l'ouvrir

Vous avez résolu votre problème avec VIC ? Faites-le savoir sur les réseaux sociaux !
Vulgarisation-informatique.com
Cours en informatique & tutoriels