Vba calcul moyenne
Résolu/Fermé2 réponses
Skeletyon
Messages postés
1552
Date d'inscription
jeudi 20 novembre 2008
Statut
Membre
Dernière intervention
30 décembre 2013
156
11 janv. 2011 à 13:57
11 janv. 2011 à 13:57
Bonjour,
Déjà je serai vous je procèderai dans l'autre sens.
Je demanderai à saisir une note, puis une autre etc, jusqu'à ce que le compteur arrive au nombre de notes total.
C'est toujours plus simple de faire une incrémentation qu'une décrémentation.
Vous pourriez même aller plus loin en faisant saisir des notes jusqu'à ce que la personne clique sur "annuler" et diviser le total par le nombre de tours dans la boucle.
Oh et sans message d'erreur, il est difficile de vous cerner le problème ;)
Déjà je serai vous je procèderai dans l'autre sens.
Je demanderai à saisir une note, puis une autre etc, jusqu'à ce que le compteur arrive au nombre de notes total.
C'est toujours plus simple de faire une incrémentation qu'une décrémentation.
sommenote = 0 saisie = 0 nbrenote = InputBox("combien il y a-t-il de notes dans la moyenne") Do note = InputBox("saisir la note") sommenote = sommenote + note saisie = saisie + 1 Loop Until saisie <= nbrenote moyenne = sommenote / nbrenote MsgBox ("la moyenne est de" & moyenne)
Vous pourriez même aller plus loin en faisant saisir des notes jusqu'à ce que la personne clique sur "annuler" et diviser le total par le nombre de tours dans la boucle.
Oh et sans message d'erreur, il est difficile de vous cerner le problème ;)
Utilisateur anonyme
11 janv. 2011 à 17:46
11 janv. 2011 à 17:46
comme ça c'est bon! merci beaucoup
Sub algomoyenne()
Dim nbrenote As Integer
Dim note As Integer
Dim sommenote As Integer
Dim moyenne As Integer
Dim saisie As Integer
sommenote = 0
saisie = 0
nbrenote = InputBox("combien il y a-t-il de notes dans la moyenne")
note = InputBox("saisir la note")
sommenote = sommenote + note
saisie = saisie + 1
Do
note = InputBox("saisir la note")
sommenote = sommenote + note
saisie = saisie + 1
Loop Until saisie = nbrenote
moyenne = sommenote / nbrenote
MsgBox ("la moyenne est de" & moyenne)
End Sub
Sub algomoyenne()
Dim nbrenote As Integer
Dim note As Integer
Dim sommenote As Integer
Dim moyenne As Integer
Dim saisie As Integer
sommenote = 0
saisie = 0
nbrenote = InputBox("combien il y a-t-il de notes dans la moyenne")
note = InputBox("saisir la note")
sommenote = sommenote + note
saisie = saisie + 1
Do
note = InputBox("saisir la note")
sommenote = sommenote + note
saisie = saisie + 1
Loop Until saisie = nbrenote
moyenne = sommenote / nbrenote
MsgBox ("la moyenne est de" & moyenne)
End Sub