Probléme avec dateserial(RESOLU)

[JBARBE]

bonjour à tous,

je me trouve confronté avec des problèmes avec dateserial . Ce problème serait-il lié avec mon Excel 2007 ???

Sub essai()
For i = 1 To 3 ' LES CELLULES B1 ET B2 DEVRAIT AVOIR UN X
If Cells(i, 1) = DateSerial(Year(ActiveCell), Month(ActiveCell), Day(ActiveCell)) Then Cells(i, 2) = "X"
Next i
End Sub

Sub essai_X()
For i = 1 To 3 'LA CELLULE B2 DEVRAIT AVOIR UN X
If Cells(i, 1) = DateSerial(Year(2014), Month(2), Day(1)) Then Cells(i, 2) = "X"
Next i
End Sub

Sub essai_Z()
For i = 4 To 5 ' LA CELLULE A4 ET A5 DOIT ÊTRE MISE A 1 MOIS PLUS TARD, IL Y A PEUT-ÊTRE UN AUTRE MOYEN DE REPORT
Cells(i, 1) = Cells(i, 1) + 35
Cells(i, 1) = DateSerial(Year(ActiveCell), Month(ActiveCell), Day(12))
Next i
End Sub

Merci à l'avance !

 

[Bebere]

Re : Probléme avec dateserial

bonjour Jbarbe
à tester

Sub essai()
    For i = 1 To 3    ' LES CELLULES B1 ET B2 DEVRAIT AVOIR UN X

        If IsDate(Cells(i, 1)) Then
            If Month(Cells(i, 1)) = 2 And Year(Cells(i, 1)) = 2014 Then Cells(i, 2) = "X"
        End If
    Next i

End Sub

Sub essai_X()

    For i = 1 To 3    'LA CELLULE B2 DEVRAIT AVOIR UN X
        If Cells(i, 1) = DateSerial(2014, 2, 1) Then Cells(i, 2) = "X"
    Next i

End Sub

Sub essai_Z()

    For i = 4 To 5    ' LA CELLULE A4 ET A5 DOIT ÊTRE MISE A 1 MOIS PLUS TARD
        Cells(i, 1) = DateSerial(Year(Cells(i, 1)), Month(Cells(i, 1)) + 1, Day(Cells(i, 1)))
    Next i

End Sub

 

[JBARBE]

Re : Probléme avec dateserial

OK ça marche !

Merci beaucoup bebere et bonne journée à tous !