comparaison de date

[flo2002]

Re bonjour,
une petite derniere avant le week end,

j'ai fait un bout de macro qui copy colle en valeur selon une date. Cependant, j'ai l'impression qu'il fait le truc à l'envers.
Ai je bien mis le format?
Dim derlign As String
derlign = Range("E65536").End(xlUp).Row
If Format(Range("B1").Value, "ddmmyyyy") < Format(Range("L9").Value, "ddmmyyyy") Then
Range(Cells(14, 1), Cells(derlign, 11)).Select
Selection.Copy
Range(Cells(14, 1), Cells(derlign, 11)).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End If

merci d'avance

 

[JeanMarie]

Re : comparaison de date

Re...

Qu'elles sont les données que tu as dans les cellule B1 et L9 ?

Une petite adaption du code

Dim derlign As String
derlign = Range("E65536").End(xlUp).Row
If Range("B1") < Range("L9") Then
Range(Cells(14, 1), Cells(derlign, 11)).value = Range(Cells(14, 1), Cells(derlign, 11)).value
        End If

@+Jean-Marie

 

[flo2002]

Re : comparaison de date

Re et encore merci Jean Marie pour le temps que tu me consacre.
J'ai en B1 la date du jour donc j'ai mis Date et en L9 la date de fin du mois, exemple 31/01/2006.
Donc le format est important je crois.

 

[flo2002]

Re : comparaison de date

on dirais que c'est bon avec ca:

Dim derlign As String
derlign = Range("E65536").End(xlUp).Row
If Date > Range("l9").Value Then
Range(Cells(14, 1), Cells(derlign, 11)).Value = Range(Cells(14, 1), Cells(derlign, 11)).Value
End If

merci encore