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 : Sélectionner tout - Visualiser dans une fenêtre à part
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