Bonjour le forum
J'ai créer une macro qui me permet de copier les données de plusieurs cellule et d'effacer la dernière, elle fonctionne bien
ma question est donc: est ce qu'on peut maintenant faire plus simple avec la macro.
Sub avance1()
Feuil1.Unprotect
Range("F6:H43").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=-17
Range("A6").Select
ActiveSheet.Paste
Range("I18").Select
Application.CutCopyMode = False
Selection.Copy
Range("D18").Select
ActiveSheet.Paste
Range("K6:M43").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=-17
Range("F6").Select
ActiveSheet.Paste
Range("N18").Select
Application.CutCopyMode = False
Selection.Copy
Range("I18").Select
ActiveSheet.Paste
Range("L6:L11").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("N18").Select
Selection.ClearContents
Range("K19:M43").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-9
Range("D1").Select
Feuil1.Protect
End Sub
Merci a tous
Cdt
hutch
J'ai créer une macro qui me permet de copier les données de plusieurs cellule et d'effacer la dernière, elle fonctionne bien
ma question est donc: est ce qu'on peut maintenant faire plus simple avec la macro.
Sub avance1()
Feuil1.Unprotect
Range("F6:H43").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=-17
Range("A6").Select
ActiveSheet.Paste
Range("I18").Select
Application.CutCopyMode = False
Selection.Copy
Range("D18").Select
ActiveSheet.Paste
Range("K6:M43").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=-17
Range("F6").Select
ActiveSheet.Paste
Range("N18").Select
Application.CutCopyMode = False
Selection.Copy
Range("I18").Select
ActiveSheet.Paste
Range("L6:L11").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("N18").Select
Selection.ClearContents
Range("K19:M43").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-9
Range("D1").Select
Feuil1.Protect
End Sub
Merci a tous
Cdt
hutch