Couper/coller conditionnel

bonjour Fred,

voici un exemple en espérant ne pas t'enfuir trop profondément en vba
;-)

Sub Macro1()
x = Sheets("Feuil2").Range("A65536").End(xlUp).Row
For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row)
If c <= Date - (365 * 2) Then
x = x + 1
Range(Cells(c.Row, 1), Cells(c.Row, 5)).Copy _
Destination:=Sheets("Feuil2").Cells(x, 1)
Range(Cells(c.Row, 1), Cells(c.Row, 5)).ClearContents
End If
Next
End Sub

isabelle

Bonjour,

Je souhaiterais faire la chose suivante:

Sur une ligne (la ligne 2 de A à F, par exemple).
Si la date du jour est supérieure de deux ans à une date X
Couper/coller cette ligne sur une autre feuille.

Est-ce possible sans une immersion plus que profonde dans les arcanes du
VBA?

Merci et bonne soirée,

FRED.

as-tu essayé d'utiliser un filtre ?


"fred" <nospam@nospam.com> a écrit dans le message de news:
OtS42516DHA.2996@tk2msftngp13.phx.gbl...

Bonjour,

Je souhaiterais faire la chose suivante:

Sur une ligne (la ligne 2 de A à F, par exemple).
Si la date du jour est supérieure de deux ans à une date X
Couper/coller cette ligne sur une autre feuille.

Est-ce possible sans une immersion plus que profonde dans les arcanes du
VBA?

Merci et bonne soirée,

FRED.

Merci de vos réponses,

Je vais essayer en premier lieu le code vba, que je trouve effectivement
assez clair.
Quand au filtre, je ne vois pas trop comment cela peut générer un copier /
coller...

Merci.

FRED.

"fred" <nospam@nospam.com> a écrit dans le message de
news:OtS42516DHA.2996@tk2msftngp13.phx.gbl...

Bonjour,

Je souhaiterais faire la chose suivante:

Sur une ligne (la ligne 2 de A à F, par exemple).
Si la date du jour est supérieure de deux ans à une date X
Couper/coller cette ligne sur une autre feuille.

Est-ce possible sans une immersion plus que profonde dans les arcanes du
VBA?

Merci et bonne soirée,

FRED.