Discussion :

[roswina]

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

[tamtam64]

Cadeau

Code :

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

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

[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

[roswina]

merci

[Theze]

Bonjour,

Teste ceci :

Code :

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

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

[Invité]

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

Code :

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

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

Code :

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

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