moyenne d'un étudiant vba excel

Version imprimable

bonjour
dans une feuille1 excel j'ai un tableau
ETUDIANT 	NOTE1		NOTE2		NOTE3
TOTO1	          10	           15	          8
TOTO2	           8	           11	         12
TOTO3	          11	            4	           8
TOTO4	          13,5	          7,25	         10
TOTO5	          11	            4	         10
TOTO6	           9	          14	        8,5
TOTO7	           6	          10	        11
TOTO8	          17	            8	        11
TOTO9	          5	           12	        9,5
TOTO10	          6	           11	         7
Ecrire un algorithme qui fait la moyenne de 3 notes pour 10 Etudiants excel vba dans le macro , et je n'ai aucune idée du programme que je dois Ecrire dans le macro , et cette moyenne sera afficher dans la feuille d'excel
aidez moi svp !!

Papa noel :)

Cadeau

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub test2()
Dim xlsheet As Worksheet
Dim MyRange As Range, AllRange As Range
Dim MyTab()
Dim i As Long
Set xlsheet = ThisWorkbook.Worksheets("Feuil1")
With xlsheet
Set AllRange = .Range(.Range("A1"), .Range("A1").End(xlDown))
AllRange.Select
For Each MyRange In AllRange
    ReDim Preserve MyTab(i)
    MyTab(i) = (MyRange.Offset(, 1).Value + MyRange.Offset(, 2).Value + MyRange.Offset(, 3).Value) / 3
    i = i + 1
Next MyRange
ThisWorkbook.Worksheets("Feuil2").Range("A1:A10").Value = MyTab
End With
End Sub

18/06/2015, 23h27
joe.levrai

bonjour,

voici un algorithme

1) mettre sous variable la plage des données
2) appliquer sur toute la plage la formule de moyenne des 3 notes de chaque étudiant

ça tient en deux lignes, et environ 10 lignes de codes

l'étape 1 est d'ailleurs facultative, on économise 3 lignes de code

Outils / méthode / propriétés conseillées

1) CurrentRegion ou UsedRange
2) .Formula ou .FormulaR1C1 - Savoir comment sont gérées les références relatives quand on applique une formule à plusieurs cellules en même temps

Outil indispensable quand on y arrive pas : Enregistreur de macro

bonne révision ;)
18/06/2015, 23h46
roswina

merci

Bonjour,

Teste ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
 
Sub Test()
 
    Dim Plage As Range
 
    Set Plage = Range("E2:E11") 'défini la plage
    Plage(1).Formula = "=average(B2,C2,D2)" 'applique la formule de moyenne
    Plage(1).AutoFill Plage 'tire sur toute la plage
    Plage.Value = Plage.Value 'ne garde que les valeurs (suppression des formules)
 
End Sub

Hervé.

Bonjour,
Faut pas être malade le jour de la composition, ca te bousille une moyenne!
Code:

1 2 3 if trim("" & note)<>""then if moyenne = 0 then moyenne= note else moyenne= (moyenne + note) /2 End if
Code:

1 2 3 moy(10+10+10)=10 Moy(10+10+0)=6.66 Moy(10+10+malade)=6.66

Meme si pour la moyenne comme tu dis ta solution est plus robuste , moi j'ai bcp aimé cette methode :
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub Test() Dim Plage As Range Set Plage = Range("E2:E11") 'défini la plage Plage(1).Formula = "=average(B2,C2,D2)" 'applique la formule de moyenne Plage(1).AutoFill Plage 'tire sur toute la plage Plage.Value = Plage.Value 'ne garde que les valeurs (suppression des formules) End Sub
C'est super propre merci Hervé, c'etait pas pour moi mais c'est le genre de code qui m'interesse bcp pour d'autres objectifs dans le cadre de mon stage :)