XL 2010 Liste de liste Somme Solde courant Excel VBA

[Mody200]

 

[Staple1600]

Bonjour @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...

 

[Mody200]

Bonsoir
Y a-t-il quelqu'un qui peut m'aider à calculer la moyenne d'achat et de vente ? Listbox

 

[Mody200]

Bonjour @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...

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

 

[Staple1600]

Re

Ouf

Et plutôt qu'une photo, il est préférable de joindre un fichier Excel
(par l'original, mais un fichier exemple allégé et anonymisé)

 

[Mody200]

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

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

 

[Staple1600]

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

 

[Mody200]

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

 

[Staple1600]

Re

Comme je l'ai déjà dit, joins un fichier EXCEL (dans lequel se trouve déjà l'Userform)

 

[Mody200]

C'est le fichier

 

[Mody200]

sumproduct
dernière colonne
Jusqu'à ce que le solde augmente

 

[Mody200]

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

 

[Mody200]

Ce code ne fonctionne pas non plus. Y a-t-il quelqu'un qui peut m'aider ?

 

[Mody200]

Y a-t-il quelqu'un ici ? Le problème n'est pas résolu. Il y a deux codes différents et le processus n'a pas abouti. J'ai joint le fichier