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

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

Privacy & Transparency

Privacy & Transparency