Modification simple macro

Modification simple macro - VB/VBA/VBS - Programmation

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

Reply

Marsh Posté le 08-02-2010 à 18:14:33   

Reply

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+

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed