ecriture macro VBA

[Tolie]

Bonjour,
J'ai un fichier excel 2003 et je cherche a comprendre la macro suivante:

Sub Calcul()
Application.Goto Reference:="dette_calculée"
Selection.Copy
Application.Goto Reference:="dette_max"
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Calculate
Application.Goto Reference:="dette_calculée"
Selection.Copy
Application.Goto Reference:="dette_max"
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Calculate
Application.Goto Reference:="dette_calculée"
Selection.Copy
Application.Goto Reference:="dette_max"
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Calculate
End Sub

Plus exactement, je ne comprends pas pourquoi la macro est composée de 3 séquences identiques (de application.goto... à Calculate). Pourquoi ne pas écrire plus simplement qu'une seule séquence ?
Merci de votre aide.

 

[Pierrot93]

Re : ecriture macro VBA

Bonsoir Tolie,

oui a priori celui qui a écrit ou enregistré cette maro a bégayé, tu peux enlever les lignes qui font double emploi.

Bonne soirée
@+

 

[pierrejean]

Re : ecriture macro VBA

bonjour Tolie

salut Pierrot

en plus simple

Range("dette_max")=Range("dette_calculée")