Déplacer une ligne en fonction d'une date

TITOU73 · 1 Novembre 2010

Bonjour le forum,

Je suis à la recherche d'une macro me permettant de copié les lignes avec une date inférieur à celle de la céllule C2 sur l'onglet "Feuil2" et les lignes avec la date identique ou supérieur à C2 dans l'onglet "Feuil3".

Merci de votre aide

gilbert_RGI · 1 Novembre 2010

Re : Déplacer une ligne en fonction d'une date

Bonjour,

comme ceci peut-être

PS: pour les fichiers avec macro c'est en xlsm

TITOU73 · 1 Novembre 2010

Re : Déplacer une ligne en fonction d'une date

Merci gilbert_RGI

C'est la macro que je cherchais.
Maintenant je dois l'adapté à mon fichier

Encore merci

Efgé · 1 Novembre 2010

Re : Déplacer une ligne en fonction d'une date

Bonjour TITOU73, gilbert_RGIn
Comme j'ai fait quelque chose....
Prise en compte des feuilles 2 et 3.

Code:

[COLOR=blue]Sub[/COLOR] Copie_lignes()
Dat = Sheets("Feuil1").Cells(2, 3).Value
[COLOR=blue]For[/COLOR] i = 6 [COLOR=blue]To[/COLOR] Feuil1.Range("C65536").End(xlUp).Row
    [COLOR=blue]Set[/COLOR] Dest = IIf(Cells(i, 3) < Dat, Sheets("Feuil2").Cells(Feuil2.Range("A65536").End(xlUp).Row + 1, 1), _
    Sheets("Feuil3").Cells(Feuil3.Range("A65536").End(xlUp).Row + 1, 1))
    Sheets("Feuil1").Range(Cells(i, 2), Cells(i, 7)).Copy Dest
[COLOR=blue]Next[/COLOR]
[COLOR=blue]End Sub[/COLOR]

Cordialement

Déplacer une ligne en fonction d'une date

TITOU73

XLDnaute Nouveau

Pièces jointes

gilbert_RGI

XLDnaute Barbatruc

Pièces jointes

TITOU73

XLDnaute Nouveau

Efgé

XLDnaute Barbatruc

Discussions similaires