Compter le nb de cellules dans une somme

Bonjour les amis,

Bienvenue au challenge du jour 8-)

Soit un tableau qui comporte trois series de notes sur deux colonnes (une pour le nom de l'eleve, une pour sa note) et une ligne de total par serie
Exemple
A = 1
B = 1
C = 2
Total_1= 4
D = 0
E = 1
Total_2= 1
F = 1
G = 2
H = 3
Total_3 = 6
Dans l'exemple ci-dessus, le signe = est la pour faciliter la lecture
Maintenant, la question.
Je voudrais ajouter dans une 3e colonne la moyenne de chaque serie. Donc j'ecrirai
M1 = Total_1 / 3
M2 = ... Etc
Ok ?
Mais je ne connais pas le nombre d'eleves dans chaque serie 8O
Tout ce que je connais, c'est que la ligne 4 contient une fonction Somme, de meme que la ligne 7 et la ligne 11.
J'ai donc besoin de savoir que la serie 1 comporte 3 donnees, la serie 2 2 et la serie 3 3
Comment calculer mes moyennes, donc, svp ?

J'aimerais ecrire un truc du genre :
Pour toutes les lignes, si la cellule de la colonne 2 contient une valeur numerique, ajouter 1 au compteur d'eleves
Sinon si la cellule contient la fonction Somme, enregistrer le compteur puis le remette a zero pour la serie suivante
Pas evident...
Merci.

@++

Envoye de mon iPad

Si tu as fais la somme à l'aide de la formule =Somme(...), à côté tu pouvais faire =Moyenne(...)


Sinon, est si tu ne veux pas le faire manuellement, ci-après code (adapte le nom de la feuille et la colonne où tu as les sommes)

Code:

---

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

Sub Moy() Dim Plage As Range, c As Range   On Error Resume Next Set Plage = Worksheets("Feuil4").Range("B:B").SpecialCells(xlCellTypeFormulas) 'Adapte le nom de ta feuille On Error GoTo 0   If Not Plage Is Nothing Then For Each c In Plage c.Offset(0, 1).Formula = Replace(c.Formula, "SUM", "AVERAGE") Next c End If Set Plage = Nothing End Sub

---