Formule de calcul ?

[Feng]

Bonsoir,
Je souhaiterais connaitre la façon de faire un calcul de date :
1974 = 1 + 9 + 7 + 4 = 21 = 2 + 1 = 3
Comment arriver à : 1974 = 3
J'espère m'être bien exprimé, un grand merci par avance pour votre
réponse 🙂

 

[Hervé]

bonsoir

Une solution par macro, je pense que les solutions par formule vont suivre.

Public Sub vev()
Dim num As Long, valeur1 As Long
num = Range("a1")
valeur1 = Left(num, 1) * 1 + Mid(num, 2, 1) + Mid(num, 3, 1) + Right(num, 1)
If Len(valeur1) > 1 Then
valeur1 = Left(valeur1, 1) * 1 + Right(valeur1, 1)
MsgBox valeur1
Else
MsgBox valeur1
End If
End Sub

salut
Hervé

 

[Jean-Marie]

Bonjour

En utilisant le même principe que la macro VBA d'Hervé.

=ENT(SOMMEPROD(1*STXT(A9;LIGNE(DECALER(A1;;;NBCAR(A9)));1))/10)+MOD(SOMMEPROD(1*STXT(A9;LIGNE(DECALER(A1;;;NBCAR(A9)));1));10)

@+Jean-Marie

 

[Monique]

Bonjour,

Jusqu'à 9999 (si ce ne sont que des années, des mois ou des jours :
=SOMMEPROD((STXT(TEXTE(SOMMEPROD((STXT(TEXTE($A1;"0000");{1;2;3;4};1)*1));"00");{1;2};1)*1))