Application.Evaluate("AVERAGE(**)") et colonne non fixe

Bonjour à tous !

Je cherche à faire une moyenne sur une plage de cellule donc la dernière colonne est mouvante jour après jour.

Il y a la possibilité de créer un tableau, d'y introduire les valeurs en question et enfin de calculer la moyenne, mais je voulais savoir s'il était possible d'utiliser la fonction Application.Evaluate("AVERAGE(...)").

Mais j'ai plusieurs soucis :
1) J'ai un peu de mal avec la concaténation
2) Je ne sais pas comment traduire le numéro de colonne en lettre.

Voila le début de ce que j'ai :

Code:

---

Tab_tot_30(i, 1) = Application.Evaluate("=AVERAGE(B" & i + 2 & ":" & *Nom de la colonne en lettre* & i + 2 & ")")

---

Je reste à votre disposition si je n'ai pas été suffisamment clair ! =)

Merci à vous !

Pss besoin de la lettre de ta colonne

Code:

---

1 2	'Col: numéro de ta colonne Tab_tot_30(i, 1) = Application.Evaluate("=AVERAGE(B" & i + 2 & ":" & Cells(i + 2, Col).Address & ")")

---

Merci ! =) J'avais oublié qu'on pouvait récupérer l'addresse ! ^^

MAIS...

Mon "1)" ressort...
Je ne sais pas pourquoi la concaténation ne fonctionne pas...

Je tente :

Code:

---

Tab_tot_30(i, 1) = Application.Evaluate("=AVERAGE(B" & i + 2 & ":AR" & i + 2 & ")")

---

juste pour tester celle-ci... "Incompatibilité de type"...

Mes valeurs comprises entre B3 et AR3 ne sont que des integers...

Je ne comprends pas... =(

Attention à la feuille active

Code:

---

1 2 3 4

With Worksheets("Feuil1") Col = 5 'Colonne E Tab_tot_30(i, 1) = Application.Evaluate("=AVERAGE('" & .Name & "'!" & .Range("B" & i + 2).Resize(1, Col - 1).Address & ")") End With

---

Merci !!! Ca fonctionne !
****ing active sheet !!! ^^


Cependant... je ne comprends pas pourquoi le code suivant ne fonctionne pas :

Code:

---

1 2 3 4 5

With Worksheets("...") For i = 1 To 31 Tab_tot_30(i, 1) = Application.Evaluate("=AVERAGE(" & .Cells(i + 2, 2).Address & ":" & .Cells(i + 2, col_30).Address & ")") Next i End With

---

:mur:

Que fais-tu de plus avec cela :

Code:

---

.Name & "'!"

---

Quand tu fais cette formule dans Feuil1

Code:

---

=SOMME(B1:B2)

---

ça te somme B1+B2 de Feuil1

Si tu veux sommer en feuil1 b1+B2 de Feuil4 tu dois indiquer le nom de la feuille

Code:

---

=SOMME(Feuil4!B1:B2)

---

Si dans le nom de la feuille il y a un espace, il faut l'entourer d'apostrophe dans la formule

Code:

---

=SOMME('Ma Feuille Exemple'!B1:B2)

---

Par code, essaies de suivre ces trois règles. Je propose d'utiliser la 3ème variante pour ne pas se soucier de la feuille.

Merci ! =) :ccool: