Résulats différents avec Datdif dans formule Excel et Datediff en VBA ?

**Jay29** · 14/10/2009, 11h27

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!

**Nad-Dan** · 14/10/2009, 14h01

Bonjour,

Deux petites corrections à faire sur ces deux lignes

Range("M" & i).Value = DateDiff("m", Range("I2").Value, firstDate)
Range("M" & i).Value = DateDiff("m", Range("L" & i).Value, firsDate)

Le code à essayer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Ancienneté()
Dim firstDate As Date
Dim i As Integer
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 = ""
ElseIf Range("L" & i).Value = "" Then
    Range("M" & i).Value = DateDiff("m", Range("I" & i).Value, firstDate)
Else
    Range("M" & i).Value = DateDiff("m", Range("L" & i).Value, firstDate)
End If
Next i
End Sub

Si tu le veux, tu peux aussi enlever tous les ".Value" dans ton code.

Amicalement

Dan

**Jay29** · 14/10/2009, 14h26

Merci pour ton aide.

Cependant c'est étrange car le code vba est censé exécuter la même fonction que la formule or le résultat au final n'est pas le même. Le résultat obtenu avec le code vba est supérieur de 1 par rapport au résultat de la formule.

**Nad-Dan** · 15/10/2009, 13h13

re,

Peux-tu me donner quelques valeurs à tester

A te relire

Dan

**Jay29** · 16/10/2009, 10h04

Re,

Voici un bout du fichier. Dans la colonne M se trouve le résultat avec le code VBA et dans la colonne N celui avec la formule excel.

Merci pour ton aide!