Optimiser le code VBA

pascal82 · 13 Mars 2011

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 · 13 Mars 2011

Re : Optimiser le code VBA

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

Code:

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 · 13 Mars 2011

Re : Optimiser le code VBA

Bonjour Gorfael,

Le code fonctionne très bien

Merci encore

Optimiser le code VBA

pascal82

XLDnaute Occasionnel

Pièces jointes

Gorfael

XLDnaute Barbatruc

pascal82

XLDnaute Occasionnel

Discussions similaires

Optimiser le code VBA

pascal82

XLDnaute Occasionnel

Pièces jointes

Gorfael

XLDnaute Barbatruc

pascal82

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency