VBA problème sur mon programme

Bonjour, j'ai testé une VBA pour calculer ma moyenne (avec 5 notes), cependant je n'arrive pas à programmer ma VBA

Voici le travail que j'ai réalisé ...

dim note as integer

dim total as integer

dim moyenne as integer

dim i as integer

Do

note = inputbox ("Quelle est la note obtenue ? ")

total = total + note

loop unitl i >= 5

moyenne = total / 5

Msgbox ("La moyenne est de " & moyenne)

Je vous remercie par avance

Bien cordialement

Bonjour SVA,

Tu fais un

loop unitl i >= 5 

sauf que tu n'incrémente nul part cette variable i

Bonsoir Bruno

Wouaaa un grand merci !!!! c'est bon mon programme fonctionne encore merci

sait tu ce que je dois modifier pour que ma moyenne prenne en compte les virgules ?? (elle arrondi les résultats à l'unité)

Bonne soirée Bruno et encore merci de m'avoir aidé

Re,

Modifier Integer (entier) en Single ou Double

A+

Bonjour sva, Bruno,

Je te propose d'essayer ce code VBA :

Option Explicit

Sub Essai()
  Dim note!, total!, moyenne!, i As Byte
  For i = 1 To 5
    note = InputBox("Quelle est la note obtenue ?")
    total = total + note
  Next i
  moyenne = total / 5
  MsgBox "La moyenne est de " & moyenne
End Sub

remarque : Dim note! est la même chose que Dim note As Single (mais en plus court)

Je t'ai aussi répondu sur ton premier sujet : https://forum.excel-pratique.com/viewtopic.php?p=653693#p653693

dhany