Method range of object _worksheet failed

Bonjour,

J'ai cette erreur "method range of object _worksheet failed" quand j'essaye de compiler mon code

Sub tet_Gar31()

Dim ws As Worksheet
Dim d_one() As Integer
Dim n As Long
Dim counter As Long
Dim i As Integer
Dim j As Integer

Set ws = ThisWorkbook.Worksheets("Test_Gar31")
'colonne t_ann remplissage
For j = 12 To 219
    ws.Range("F" & i).Value = i - 12 # l'erreur apparait ici
Next j

'Colonne Gtee_ann_flag

n = ws.Range("F12", Range("F12").End(xlDown)).Cells.Count
ReDim d_one(1 To n)

For counter = 1 To n
    d_one(counter) = ws.Range("F12").Offset(counter - 1, 0).Value
    If d_one(counter) <= 30 Then
        ws.Range("G12").Offset(counter - 1, 0).Value = 1
    Else
        ws.Range("G12").Offset(counter - 1, 0).Value = 0
    End If
    ' Colonne Vt
    ws.Range("I12").Offset(counter - 1, 0).Select
    ActiveCell.FormulaR1C1 = "=1/(1+R8C3)^RC[-3]"
    'Colonne Dis Gtee ann Base 1
    ws.Range("J12").Offset(counter - 1, 0).Value = ws.Range("G12").Offset(counter - 1, 0).Value * ws.Range("I12").Offset(counter - 1, 0).Value

Next counter

'Tableau 3
For i = 12 To 371
    ws.Range("M" & i).Value = i - 12
    ws.Range("N" & i).Value = 1 / 12
    ws.Range("O" & i).Value = 1
    ws.Range("Q" & i).Value = 1 / (1 + ws.Range("C8").Value) ^ (ws.Range("M" & i).Value / 12)
    ws.Range("R" & i).Value = ws.Range("N" & i).Value * ws.Range("Q" & i).Value
    ws.Range("S" & i).Value = ws.Range("O" & i).Value * ws.Range("Q" & i).Value

Next i

ws.Range("G10").Value = Application.WorksheetFunction.Sum(ws.Range("G12:G219"))
ws.Range("G9").Value = ws.Range("G10").Value * 12
ws.Range("J10").Value = Application.WorksheetFunction.Sum(ws.Range("J12:J219"))
ws.Range("J6").Value = (ws.Range("C9").Value - 1) / (ws.Range("C9").Value * 2)
ws.Range("J7").Value = ws.Range("C8").Value / (ws.Range("C8").Value + 1)
ws.Range("J8").Value = 1 - ws.Range("J6").Value * ws.Range("J7").Value
ws.Range("J9").Value = ws.Range("J10").Value * ws.Range("J8").Value
ws.Range("J9").Font.Color = -16777002
ws.Range("N10").Value = Application.WorksheetFunction.Sum(ws.Range("N12:N383"))
ws.Range("O10").Value = Application.WorksheetFunction.Sum(ws.Range("O12:O383"))
ws.Range("R10").Value = Application.WorksheetFunction.Sum(ws.Range("R12:R383"))
ws.Range("S10").Value = Application.WorksheetFunction.Sum(ws.Range("S12:S383"))
ws.Range("T10").Value = ws.Range("S10").Value / 12

End Sub

Pouvez vous m'indiquer c'est quoi le probléme ?

Merci d'avance pour vos retours

Bonjour,
i=0 quand tu as ton erreur !...
Cdlt.

Bonjour,

J'ai pas bien compris ta réponse ?

Pouvez vous être plus explicite

Merci d'avance

Bonjour à tous,

C'est pourtant simple, quelle est la valeur de i à cet endroit de la macro ?

For j = 12 To 219
    ws.Range("F" & i).Value = i - 12 # l'erreur apparait ici
Next j

Cdlt

Bonjour,
Tu as déclaré une variable i en integer sans l'initialiser. Sa valeur est égale à zéro et elle n'est pas incrémentée dans ta procédure.
Pour faire simple, existe-il une cellule F0 dans Excel ?
Cdlt.

Bonjour ,

Je vous remercie , j'ai mon erreur

Merci encore et excellente journée a tous