Macro calculs avec une boucle

Version imprimable

Bonsoir à tous,

J'ai le code suivant pour faire des calculs dans une feuille, je veux que ma macro me fasse les calculs jusqu'à la ligne 676 dans les deux colonnes A et B, les deux equation ne sont pas fixes je les changerai par la suite :)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sheets("Feuil1").Select
 
i = 2
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "T"
 
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "Attach Failure Ratio"
 
    Do While ??? ''''''' jusqu'a la ligne 676
    Range("A&i").Select
    ActiveCell.FormulaR1C1 = _
        "=('Données(4)'!R[3]C[113]+'Données(4)'!R[3]C[115]+'Données(4)'!R[3]C[101]+'Données(4)'!R[3]C[103]+'Données(4)'!R[3]C[105]+'Données(4)'!R[3]C[107])"
 
    Range("B&i").Select
    ActiveCell.FormulaR1C1 = _
        "=('Données(4)'!R[3]C[215]+'Données(4)'!R[3]C[212]+'Données(4)'!R[3]C[225]-RC[-1])/('Données(4)'!R[3]C[215]+'Données(4)'!R[3]C[212]+'Données(4)'!R[3]C[195]+'Données(4)'!R[3]C[193])"
    i = i + 1
    Loop

NB: Le code ne marche pas;)

Bonsoir le forum,

Tu peux essayer avec cela
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Range("A1").Select ActiveCell.FormulaR1C1 = "T" Range("B1").Select ActiveCell.FormulaR1C1 = "Attach Failure Ratio" i=2 Do While i<677 Range("A"&i).Select ActiveCell.FormulaR1C1 = _ "=('Données(4)'!R[3]C[113]+'Données(4)'!R[3]C[115]+'Données(4)'!R[3]C[101]+'Données(4)'!R[3]C[103]+'Données(4)'!R[3]C[105]+'Données(4)'!R[3]C[107])" Range("B"&i).Select ActiveCell.FormulaR1C1 = _ "=('Données(4)'!R[3]C[215]+'Données(4)'!R[3]C[212]+'Données(4)'!R[3]C[225]-RC[-1])/('Données(4)'!R[3]C[215]+'Données(4)'!R[3]C[212]+'Données(4)'!R[3]C[195]+'Données(4)'!R[3]C[193])" i = i + 1 Loop
Je n'ai pas touché aux formules car en relative c'est compliqué de savoir au cela va.

Par contre, tu peux aussi passer par l'enregistreur de macro en faisant glisser la formule dans la plage de cellule que tu désires, ainsi tu auras la syntaxe du code créé qui sera peut-être plus simple que de réaliser une boucle.

Genre d'écriture à éviter avec les select et formular1c1 partout, ci joint code

Code:

1
2
3
4
5
6
7
8
9
Dim i As Long
With Sheets("Feuil1")
    .Range("A1") = "T"
    .Range("B1") = "Attach Failure Ratio"
    For i = 2 To 676
        .Range("A" & i).FormulaR1C1 = "=..."
        .Range("B" & i).FormulaR1C1 = "=..."
    Next i
End With

Code:

1
2
3
4
5
6
7
With Sheets("Feuil1")
    .Range("A1") = "T"
    .Range("B1") = "Attach Failure Ratio"
    .Range("A2").FormulaR1C1 = "=..."  'formule en A2
    .Range("B2").FormulaR1C1 = "=..."  'formule en B2
    .Range("A2:B2").AutoFill .Range("A2:B676")
End With

12/08/2010, 21h24
mizou00

Merci pour le code

j'ai essayé le 2eme code mais il y a une erreur
Erreur définie par l'application ou par l'objet
Après debogage il maffiche ca en jaune ==>

Code:

.Range("A" & j).FormulaR1C1 = "=('Données(4)'!R[3]C[215]+'Données(4)'!R[3]C[212]+'Données(4)'!R[3]C[225]-RC[-1])/('Données(4)'!R[3]C[215]+'Données(4)'!R[3]C[212]+'Données(4)'!R[3]C[195]+'Données(4)'!R[3]C[193])"
13/08/2010, 03h00
mizou00

ca répond exactement a ce que je voulais

Merci beaucoup pour votre aide !!:)