Modification simple macro - VB/VBA/VBS - Programmation
Marsh Posté le 24-02-2010 à 08:19:18
bonjour,
...En évitant de sélectionner d'autres cellules inutilement :
Le code suivant est équivalant au tien et ne modifie pas la élection en cours :
Range("K3" ).FormulaR1C1 = "=(RC[-4]-R3C9)/R3C9"
Range("J4" ).FormulaR1C1 = "=(RC[-3]-R[-1]C[-3])/R[-1]C[-3]"
Range("J4" ).AutoFill Destination:=Range("J4:J25" ), Type:=xlFillDefault
Range("K3" ).AutoFill Destination:=Range("K3:K25" ), Type:=xlFillDefault
A+
Marsh Posté le 08-02-2010 à 18:14:33
Bonjour,
J'ai un petit problème concernant cette macro.
Je considère une tableau 23*11 et j'introduis grace à cette macro des formule dans les deux dernières colonnes....
Range("K3" ).Select
ActiveCell.FormulaR1C1 = "=(RC[-4]-R3C9)/R3C9"
Range("J4" ).Select
ActiveCell.FormulaR1C1 = "=(RC[-3]-R[-1]C[-3])/R[-1]C[-3]"
Range("J4" ).Select
Selection.AutoFill Destination:=Range("J4:J25" ), Type:=xlFillDefault
Range("J4:J25" ).Select
Range("K3" ).Select
Selection.AutoFill Destination:=Range("K3:K25" ), Type:=xlFillDefault
Range("K3:K25" ).Select
Comment modifier cette macro pour que le bord supérieur gauche du tableau soit une cellule que l'on veut ( cellule sélectionnée avant application de la macro ...) ?
Merci d'avance de votre aide