Recopier des données

[momo2394]

Bonjour le forum

J'ai une macro qui archive des données d'une feuille "Saisie" dans une feuille "Récap" et puis efface les données qui se trouvent dans la feuille "saisie" jusque ici tout fonctionne, mais le Hic c'est qu'elle archive toutes les données qui se trouvent dans la plage " A5:F1048576 " puis les effacent dans la feuille "saisie"

Je voudrais que la macro n'archive que les données qui se trouvent dans la plage " A5:F24 ", puis effacement dans la feuille "saisie"
Les autres données de la plage " A25:F1048576 " ne doivent être ni archiver ni effacer

Merci

 

[Paf]

Re : Recopier des données

Bonjour,

c'est un problème de détermination de la dernière ligne renseignée de la feuille Saisie

dans la macro Public Sub RecopierData() pour créer la zoneà archiver, lgDerLigS = Worksheets("Saisie").Range("A" & Cells.Rows.Count).End(xlUp).Row se positionne en fin de feuille et remonte jusqu'à rencontrer une cellule non vide et renvoie donc un N° de ligne supérieure à 25. Il faut garder le principe mais en se positionnant sur la ligne 25 pour remonter jusqu'à la cellule non vide:
lgDerLigS = Worksheets("Saisie").Range("A" & 25).End(xlUp).Row

A+

 

[momo2394]

Re : Recopier des données

Salut Paf

Super ça fonctionne, encore merci et très bonne journée