Problème VBA Range(A4: "A"&i)

Bonjour à tous

Je veux calculer la moyenne des cellules partant de H4 , jusqu'à un certain H (le i-eme) avec i la dernière case non vide de la colonne H
Dans mon exemple i vaut 126 (comme i peut varier je ne peux pas mettre H4:H126)

Voila ce que j'ai fais

Code:

---

Range("K2").Formula = "=AVERAGE(H4 : "H " &i))"

---

Je ne comprend pas comment je dois changer ma formule.

Je vous remercie beaucoup

Code:

---

Range("K2").Formula = "=AVERAGE(H4:H" & i & ")"

---

Merci c'est impec :)

Bonjour,

Je vous propose

Code:

---

1 2 3 4 5 6 7 8

Dim MaPlage as Range   Set MaPlage = Range("H2:H" & [H2].End(xlDown).Row) [K2] = WorksheetFunction.Average(MaPlage)   Set MaPlage = Nothing

---

Cdt