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

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:

---

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!

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:

---

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 ;)

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. :?

re,

Peux-tu me donner quelques valeurs à tester

A te relire

Dan ;)

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!

Bonjour,

Vous indiquez dans votre réponse :

Citation:

---

Voici un bout du fichier.

---

mais il n'y a aucun fichier joint !