Formule SI et/OU

Bonjour,

j'ai un souci avec ces formules car je voudrai n'en faire qu'une en testant en 1er si en C2 la valeur est "NULL"

• si oui : =SI(ET(C2="NULL";SOMME(ANNEE(AUJOURDHUI());-STXT(B2;1;4))>=1);"X";"")
• si non : =SI(ET(SOMME(ANNEE(AUJOURDHUI());-STXT(C2;1;4))<=5;SOMME(ANNEE(AUJOURDHUI());-STXT(C2;1;4))>=1);"X";"")

Quelqu'un peut il m'aider ?

Merci beaucoup

Bonjour,

Une proposition avec une fonction personnalisée (VBA).

A te relire.

Cdlt.

Merci Jean-Eric,

ta fonction marche Nickel.

J'ai aussi réussi à faire une formule Excel

=SI(ET(C2="NULL";SOMME(ANNEE(AUJOURDHUI());-STXT(B2;1;4))<5;SOMME(ANNEE(AUJOURDHUI());-STXT(B2;1;4))>=1);"X";SI(ET(C2="NULL";SOMME(ANNEE(AUJOURDHUI());-STXT(B2;1;4))>=5);"";SI(ET(C2="NULL";SOMME(ANNEE(AUJOURDHUI());-STXT(B2;1;4))<1);"";SI(ET(C2<>"NULL";SOMME(ANNEE(AUJOURDHUI());-STXT(C2;1;4))<5;SOMME(ANNEE(AUJOURDHUI());-STXT(C2;1;4))>=1);"X";""))))

Bonjour,

Pour les curieux !...

Option Explicit

Public Function fnCalculation(txt As String, txt2 As String) As String
Dim dt As Date, dt2 As Date, x As Long
    fnCalculation = ""
    If txt = "" Or txt2 = "" Then Exit Function
    dt = DateValue(txt & "-" & 1)
    Select Case txt2
        Case "NULL":
            x = DateDiff("yyyy", dt, Date)
            If x >= 1 Then fnCalculation = "X"
        Case Else:
            dt2 = DateValue(txt2 & "-" & 1)
            x = DateDiff("yyyy", dt, dt2)
            If x <= 5 Then fnCalculation = "X"
    End Select
End Function