Discussion :

[Toulousaing]

Bonjour les amis,

Bienvenue au challenge du jour

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
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

[mercatog]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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