Calcul de moyenne avec VBA

Salut à tous,

Je dispose d'un classeur avec une centaine de feuilles dans laquelle j'aimerais faire un calcul de moyenne de façon dynamique (avec plages de cellules variables) dans chacune d'entre elles.

Avec l'enregistreur de Macro et les adaptations que j'y ai effectué, j'en ai déterminé le code suivant:

Code:

---

1 2 3 4 5 6 7 8

Sub test() Dim DerLigneMat As Long DerLigneMat = Range("A" & Rows.Count).End(xlUp).Row   Range("B3").Select ActiveCell.FormulaR1C1 = "=AVERAGE(R[6]C[8]:R[" & DerLigneMat & "]C[8])/(AVERAGE(R[6]C[7]:R[" & DerLigneMat & "]C[7])+AVERAGE[R6]C[8]:R[" & DerLigneMat & "]C[8]))" End sub

---

Le soucis est que Visual Basic m'affiche un message d'erreur avec ce code. Comment pourrais-je m'y prendre afin de prendre en compte la dernière ligne de ma plage de chaque feuille?

Bonjour,

erreur en bleu dans la formule

Code:

---

"=AVERAGE(R[6]C[8]:R[" & DerLigneMat & "]C[8])/(AVERAGE(R[6]C[7]:R[" & DerLigneMat & "]C[7])+AVERAGE[R6]C[8]:R[" & DerLigneMat & "]C[8]))"

---

la bonne formule

Code:

---

"=AVERAGE(R[6]C[8]:R[" & DerLigneMat & "]C[8])/(AVERAGE(R[6]C[7]:R[" & DerLigneMat & "]C[7])+AVERAGE(R[6]C[8]:R[" & DerLigneMat & "]C[8]))"

---

Pour balayer toutes les feuilles, il faut employer une boucle FOR, chercher la dernière ligne de chaque feuille
exemple:

Code:

---

1 2 3 4

For i = 1 To Sheets.Count DerLigneMat = Range("A" & Rows.Count).End(xlUp).Row Sheets(i).[B3].FormulaR1C1 = "=AVERAGE(R[6]C[8]:R[" & DerLigneMat & "]C[8])/(AVERAGE(R[6]C[7]:R[" & DerLigneMat & "]C[7])+AVERAGE(R[6]C[8]:R[" & DerLigneMat & "]C[8]))" Next i

---

Cdlt

re
bonjour
heu..ARTURO83 tu es sur !!!?????
tu n'a pas l'impression qu'il manque quelque chose sur la ligne "DerLigneMat ="

Citation:

---

Citation:

---

Pour balayer toutes les feuilles, il faut employer une boucle FOR, chercher la dernière ligne de chaque feuille
exemple:

---

Code:

---

1 2 3 4

For i = 1 To Sheets.Count DerLigneMat = Range("A" & Rows.Count).End(xlUp).Row Sheets(i).[B3].FormulaR1C1 = "=AVERAGE(R[6]C[8]:R[" & DerLigneMat & "]C[8])/(AVERAGE(R[6]C[7]:R[" & DerLigneMat & "]C[7])+AVERAGE(R[6]C[8]:R[" & DerLigneMat & "]C[8]))" Next i

---

---

Merci beaucoup à tous les deux. La macro fonctionne parfaitement maintenant.

re
je donne la ligne au cas ou

Code:

---

DerLigneMat = sheets(i).Range("A" & Rows.Count).End(xlUp).Row

---