Déplacer une ligne en fonction d'une date

TITOU73

XLDnaute Nouveau
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
 

Pièces jointes

  • Classeur1.xlsx
    8.8 KB · Affichages: 62
  • Classeur1.xlsx
    8.8 KB · Affichages: 64
  • Classeur1.xlsx
    8.8 KB · Affichages: 68

Efgé

XLDnaute Barbatruc
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
 

Discussions similaires

Réponses
14
Affichages
366

Statistiques des forums

Discussions
299 729
Messages
1 978 793
Membres
206 399
dernier inscrit
Lamy