XL 2019 Poser une addition pour reduire les resultats

Azrael83260 · 29 Juin 2020

Bonjour à tous !

Je suis nouveau sur ce forum et vous remercie déjà par avance de votre accueil et du temps que vous m'accorderez.
Voilà mon "problème": j'aimerai pouvoir poser des additions dans excel ( jour de naissance + mois de naissance + année de naissance) avec les retenues qui vont avec bien sur haha.
A partir du résultat obtenu je voudrais le réduire d'abord à 2 chiffres puis à un chiffre sauf 2 cas particuliers si le "R2" correspond à un 11 ou 22.

Exemple :

02
+ 02
+ 1990
-----------
1994 (R1)
------------
23 (1+9+9+4) (R2)
-------------
5

J'espère que mes propos sont compréhensibles mdr !
Merci encore pour votre aide

sylvanu · 29 Juin 2020

Bonjour Azrael, et bienvenu(e) sur XLD,
Un essai en PJ avec une fonction perso :

Code:

Function Calc(T0)
Add1 = "D" & Year(T0) + Month(T0) + Day(T0)    ' Add1 est une chaine plus simple à traiter ensuite
Add2 = "D" & Val(Mid(Add1, 2, 1)) + Val(Mid(Add1, 3, 1)) + Val(Mid(Add1, 4, 1)) + Val(Mid(Add1, 5, 1))
If Add2 <> "D11" And Add2 <> "D22" Then
    Calc = Val(Mid(Add2, 2, 1)) + Val(Mid(Add2, 3, 1))
Else
    Calc = Val(Mid(Add2, 2))
End If
End Function

et aussi par calcul, mais j'ai pris plusieurs colonnes.

Azrael83260 · 29 Juin 2020

Bonjour

sylvanu à dit:
Bonjour Azrael, et bienvenu(e) sur XLD,
Un essai en PJ avec une fonction perso :

VB:

Function Calc(T0) Add1 = "D" & Year(T0) + Month(T0) + Day(T0) ' Add1 est une chaine plus simple à traiter ensuite Add2 = "D" & Val(Mid(Add1, 2, 1)) + Val(Mid(Add1, 3, 1)) + Val(Mid(Add1, 4, 1)) + Val(Mid(Add1, 5, 1)) If Add2 <> 11 Or Add2 <> 22 Then Calc = Val(Mid(Add2, 2, 1)) + Val(Mid(Add2, 3, 1)) Else Calc = Val(Mid(Add2, 2)) End If End Function

J'ai testé mais je n'ai pas trouvé de date dont le calcul fait 11 ou 22

Bonjour Sylvanu et merci pour votre aide
J'aimerai pouvoir avoir l'opération posée car j'ai des interprétations issues de la première réduction
voici un exemple de 11 : 14.09.1995 = 2018 = 11

sylvanu · 29 Juin 2020

Hop, une petite modif;
La syntaxe est maintenant Calc(N;0) donne le calcul intermédiaire, Calc(N,1) le calcul final.
Pour le calcul par formules, c'est en colonne G.

Azrael83260 · 29 Juin 2020

sylvanu à dit:
Hop, une petite modif;
La syntaxe est maintenant Calc(N;0) donne le calcul intermédiaire, Calc(N,1) le calcul final.
Pour le calcul par formules, c'est en colonne G.

Merci beaucoup c'est génial !

XL 2019 Poser une addition pour reduire les resultats

Azrael83260

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

Azrael83260

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

Azrael83260

XLDnaute Nouveau