Private Sub ListBox1_Change()
Dim i%, s1#, n1%, s2#, n2%
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
If IsNumeric(CStr(.List(i, 1))) Then s1 = s1 + .List(i, 1): n1 = n1 + 1
If IsNumeric(CStr(.List(i, 2))) Then s2 = s2 + .List(i, 2): n2 = n2 + 1
End If
Next
txtNote1 = IIf(n1, s1, "")
txtNote2 = IIf(n2, s2, "")
If n1 + n2 Then txtMoyenne = (s1 + s2) / (n1 + n2) Else txtMoyenne = ""
End With
End Sub
Private Sub UserForm_Initialize()
Dim i%
With ListBox1
For i = 0 To .ListCount - 1
.Selected(i) = True
Next
End With
End Sub