alors ça le code liste des notes :
Private Sub cmdAjouter_Click()
If Val(Text1) > 20 Then
MsgBox "probléme"
Else
lstNote.AddItem (Val(Text1))
Text1.Text = ""
End If
Text1.SetFocus
End Sub
Private Sub cmdModifier_Click()
If lstNote.ListIndex <> -1 Then
lstNote.List(lstNote.ListIndex) = ""
Else
MsgBox ("faux")
End If
Text1.SetFocus
End Sub
Private Sub cmdMoyenne_Click()
On Error Resume Next
lblMoyenne.Caption = Val(lblTotal.Caption) / (lstNote.ListCount)
End Sub
Private Sub cmdSupprimer_Click()
If lstNote.ListIndex <> -1 Then
lstNote.RemoveItem (lstNote.ListIndex)
Else
MsgBox ("choisir un nombre")
End If
End Sub
Private Sub cmdTotal_Click()
Dim s As Double
Dim i As Integer
s = 0
For i = 0 To lstNote.ListCount - 1
s = s + lstNote.List(i)
lblTotal.Caption = s
Next i
End Sub
Private Sub cmdVider_Click()
lstNote.Clear
End Sub
Private Sub Text1_Change()
Call cmdTotal_Click
Call cmdMoyenne_Click
End Sub
ce lui c'est le code mais sans utuliser les tableau
alors pour ce la dans l'autre exercie priqsue le même mais oblegatoire utuliser le tableau;
l'exercice:
saisir les notes de 30 étudiants, de les stocker dans un tableau T et de calculer leur moyenne
.
1.
Soit ''ne'' le nombre d'éléments du tableau (ne<=30), déclarez le tableau T et la variable ne dans la partie Déclaration-générale du module de la feuille.
2.
Ecrire le code du bouton Ajouter qui ajoute une note saisie dans la zone de texte dans le tableau.
3.
Ecrire une procédure Afficher qui affiche les éléments du tableau dans la liste.
4.
Ecrire une procédure Trier qui trie les éléments du tableau dans l'ordre croissant.
5.
Ecrire le code du bouton Afficher qui trie et affiche les éléments du tableau dans la liste.
6.
Ecrire le code du bouton Supprimer qui supprime du tableau T un élément sélectionner dans la liste.
7.
Ecrire le code du bouton Moyenne qui calcule la moyenne de la classe.
Ecrire le code du bouton Compter qui compte le nombre des étudiants ayant une note >=10
alors plz aider moi c'est important 
