Bonjour à tous,

Je me permets de vous demander de votre aide car je dois automatiser des formules sous excel. Voici un exemple :

"=SI(C3=4;SI(L3=""; DATEDIF(DATE(2006;12;22);DATE(2009;10;8);"m");DATEDIF(L3;DATE(2009;10;8);"m"));""))"

J'ai crée un code VBA correspondant a cette formule cependant elle ne me donne pas le même résultat. Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Ancienneté()
 
Dim firstDate As Date
 
firstDate = CDate(InputBox("Entrez une date"))
For i = 2 To ActiveSheet.UsedRange.Rows.Count
 
If Range("C" & i).Value <> 4 Then
Range("M" & i).Value = ""
     Else
 
        If Range("L" & i).Value = "" Then
        Range("M" & i).Value = DateDiff("m", Range("I2").Value, firstDate)
            Else
        Range("M" & i).Value = DateDiff("m", Range("L" & i).Value, firsDate)
 
        End If
End If
 
Next i
 
End Sub
Y a-t-il une erreur ??

Merci pour votre aide!