Automatisation d'une suite en vba

[miky973]

Bonjour,

Je souhaiterai automatiser ceci :

Range("B92").Select
    ActiveCell.FormulaR1C1 = "=(R92C5*100)/(R119C5-R118C5-R117C5)"
    Range("B93").Select
    ActiveCell.FormulaR1C1 = "=(R93C5*100)/(R119C5-R118C5-R117C5)"
    Range("B94").Select
    ActiveCell.FormulaR1C1 = "=(R94C5*100)/(R119C5-R118C5-R117C5)"
    Range("B95").Select
    ActiveCell.FormulaR1C1 = "=(R95C5*100)/(R119C5-R118C5-R117C5)"
    Range("B96").Select
    ActiveCell.FormulaR1C1 = "=(R96C5*100)/(R119C5-R118C5-R117C5)"
    Range("B97").Select
    ActiveCell.FormulaR1C1 = "=(R97C5*100)/(R119C5-R118C5-R117C5)"
    Range("B98").Select
    ActiveCell.FormulaR1C1 = "=(R98C5*100)/(R119C5-R118C5-R117C5)"

En utilisant autofill,je recois la mm valeur que la cellule de départ.

Quel serait la solution pour réduire ce code.

Merci pour votre aide.

Best Regards.

Miky

 

[Guest]

Re : Automatisation d'une suite en vba

Bonjour,

A voir, mais les références aux cellules sont absolues, donc c'est normal que tu "reçoives" les mêmes valeurs.

Range("B92:B98").FormulaR1C1 = "=(R92C5*100)/(R119C5-R118C5-R117C5)"

A+

 

[Efgé]

Re : Automatisation d'une suite en vba

Bonjour miky973, Hasco : )
Trop tard, mais une autre proposition:

Range("B92:B98").Formula = "=($E92*100)/($E$119-$E$118-$E$117)"

Cordialement

 

[James007]

Re : Automatisation d'une suite en vba

Bonjour,

Tu peux tester ...

Sub Test()
Dim i%
For i = 92 To 98
    Range("B" & i).FormulaR1C1 = "=(R" & i & "C5*100)/(R119C5-R118C5-R117C5)"
Next i
End Sub

A +

 

[ROGER2327]

Re : Automatisation d'une suite en vba

Bonjour à tous

Range("B92:B98").FormulaR1C1 = "=(RC5*100)/(R119C5-R118C5-R117C5)"

​

ROGER2327
#4997

Vendredi 6 Pédale 138 (Vers Belges, SQ)
10 Ventôse An CCXIX
2011-W09-1T15:07:10Z

 

[miky973]

Re : Automatisation d'une suite en vba

Re-Bonjour,

Super, maintenant je comprend pourquoi cela ne passait pas merci à tous.

Cdmt

Miky