Bonjour à tous,
J'ai enregistré une macro par apprentissage. Cette macro a pour rôle de copier la valeur de cellules d'une feuille et d'aller la coller un peut partout dans différentes feuilles du classeur.
Voici le code généré par le module d'apprentissage:
Pensez-vous que l'on puisse le simplifier et l'épurer en gardant les mêmes fonctions?
Je tiens à préciser que le code doit coller les valeurs des cellules de départ et non les formules.
merci d'avance et bon week end à tous
Benjamin
J'ai enregistré une macro par apprentissage. Cette macro a pour rôle de copier la valeur de cellules d'une feuille et d'aller la coller un peut partout dans différentes feuilles du classeur.
Voici le code généré par le module d'apprentissage:
Code:
Sub projectdatas()
'
' projectdatas Macro
'
'
Range("L15").Select
Selection.Copy
Sheets("result").Select
Range("D6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("step0.1").Select
Range("D16:E16").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("result").Select
Range("D5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("step0.1").Select
Range("L17").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("result").Select
Range("E5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Tooling").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("step0.1").Select
Range("D18:E18").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("result").Select
Range("D9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("step0.1").Select
Range("D19").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("result").Select
Range("D10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("step0.1").Select
Range("H19").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("I19").Select
Sheets("step0.1").Select
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("start").Select
Range("H17").Select
End Sub
Pensez-vous que l'on puisse le simplifier et l'épurer en gardant les mêmes fonctions?
Je tiens à préciser que le code doit coller les valeurs des cellules de départ et non les formules.
merci d'avance et bon week end à tous
Benjamin
Dernière édition: