Sujet Précédent Sujet Suivant

Calcul moyenne vba excel

Fermé
bleuciell Messages postés 2 Date d'inscription mardi 23 janvier 2018 Statut Membre Dernière intervention 24 janvier 2018 - 23 janv. 2018 à 23:44
1Globule Messages postés 62 Date d'inscription mercredi 4 mai 2016 Statut Membre Dernière intervention 28 mars 2019 - 5 févr. 2018 à 15:41
Bonjour,

Je suis débutant en vba, nous avons un examen de fin de semestre en vba sauf que je ne comprends pas toujours les boucles while et for, je suis vraiment dans la merde.

Comment puis-je calculer la moyenne de différent note ... plus exactement comment ordonner au programme de passer a la ligne suivante après avoir calculé la moyenne de la première ligne ? J'ai mis en pièce jointe la photo ainsi que ce que j'ai commencé.

Aidez moi svp !!!!!!!!!!

A voir également:

2 réponses

Réponse 1 / 2
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié le 24 janv. 2018 à 08:00
Bonjour,
boucles while et for, je suis vraiment dans la merde.
Vous devez utiliser un While ou pas???
Il vous faut un code pas trop complique ??
0
bleuciell Messages postés 2 Date d'inscription mardi 23 janvier 2018 Statut Membre Dernière intervention 24 janvier 2018
24 janv. 2018 à 11:22
bonjour, oui je dois utilisé la boucle "while" vu que le nombre de répétition n'est pas connu mais je ne sais pas comment
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
24 janv. 2018 à 11:51
Re,

Si vous voulez. Vous connaissez
 Application.WorksheetFunction.Average(Plage)
pour calcul de moyenne ou il faut faire comme vous plus haut ??
0
Réponse 2 / 2
1Globule Messages postés 62 Date d'inscription mercredi 4 mai 2016 Statut Membre Dernière intervention 28 mars 2019 2
5 févr. 2018 à 15:41
Bonjour,

Je te suggère ce petit code à condition que la moyenne à calculer se trouve en colonne E :

Sub Moyenne()
Dim i As Integer
i = 2
While Not IsEmpty(Cells(i, 1))
Cells(i, 5).FormulaR1C1 = "=AVERAGE(RC[-3]:RC[-1])"
i = i + 1
Wend
End Sub
-1