Je suis désolé, j'ai joint la photo avant de décrire le problème, mais j'ai rapidement réalisé l'événement et j'ai joint le sujet avec Avant de voir ta réponse
C'est le code et je ne sais pas ce qui ne va pas avec la requête qui ne soustrait pas la valeur de la sixième colonne et de la septième colonne
VB:
Dim x, CLN As Integer
Dim C As Integer
Dim sum As Double
With Me.ListBox1
CLN = ColumnCount - 2
For C = 6 To .ListCount - 1
For x = 7 To CLN
sum = sum + Val(.List(C, x))
.List(C, 8) = sum / Val(CLN)
Next x
sum = 0
Next C
End With
For a = 1 To Me.ListBox1.ListCount - 1
Me.ListBox1.List (ListBox1.ListCount 1, 8) Val (Me.ListBox1.List (a - 1, 8)) + Val
(Me.ListBox1.List (a, 6)) Val (Me.ListBox1.List (a, 7))
Next a
Next i
Me.ListBox1.Selected (0) =True
End Sub