U
Ulysse05
Guest
Bonjour à tous,
J’ai enregistré une Macro toute simple (copier et coller des chiffres, bien qu'elle s'intitule ChangementdeDates :lol
Mon fichier fait 8,37 Mo,
Une précision qui a peut-être une importance, j’ai fait un DEFRAG et il a refusé de la défragmentée, car il m’a signalé qu’il y avait 228 parties
Merci d’avance pour votre aide.
Voici le détail de ma Macro :
Sub ChangementdeDates()
'
' ChangementdeDates Macro
' Macro enregistrée le 29/01/2005 par Personnel
'
'
Range('AN3:AN63').Select
Selection.ClearContents
Range('AO3:AT63').Select
Selection.Copy
Range('BH1').Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range('AO3:AT63').Select
Selection.ClearContents
ActiveWindow.SmallScroll ToRight:=5
Range('BH1:BM61').Select
Selection.Copy
Range('AN3').Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range('BH1:BM61').Select
Selection.ClearContents
Range('AX2:AX23').Select
Selection.ClearContents
Range('AY2:BF23').Select
Selection.Copy
Range('BH2').Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range('AY2:BF23').Select
Selection.ClearContents
Range('BH2:BO23').Select
Selection.Copy
Range('AX2').Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range('BH2:BO23').Select
Selection.ClearContents
Range('BD2:BE2').Select
Selection.AutoFill Destination:=Range('BD2:BF2'), Type:=xlFillDefault
Range('BD2:BF2').Select
Range('AV4:AV23').Select
Selection.Copy
Range('BF4').Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range('AS3').Select
Selection.AutoFill Destination:=Range('AS3:AT3'), Type:=xlFillDefault
Range('AS3:AT3').Select
Range('BD4:BD23').Select
Selection.Copy
Range('AT4').Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range('BE4:BE23').Select
Selection.Copy
Range('AT24').Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range('BF4:BF23').Select
Selection.Copy
Range('AT44').Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range('AT4:AT63').Select
Selection.Sort Key1:=Range('AT4'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range('AV1').Select
Sheets('Données 40 N°').Select
Range('AM3:AM41').Select
Selection.ClearContents
Range('AN3:AS41').Select
Selection.Copy
Range('BF1').Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range('AN3:AS41').Select
Selection.ClearContents
Range('AS42').Select
Selection.Interior.ColorIndex = xlNone
Range('BF1:BK39').Select
Selection.Copy
Range('AM3').Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range('BF1:BK39').Select
Selection.ClearContents
Range('AR3').Select
Selection.AutoFill Destination:=Range('AR3:AS3'), Type:=xlFillDefault
Range('AR3:AS3').Select
Range('BC4:BC23').Select
Selection.Copy
Range('AS4').Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range('BD4:BD23').Select
Application.CutCopyMode = False
Selection.Copy
Range('AS24').Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range('AS4:AS43').Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range('AS4'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range('AS3').Select
Sheets('Données 60 N°').Select
Range('AV4:AV23').Select
Selection.ClearContents
Range('AT3,AV3,BF2').Select
Range('BF2').Activate
End Sub