Optimiser le code VBA

[pascal82]

Bonjour,

Je désire optimiser mon code VBA (je ne connais pas grand-chose), j’aimerai que le copié collé continu jusqu’en AA20 lorsque la cellule Y20 entre dans la formule M17 à V106.
Je pense que ce n’est pas très clair c’est pourquoi je joins le fichier en annexe

Merci par avance.

 

[Gorfael]

Re : Optimiser le code VBA

Salut pascal82 et le forum
Pas sûr d'avoir tout compris. Une tentative :

Sub Macrotest1()
Dim X As Long
For X = 1 To 20
    Range("M17").FormulaR1C1 = "=SIN(RC[-11]/R" & X & "C25)"
    Range("M17").AutoFill Destination:=Range("M17:V17"), Type:=xlFillDefault
    Range("M17:V17").AutoFill Destination:=Range("M17:V106"), Type:=xlFillDefault
    
    Range("M12:V12").Copy
    Range("AA" & X).PasteSpecial Paste:=xlPasteValues
Next X
End Sub

A+

 

[pascal82]

Re : Optimiser le code VBA

Bonjour Gorfael,

Le code fonctionne très bien

Merci encore