comparaison de date

flo2002 · 18 Août 2006

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 · 18 Août 2006

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

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 · 18 Août 2006

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 · 18 Août 2006

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

comparaison de date

flo2002

XLDnaute Impliqué

JeanMarie

XLDnaute Barbatruc

flo2002

XLDnaute Impliqué

flo2002

XLDnaute Impliqué

Discussions similaires

comparaison de date

flo2002

XLDnaute Impliqué

JeanMarie

XLDnaute Barbatruc

flo2002

XLDnaute Impliqué

flo2002

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency