Copier coller une selection vers une autre feuille
Bonjour tout le monde,
Quelqu'un saurait comment copier une sélection pour ensuite le coller dans une autre feuille ?
Exemple : J'ai un planning hebdomadaire et j'aimerais l'archiver chaque semaine. Dans le fichier joint, j'ai une feuille Planning et une feuille Archive. J'aimerais avec une macro pouvoir copier le planning et le coller dans la feuille archive. Par contre si j'archive cette semaine, j'aimerais que quand j'archive la semaine prochaine, ça ce coller à la suite.
Si vous avez des questions je reste à disposition.
BOnjour,
Tu peux utiliser l'enregistreur de macro pour ce genre de choses, globalement ça va ressembler à :
Sheets("Planning").Select
Range("A4:I10").Select
Selection.Copy
Sheets("Archive").Select
Range("A3").Select
ActiveSheet.Paste
Pour chercher où coller dans ton fichier archive tu peux faire une boucle du type :
while cells (i, 1)<>""
i=i+1
wend
Ce qui donnerait au final quelque chose comme :
Sub plan()
Sheets("Planning").Select
Range("A4:I10").Select
Selection.Copy
Sheets("Archive").Select
while cells (i, 1)<>""
i=i+1
wend
Range("A" & i ).Select
ActiveSheet.Paste
end sub
Edit :
Beaucoup plus élégant la réponse au dessus
Bonjour,
Je t'ai fait un programme commenté que tu pourras trouver dans Module 1 en VBA, voici le résultat :
Merci de me dire si ça te convient
Merci a tous
Ca me convient parfaitement.
Bonne après-midi