Vba calcul moyenne
Résolu
Utilisateur anonyme
-
Utilisateur anonyme -
Utilisateur anonyme -
Bonjour,
je dois faire un programme qui demande d'insérer le nombre de notes a saisir pour ensuite calculer la moyenne et l'afficher
je ne comprends pas ou sont mes erreurs
merci d'avance
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 = nbrenote - 1
Do
note = InputBox("saisir la note")
sommenote = sommenote + note
saisie = nbrenote - 1
Loop Until saisie = 0
moyenne = sommenote / nbrenote
MsgBox ("la moyenne est de" & moyenne)
End Sub
je dois faire un programme qui demande d'insérer le nombre de notes a saisir pour ensuite calculer la moyenne et l'afficher
je ne comprends pas ou sont mes erreurs
merci d'avance
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 = nbrenote - 1
Do
note = InputBox("saisir la note")
sommenote = sommenote + note
saisie = nbrenote - 1
Loop Until saisie = 0
moyenne = sommenote / nbrenote
MsgBox ("la moyenne est de" & moyenne)
End Sub
A voir également:
- Moyenne vba
- Excel moyenne - Guide
- Moyenne en anglais excel - Guide
- Excel compter cellule couleur sans vba - Guide
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
2 réponses
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 ;)
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
