Calcul sur Excel

Bonjour,

Pouvez vous m'aider pour calculer sur excel la somme d'un chiffre soit par ex 1998 = 1+9+9+8 pour pouvoir calculer le chiffre d'une date de naissance soit 23/04/1955 = 2+3+4+1+9+5+5=29 ...2+9=11 =2

Merci de votre aide

Bonjour,

deux formules avec la date en A2

par SOMMEPROD à valider normalement

=SOMMEPROD(1*(STXT(TEXTE(SOMMEPROD(1*(STXT(ANNEE(A2)+MOIS(A2)+JOUR(A2);LIGNE($1:$4);1)));"00");LIGNE($1:$2);1)))

par une matricielle --> Appuyer sur les touches : Ctrl+Maj+entrée pour valider.

=SOMME(1*(STXT(TEXTE(SOMME(1*(STXT(ANNEE(A2)+MOIS(A2)+JOUR(A2);LIGNE($1:$4);1)));"00");LIGNE($1:$2);1)))

Bonjour le fil, bonjour le forum,

Un proposition VBA. La date en A1 :

Sub Macro1()
Dim V As String 'déclare la variable V (Valeur)
Dim P(2) As Variant 'définit le tableau P des parties séparées par un slash (/)
Dim T As Integer 'déclare la variabe T (Total)
Dim RT As Integer 'déclare la variable RT (Récupération du Total)

V = CStr(Range("A1").Value) 'définit la valeur V (convertis la date en texte)
For I = 0 To 2 'boucle 1: sur les trois parties (jour/mois/Année)
    P(I) = Split(V, "/")(I) 'récupère la partie dans la variable P(I)
    For J = 1 To Len(P(I)) 'boucle 2 : sur tous les caractères de la partie
        T = T + CInt(Mid(P(I), J, 1)) 'calcule le total T des caractères
    Next J 'prochain caractère de la boucle 2
Next I 'prochaine partie de la boucle 1
Do Until T < 10 'éxécute jusqu'a ce que RT n'ait qu'un seul caractère
    RT = T: T = 0 'récupère la valeut de T dans la variable RT, Vide T
    For J = 1 To Len(RT) 'boucle sur tous les caractères des RT
        T = T + CInt(Mid(RT, J, 1)) 'calcule le total T des caractères
    Next J 'prochain caractère de la boucle
Loop 'boucle
MsgBox T 'affiche la valeur du total T
End Sub

Bonsoir,

=MOD(TEXTE(A1;"JJMMAAAA")-1;9)+1

A+

Rechercher des sujets similaires à "calcul"