Boucle pour formule

Bonjour,

J'aimerais effectuer une boucle dans ma macro. Je souhaite réaliser la formule ci-dessous dans la cellule sélectionnée (F168). Puis la décliner sur toutes les cellules suivantes (F169, F170, etc.) tant que la cellule en colonne n-1, ligne n+1 n'est pas vide. (Exemple : si E180 vide, pas de calcul en F179 et fin de la boucle).

Range("F168").Select

ActiveCell.FormulaR1C1 = "=RC[-1]/R[13]C[-1]"

Quelqu'un a une idée svp?

Merci.

Bonjour,

exemple avec ce code

Sub test()
Dim i As Integer

i = 168
While Range("E" & i) <> vbNullString
    Range("F" & i).FormulaR1C1 = "=RC[-1]/R[13]C[-1]"
    i = i + 1
Wend
End Sub

Si ok -->

cordialement

Merci, ça fonctionne très bien.