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éponseBonjour @Mody200
Tu devrais relire d'urgence la charte du forum
A moins que tu ne sois pas dans ton état normal quand tu as posté cette jolie photo de ton écran...
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
Re
Ca c'est le code VBA
Je parlais de joindre un fichier EXCEL (pour nous éviter de le reconstruire)
Pour joindre un fichier, il suffit de cliquer sur
Regarde la pièce jointe 1180104
[Oui, je le ferai. Je téléchargerai le fichier bientôt
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