salut a toi

calculer moyenne


je voudrais savoir comment calculer la somme de 4 textbox et avoir le resultat dans la cinqueme
et faire la moyennes des 4 et avoir le resultat dans la 6è . sans oublier que si un textbox ou deux na pas de valeur retoune la moyenne
tout de meme sans avoir d'erreur.
merci d'avance pour le renseignement

philippe.francois17@wanadoo.fr

Voici une solution possible à ton problème :

Dim i, temp, somme, div As Integer

Private Sub Command1_Click()
For i = 0 To 3
temp = Val(Text1(i).Text)
If temp <> 0 Then div = div + 1
somme = somme + temp
Next i
Text1(4).Text = somme
If div = 0 Then
Text1(5).Text = "Moyenne impossible"
Else
Text1(5).Text = somme / div
End If
End Sub

Private Sub Form_Load()
somme = 0
div = 0
For i = 0 To 5
Text1(i).Text = ""
Next i
End Sub

Les 4 textbox sont text1(0) à text1(3), la somme en text1(4) et la moyenne en text1(5)



-------------------------------
Réponse au message :
-------------------------------

salut a toi

calculer moyenne


je voudrais savoir comment calculer la somme de 4 textbox et avoir le resultat dans la cinqueme
et faire la moyennes des 4 et avoir le resultat dans la 6è . sans oublier que si un textbox ou deux na pas de valeur retoune la moyenne
tout de meme sans avoir d'erreur.
merci d'avance pour le renseignement

philippe.francois17@wanadoo.fr
-------------------------------

calculer la moyenne des notes des etudiants. la moyenne est la soome des notes divisée par le nombre des modules