Problème dans une condition entre deux dates
Bonjour à tous,
J'ai deux feuilles et je dois comparer deux dates dans une condition if j'ai une erreur.
Dans la feuille RELEVES j'ai une date que je compare avec la dernière date de la feuille Conso eau douce dans la colonne a si la date dans releves est suppérieur alors je dois faire... sinon je fais autre chose, pour le moment j'ai nmon If > et then qui sont en rouge, pouvez-vous m'aider.
Citation:
Sub Maj_Eau_douce()
If
Sheets("RELEVES").Select
Range("$I$1").Select
>
Sheets("Conso eau douce").Select
Range("A" & Range("A65500").End(xlUp).Row).Select
Then
' Date Suppérieur
Sheets("RELEVES").Select
Range("$I$1").Select
Selection.Copy
Sheets("Conso eau douce").Select
Range("A" & Range("A65500").End(xlUp).Row + 1).Select
ActiveSheet.Paste
Sheets("RELEVES").Select
Range("$K$14").Select
Selection.Copy
Sheets("Conso eau douce").Select
Range("B" & Range("B65500").End(xlUp).Row + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Conso eau douce").Select
Cells(56000, 3).End(xlUp).Select
Selection.Copy
Range("C" & Range("C65500").End(xlUp).Row + 1).Select
ActiveSheet.Paste
Else
' Date identique
Sheets("RELEVES").Select
Range("$I$1").Select
Selection.Copy
Sheets("Conso eau douce").Select
Cells(56000, 1).End(xlUp).Select
ActiveSheet.Paste
Sheets("RELEVES").Select
Range("$K$14").Select
Selection.Copy
Sheets("Conso eau douce").Select
Cells(56000, 2).End(xlUp).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
End Sub
