XL 2013 ADAPTER UN CODE DE CALCUL DE MOYENNE

[kkamadou]

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

 

[soan]

Bonjour kkamadou,

ton fichier en retour. 🙂

code VBA de Module6 :

Option Explicit

Sub somme_nbspos()
  Dim som#, nb%, x#
  Do
    x = InputBox("Donnez un nombre positif :" & vbCr _
      & "Pour arrêter le processus , tapez -1")
    If x < 0 Then Exit Do
    som = som + x: nb = nb + 1
  Loop
  If nb = 0 Then MsgBox "aucun nombre positif!" Else _
    MsgBox "somme = " & som & vbLf & "moyenne = " & _
    Round(som / nb, 2)
End Sub

ce code n'utilise pas UserForm1 ni les TextBox. 😁

---

dans le module de UserForm1, voici le début
de la sub CommandButton1_Click() :

Private Sub CommandButton1_Click()
Sheets(1).Activate
'Déclaration de variables
Dim Lr As Long
'Configuration de variables
Dim i As Integer
Dim somme As Double
Dim moyenne As Double
On Error Resume Next

For i = 4 To 8
  somme = somme + Me.Controls("TextBox" & i).Value
Next i
  
TextBox9.Value = somme

moyenne = somme / 5
TextBox10.Value = moyenne
TextBox12.Value = mention(moyenne)

à toi d'essayer ton formulaire UserForm1 :

clique sur le bouton "Affiche Formulaire".

soan