Bonjour à toutes et à tous.
J'y vais de ma petite question habituelle du week-end.
C'est un peu plus compliqué que d'habitude!
J'ai une feuille par mois. Chaque mois, je créé une nouvelle feuille en copiant la dernière, je la colle en dernier et je la renomme en fonction du nouveau mois. Ensuite, je lance une macro sympas qui me fait plein de truc!!!
Ce qu'il me manque, c'est qu'il faudrait que ma macro soit valable pour tous les mois indéfiniement, alors que là, ça ne marche que pour le mois d'octobre (le problème, apparemment, c'est que je mets de nom de la feuille et que je devrais dire que c'est la feuille active ou un truc dans le genre. Egalement, il faudrait que la feuille du mois le plus ancien soit supprimée (c'est celle qui est normalement tout à gauche). Pour ça, j'ai aucune idée!
Merci à toutes et à tous
ci-joint la macro et le fichier
Sheets('Oct-05').Select
Sheets('Oct-05').Copy After:=Sheets(2)
Range('B5').Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Columns('A:A').Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Range('C5').Select
Selection.AutoFill Destination:=Range('C55'), Type:=xlFillDefault
Range('C55').Select
Range('D5').Select
Selection.NumberFormat = 'mmm-yy'
Selection.Copy
Sheets('Oct-05 (2)').Select
Sheets('Oct-05 (2)').Name = 'nov-05'
Application.CutCopyMode = False
Selection.NumberFormat = 'mmmm-yy'
End Sub
[file name=newsheet.zip size=7047]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/newsheet.zip[/file]
Message édité par: franck70, à: 08/10/2005 22:42
J'y vais de ma petite question habituelle du week-end.
C'est un peu plus compliqué que d'habitude!
J'ai une feuille par mois. Chaque mois, je créé une nouvelle feuille en copiant la dernière, je la colle en dernier et je la renomme en fonction du nouveau mois. Ensuite, je lance une macro sympas qui me fait plein de truc!!!
Ce qu'il me manque, c'est qu'il faudrait que ma macro soit valable pour tous les mois indéfiniement, alors que là, ça ne marche que pour le mois d'octobre (le problème, apparemment, c'est que je mets de nom de la feuille et que je devrais dire que c'est la feuille active ou un truc dans le genre. Egalement, il faudrait que la feuille du mois le plus ancien soit supprimée (c'est celle qui est normalement tout à gauche). Pour ça, j'ai aucune idée!
Merci à toutes et à tous
ci-joint la macro et le fichier
Sheets('Oct-05').Select
Sheets('Oct-05').Copy After:=Sheets(2)
Range('B5').Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Columns('A:A').Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Range('C5').Select
Selection.AutoFill Destination:=Range('C55'), Type:=xlFillDefault
Range('C55').Select
Range('D5').Select
Selection.NumberFormat = 'mmm-yy'
Selection.Copy
Sheets('Oct-05 (2)').Select
Sheets('Oct-05 (2)').Name = 'nov-05'
Application.CutCopyMode = False
Selection.NumberFormat = 'mmmm-yy'
End Sub
[file name=newsheet.zip size=7047]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/newsheet.zip[/file]
Message édité par: franck70, à: 08/10/2005 22:42