[E-07] Boucle pour simplifier le code

Bonjour,
Debutant en VBA j'ai fait une petite macro et je souhaiterais simplifier le code ci-dessous par une boucle. en fait la formule est la même, il y a juste les colonnes qui changent.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

derligne = Range("A1").End(xlDown).Row   Range("B2").Formula = "=AVERAGE(calcul!B2:B" & derligne & ")" Range("C2").Formula = "=AVERAGE(calcul!C2:C" & derligne & ")" Range("D2").Formula = "=AVERAGE(calcul!D2:D" & derligne & ")" Range("E2").Formula = "=AVERAGE(calcul!E2:E" & derligne & ")" Range("F2").Formula = "=AVERAGE(calcul!F2:F" & derligne & ")" Range("G2").Formula = "=AVERAGE(calcul!G2:G" & derligne & ")" Range("H2").Formula = "=AVERAGE(calcul!H2:H" & derligne & ")" Range("I2").Formula = "=AVERAGE(calcul!I2:I" & derligne & ")" Range("J2").Formula = "=AVERAGE(calcul!J2:J" & derligne & ")" Range("K2").Formula = "=AVERAGE(calcul!K2:K" & derligne & ")" Range("L2").Formula = "=AVERAGE(calcul!L2:L" & derligne & ")" Range("M2").Formula = "=AVERAGE(calcul!M2:M" & derligne & ")"

---

J'ai essayé plein de truc comme avec la boucle for ci-dessous mais j'y arrive pas, je dois sans doute me planter dans la syntaxe.

Code:

---

1 2 3

For i = A To M Range(i & "2").Formula = "=AVERAGE(calcul!" & i & "2:" & i & derligne & ")" Next i

---

Donc si quelqu'un pouvait m'aider ca serait bien sympa. Merci d'avance.

Damien

Boucle sur Cells(i,j).Formula

J'ai essayé

Code:

---

1 2 3 4

For i = A To M Cells(2, i).Formula = "=AVERAGE(calcul!" & i & "2:" & i & derligne & ")" Next i

---

Erreur définie par l'application ou par l'objet

et ca

Code:

---

1 2 3 4

For i = 2 To 13 Cells(2, i).Formula = "=AVERAGE(calcul!" & i & "2:" & i & derligne & ")" Next i

---

les calculs se lancent mais quand je regarde dans mon classeur excel la formule n'est pas bonne il n'y a pas de lettre dedans et le resultat n'est pas bon voila ce que ca m'affiche dans excel pr la cellule B2

Code:

---

=MOYENNE(calcul!22:2102)

---

Utilise FormulaR1C1 pour avoir des positions relatives et ne plus avoir à utiliser des lettres dans tes formules.

A noter que tu fais ta moyenne sur une plage incluant ta cellules de moyenne, ça fait une référence circulaire.

Ok merci pour votre aide je vais essayer avec les références relatives.
La cellule de moyenne est située sur une autre feuille que la plage, c'est parce que j'ai pas mis le debut du code

Salut à tous
dahuhunter au lieu de

Code:

---

1 2 3

For i = A To M Cells(2, i).Formula = "=AVERAGE(calcul!" & i & "2:" & i & derligne & ")" Next i

---

Qui ne peut fonctionner, tu peux faire :

Code:

---

1 2 3

For i = 1 To 13 Cells(2, i).Formula = "=AVERAGE(calcul!" & chr(64+i) & "2:" & chr(64+i) & derligne & ")" Next i

---

ou encore

Code:

---

1 2 3

For i = 1 To 13 Cells(2, i).Formula = "=AVERAGE(calcul!" & cells(2,i).address & ":" & cells(65536,i).end(xlup).address & ")" Next i

---

A+

oh j'étais parti en vacances et miracle en revenant mon pb est résolu merci Gorfael ca marche du feu de dieu
a+