kkamadou
XLDnaute Junior
Bonjour le Forum
J'ai trouvé un code bien interessant que je voulais utiliser pour le calcul des moyennes de mes elèves,
malheureusement les notes sont données à partir d'un InputBox tandis que moi
mes notes se trouvent dans des textbox.
Voir fichier joint
Je solicite donc un coup de pouce
Sub somme_nbspos()
Dim x As Double, som As Double, moy As Double
Dim nb As Integer
som = 0
nb = 0
x = InputBox("Donnez un nombre positif :" & vbCr _
& "Pour arrêter le processus , tapez -1")
While x <> -1
som = som + x
nb = nb + 1
x = InputBox("Donnez un nombre positif :" & vbCr _
& "Pour arrêter le processus , tapez -1")
Wend
If nb > 0 Then
moy = som / nb
MsgBox "somme = " & som & vbCr _
& "moyenne = " & moy
Else
MsgBox "aucun nombre positif!"
End If
End Sub
J'ai trouvé un code bien interessant que je voulais utiliser pour le calcul des moyennes de mes elèves,
malheureusement les notes sont données à partir d'un InputBox tandis que moi
mes notes se trouvent dans des textbox.
Voir fichier joint
Je solicite donc un coup de pouce
Sub somme_nbspos()
Dim x As Double, som As Double, moy As Double
Dim nb As Integer
som = 0
nb = 0
x = InputBox("Donnez un nombre positif :" & vbCr _
& "Pour arrêter le processus , tapez -1")
While x <> -1
som = som + x
nb = nb + 1
x = InputBox("Donnez un nombre positif :" & vbCr _
& "Pour arrêter le processus , tapez -1")
Wend
If nb > 0 Then
moy = som / nb
MsgBox "somme = " & som & vbCr _
& "moyenne = " & moy
Else
MsgBox "aucun nombre positif!"
End If
End Sub