Faire la somme des chiffres d'una date

[Merlin333]

Bonjour à tous
Je suis Novice sur Excel ou VBa j'ai besoin de votre aide svp
J'aimerais faire la somme des chiffres qui composent une date
Par exemple le 24/07/2012
24+07+2012=2043
et dans une deuxième colonne faire la somme des chiffres de ce nombre
soit =9
Pouvez m'aider merci

 

[job75]

Bonjour NumeroMan, soan,

Si vous voulez rester dans l'esprit de ce fil entrez en D1 et tirer vers le bas :

=MOD(C1;9)

L'esprit de ce fil c(est tout simplement la "preuve par 9" qui utilise le calcul "modulo 9" bien connu.

A+

 

[soan]

Bonjour job75, NumeroMan,

Ah oui, elle est drôlement bien, ta formule !

Mais à c'moment-là, j'laisserai tomber les résultats intermédiaires,
et je mettrais en C1 : =MOD(B1;9) ; reste plus qu'à tirer vers le bas.

La colonne D ne sert plus ; et y'a plus besoin de code VBA,
car ma fonctions SumDigits() devient inutile (et donc
le fichier peut être un simple .xlsx et plus un .xlsm).

Je joins ci-dessous, pour NumeroMan, le fichier .xlsx (9 Ko) ;
et comme il a peut-être Excel 2003, le fichier .xls (26,5 Ko).

@NumeroMan : note bien que j'ai fait ces 2 fichiers
grâce à la formule de job75 ; c'est lui que tu dois
remercier !

soan

 

[NumeroMan]

Bonjour job75, NumeroMan,

Ah oui, elle est drôlement bien, ta formule !

Mais à c'moment-là, j'laisserai tomber les résultats intermédiaires,
et je mettrais en C1 : =MOD(B1;9) ; reste plus qu'à tirer vers le bas.

La colonne D ne sert plus ; et y'a plus besoin de code VBA,
car ma fonctions SumDigits() devient inutile (et donc
le fichier peut être un simple .xlsx et plus un .xlsm).

Je joins ci-dessous, pour NumeroMan, le fichier .xlsx (9 Ko) ;
et comme il a peut-être Excel 2003, le fichier .xls (26,5 Ko).

@NumeroMan : note bien que j'ai fait ces 2 fichier
grâce à la formule de job75 ; c'est lui que tu dois
remercier !

soan

Désol" j'était absent le message d'erreur et sur office il indique que les macros sont désactiver car danger potentiel je trouve étonnanty d'avoir la version 2003 alors que j'ai un abo sur le dernier office que je paye tous les mois.
Ensuite j'ai relu tout vos poste et je crois que j'ai pas su m'expliquer correctement des que j'ai un peu de temps je fais une vidéo merci pour votre aide....

 

[NumeroMan]

Bonjour job75, NumeroMan,

Ah oui, elle est drôlement bien, ta formule !

Mais à c'moment-là, j'laisserai tomber les résultats intermédiaires,
et je mettrais en C1 : =MOD(B1;9) ; reste plus qu'à tirer vers le bas.

La colonne D ne sert plus ; et y'a plus besoin de code VBA,
car ma fonctions SumDigits() devient inutile (et donc
le fichier peut être un simple .xlsx et plus un .xlsm).

Je joins ci-dessous, pour NumeroMan, le fichier .xlsx (9 Ko) ;
et comme il a peut-être Excel 2003, le fichier .xls (26,5 Ko).

@NumeroMan : note bien que j'ai fait ces 2 fichiers
grâce à la formule de job75 ; c'est lui que tu dois
remercier !

soan

j'ai rien dit super problème régler un gros gros merci vous êtes super ::::::::::::::::::::::!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

 

[soan]

Bonjour NumeroMan,

Tu as écrit : « il indique que les macros sont désactivées car danger potentiel » ;
avant, moi aussi j'avais Excel 2003 ; et pour éviter ce message, j'avais utilisé
un self-certificat, créé avec selfcert.exe (certificat numérique) ; essaye de
trouver des infos là-dessus pour le mettre en place.

J'ai vu ton post #34 ; je suis bien content que ton exo soit réglé !

soan

 

[NumeroMan]

j'ai rien dit super problème régler un gros gros merci vous êtes super ::::::::::::::::::::::!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

J'ai une autre question, je voudrais écrire une seule fois la date de naissance mais qu'elle se répète automatiquement dans toute les autres cellules sans avoir a la retaper a chaque fois une formule ?

 

[soan]

on s'est croisés ; je te laisse lire mon post #35 ; pour ta nouvelle demande,
je vais essayer de voir si je trouve une solution.

soan

 

[NumeroMan]

Bonjour NumeroMan,

Tu as écrit : « il indique que les macros sont désactivées car danger potentiel » ;
avant, moi aussi j'avais Excel 2003 ; et pour éviter ce message, j'avais utilisé
un self-certificat, créé avec selfcert.exe (certificat numérique) ; essaye de
trouver des infos là-dessus pour le mettre en place.

J'ai vu ton post #34 ; je suis bien content que ton exo soit réglé !

soan

tu m'as sauver la vie et en même temps je prends conscience que tout est possible avec office c'est énorme !!!! j'ai tant a apprendre j'adore ce logiciel et dire qu'avant je passer a côté sans même lui donner de l'importance ^^ après mon objectif serait de faire la même chose mais en mode logiciel mais je sais pas avec quoi ou et comment et si il faut faire du code c'est un peu relou

 

[NumeroMan]

je tombe sur un autre problème sur les chiffre doubles
si j'ai une date genre, 22/12/1985 je veux que le jour donc je fais =JOUR(A1) ok Mais
Je voudrais que les jours subissent une réduction théosophique, a partir du numéro 23 =2+3 =5
Ou peut être existe il une autre solution ?
ou peut être peut on sépare deux formule différente genre =MOD(A1;9) +=JOUR OU additionner le premier chiffre du jours et le second a partir du nombre 23 existe il une formule pour ça ?
J'ai le cerveau qui va mourir Excel c'est bien mais ça fait mal quand même...

 

[soan]

Réponse à ton post #36 (répétition automatique de la date)

Voici ton nouveau fichier !

Tu peux voir que la feuille est entièrement vide.
Il n'y a aucune formule ; tout est fait par VBA.

En A1, saisis la 1ère date : 31/12/1985

En B1, saisis 2028 ➯ en C1 : 3
Supprime 2028 ➯ C1 est vide ; et la date en A1 est toujours là
Remets 2028 en B1 ➯ 3 en C1

En B2, saisis 51 ➯ la date de A1 est répétée A2, et en C2 : 6
Supprime 51 ➯ A2 est vide et C2 est vide
Remets 51 en B2 ➯ date de A1 en B2 et 6 en C2

Pour toutes les autres lignes en dessous : même fonctionnement
que pour la ligne 2 ; la seule différence avec la ligne 1 est que
si on est sur la ligne 1 et qu'on efface B1, ça n'efface pas la 1ère
date de A1 ; alors, heureux ?

-------------------------------------------------------------------------

Je viens de voir ton post #39, mais là, je dois m'absenter pour
très longtemps ; donc je m'en occuperai bien plus tard.

soan

 

[NumeroMan]

énorme merci pas de soucis tu as déjà fait beaucoup j'ai pas mal appris grâce a toi au plaisir SOAN !!!

 

[soan]

Bonjour NumeroMan,

Ceci est la réponse à ton post #39 d'hier à 14:59.

-----------------------------------------------------------

Je suis d'accord avec toi : si tu as en A1 : 22/12/1985
alors =JOUR(A1) retourne le Jour, donc : 22

-----------------------------------------------------------

Si tu as en A1 : 23/12/1985, alors :

=JOUR(A1) retourne le Jour : 23

et

=MOD(JOUR(A1);9) retourne 5

soan

 

[Leeloo34]

Bonjour à tous,

Je cherche à additionner tous les nombres d'un chiffre (et non une date) dans un cellule excel ... Est ce quelqu'un pourrait m'aider ? Merci beaucoup !!!

 

[job75]

Bonjour Leeloo34, bienvenue sur XLD,

Le nombre étant en A1 la somme des chiffres est donnée par :

=SOMMEPROD(--STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1))

A+

 

[Leeloo34]

Bonjour job75 merci pour votre réponse rapide