cs_Jay29
Messages postés4Date d'inscriptionmercredi 16 septembre 2009StatutMembreDernière intervention18 septembre 2009
-
18 sept. 2009 à 14:43
cs_Jay29
Messages postés4Date d'inscriptionmercredi 16 septembre 2009StatutMembreDernière intervention18 septembre 2009
-
18 sept. 2009 à 14:45
Bonjour a tous,
Je vous explique j'ai crée une macro sous excel 2007 cependant lorsque je l'exécute j'ai une erreur sur la dernière ligne de mon code. Le voici ci dessous :
Sub Macro1()
'
' Macro1 Macro
'
Dim firstDate As Date
Dim i As Long
Dim Res As Variant
Range("AC1").Value = "Ancienneté Instruction"
firstDate = CDate(InputBox("Entrer une date"))
For i = 2 To Range("F65536").End(xlUp).Row
For j = 2 To Range("R65536").End(xlUp).Row
If Range("F" & i).Value < 4 Then
Res = -1
Else
If Range("F" & i).Value < 6 Then
If Range("R" & j).Value = "" Then
Res = "NA"
Else
Res = DateDiff("m", Range("R" & j).Value, firstDate)
End If
End If
End If
Range("AC" & j, "AC" & i).Value = Res
Next j
Next i
'
End Sub