Peut être une simplification

[ksandraa]

Bonjour et très bonne année 2015 à tous !!!


j'ai tapé ce code ci-dessous mais j'ai l'impression qu'il aloudit mon fichier Excel ?! ... Alors je me dis qu'il peut surement être simplifié .....?!


Merci d'avance pour votre aide
Ksandraa


Sub Actualistion_consolidation()

'mise à jour de l'onglet consolidation
Sheets("Calculs").Activate
Range("A2:R2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Consolidation").Select
Range("c65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Calculs").Select
Range("V2:AE2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Consolidation").Select
Range("u65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

 

[CBernardT]

Re : Peut être une simplification

Bonjour ksandraa,

Bonne année à toi et à tout le forum.

Sans fichier pour exemple, un essai de simplification de la macro ?

Sub Actualistion_consolidation()
'mise à jour de l'onglet consolidation
With Sheets("Calculs")
Dim Derlig As Integer, Tablo
Derlig = .Range("A65536").End(xlUp).Row
Tablo = .Range("A2:R" & Derlig)
End With
With Sheets("Consolidation")
Derlig = .Range("C65536").End(xlUp).Row + 1
.Range("C" & Derlig).Resize(UBound(Tablo, 2), UBound(Tablo, 1)) = Application.Transpose(Tablo)
End With
With Sheets("Calculs")
Derlig = .Range("V65536").End(xlUp).Row
Tablo = .Range("V2:AE" & Derlig)
End With
With Sheets("Consolidation")
Derlig = .Range("U65536").End(xlUp).Row + 1
.Range("U" & Derlig).Resize(UBound(Tablo, 2), UBound(Tablo, 1)) = Application.Transpose(Tablo)
End With
End Sub