Bonjour à tous
j'ai un problème qui me rend folle!!!!
en effet, j'ai des données dans des feuilles nommées de lundi jusqu'à vendredi.
ensuite, j'ai des informations dans chaque feuille allant de la cellule B11 j'usquà K11 en colonne. la ligne occupées sont varaables d'une semaine à une autres.
ensuite j'ai fait une macro qui me permet d'archiver les informations de chaque feuille du lundi jusqu'au vendredi dans une feuille nommée "archives".
voici la macro que j'ai faite:
sub archiver()
'
' Sheets("lundi").Select
Range("B11:K11").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("archives").Select
Range("A3").Select
ActiveSheet.Paste
Sheets("mardi").Select
Range("B11:K11").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("archives").Select
Range("A9").Select
ActiveSheet.Paste
Sheets("mercredi").Select
Range("B11:K11").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("archives").Select
Range("A10").Select
ActiveSheet.Paste
Sheets("jeudi").Select
Range("B11:K11").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("archives").Select
Range("A11").Select
ActiveSheet.Paste
Sheets("Vendredi").Select
Range("B11:K11").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("archives").Select
Range("A15").Select
ActiveSheet.Paste
End Sub
Ensuite j'aimerais faire une deuxième macro qui me permette d'exécuter cette première macro autant de fois que j'aimerais tout en tenant compte de la dernière ligne non vide dans feuille "archives"
SVP aidez moi!!!!!
j'ai un problème qui me rend folle!!!!
en effet, j'ai des données dans des feuilles nommées de lundi jusqu'à vendredi.
ensuite, j'ai des informations dans chaque feuille allant de la cellule B11 j'usquà K11 en colonne. la ligne occupées sont varaables d'une semaine à une autres.
ensuite j'ai fait une macro qui me permet d'archiver les informations de chaque feuille du lundi jusqu'au vendredi dans une feuille nommée "archives".
voici la macro que j'ai faite:
sub archiver()
'
' Sheets("lundi").Select
Range("B11:K11").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("archives").Select
Range("A3").Select
ActiveSheet.Paste
Sheets("mardi").Select
Range("B11:K11").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("archives").Select
Range("A9").Select
ActiveSheet.Paste
Sheets("mercredi").Select
Range("B11:K11").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("archives").Select
Range("A10").Select
ActiveSheet.Paste
Sheets("jeudi").Select
Range("B11:K11").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("archives").Select
Range("A11").Select
ActiveSheet.Paste
Sheets("Vendredi").Select
Range("B11:K11").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("archives").Select
Range("A15").Select
ActiveSheet.Paste
End Sub
Ensuite j'aimerais faire une deuxième macro qui me permette d'exécuter cette première macro autant de fois que j'aimerais tout en tenant compte de la dernière ligne non vide dans feuille "archives"
SVP aidez moi!!!!!