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

Bonjour,

Il vous sera difficile, je pense, d'obtenir une réponse convenable dans ces forums qui ne sont pas 100 % dédiés à de la programmation Visual Basic. Je pense toutefois que en suivant pas à pas votre exercice, il ne devrait pas y avoir de problème.

Ou se situe votre difficulté exactement ?

Cordialement,