Automatisation d'une suite en vba

miky973 · 28 Février 2011

Bonjour,

Je souhaiterai automatiser ceci :

Code:

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 · 28 Février 2011

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.

Code:

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

A+

Efgé · 28 Février 2011

Re : Automatisation d'une suite en vba

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

VB:

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

Cordialement

James007 · 28 Février 2011

Re : Automatisation d'une suite en vba

Bonjour,

Tu peux tester ...

VB:

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 · 28 Février 2011

Re : Automatisation d'une suite en vba

Bonjour à tous

Code:

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 · 28 Février 2011

Re : Automatisation d'une suite en vba

Re-Bonjour,

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

Cdmt

Miky

Automatisation d'une suite en vba

miky973

XLDnaute Occasionnel

Guest

Guest

Efgé

XLDnaute Barbatruc

James007

XLDnaute Barbatruc

ROGER2327

XLDnaute Barbatruc

miky973

XLDnaute Occasionnel

Discussions similaires