Boucle et fonction somme Résolu/Fermé

Question

Bonjour,

Je suis débutante dans le vba et là au secours !!
Je vous explique
Je dispose d'un fichier avec des lignes de bons de réception reprenant un code fournisseur et la quantité d'articles réceptionnée que j'ai classé par code fournisseur.
J'aimerai calculer la somme des quantités réceptionées par code fournisseur....
Voilà ce que j'ai commencé

Sub calcul()
ligne=4
colonne=2
while (cells(ligne, colonne)<>0)
if cells(ligne, colonne).value = cells(ligne+1, colonne) then

...et là je n'arrive pas à insérer ma fonction somme.
La somme devrait se calculer en cells(ligne, colonne+11)
et les quantités se situent dans le colonne 10(J)
Je ne maîtrise absolument pas!!
Help please !!
Merci beaucoup
A bientôt

amigo · Answer

Bonjour,

Je ne comprends pas comment sont organisées tes données
Pourquoi tu fais le test "if cells(ligne, colonne).value = cells(ligne+1, colonne)", je suppose c'est le code fournisseur.
Toutes les lignes ne font-elles pas référence au même fournisseur?
Le total doit il se faire en partiel à chaque ligne ou en cumulé à la dernière ligne?

A+.

Ivan-hoe · Answer

Bonjour Marilou, 
as-tu absolument besoin d'une macro ? 
Si tes données sont déjà triées par code fournisseur, un Sous-Total peut te calculer ta somme par fournisseur. (Données/Sous-Total)
Sinon, un tableau croisé dynamique (c'est tout simple à utiliser) ferait aussi vachement bien l'affaire dans ton cas, il me semble. 
A suivre...

Ivan-hoe · Answer

Marilou, 
un joli petit tableau croisé dynamique te calculera tes moyennes, tes mini et maxi, et plus si affinité. Douée ou pas douée, ça sera toujours plus simple que des macros. Au pire, ça nécessitera un peu de mise en forme dans tes données de base. As-tu besoin d'aide dans ce sens ? 
I.

Polux31 · Answer

nonjour,

Il faut une variable pour faire la somme:

Sub calcul()
Dim somme As Double 
somme = 0
ligne=4 
colonne=2 
while (cells(ligne, colonne)<>0) 
if cells(ligne, colonne).value = cells(ligne+1, colonne) then 
cells(ligne, colonne+11).Value = somme + cells(ligne, colonne+8)
...

;o)

polux

amigo · Answer

Bonjour,

J'ai élaboré cette macro en partant du principe que le code fournisseur en ligne 4 colonne2 servait de comparaison pour toutes les autres cellules de la colonne 2
Si le code Fournisseur est égal à celui de l 4 c 2 alors e l'ajoute aux quantités précédents et le total partiel est en colonne 11. Le dernier code fournisseur de la colonne contient le total cumulé.

Voila la macro

Sub calcul()
Dim ligne As Integer, colonne As Integer
Dim total As Double
ligne = 4
colonne = 2
total = Cells(ligne, 10).Value
Cells(ligne, 11).Value = total
ligne = ligne + 1
While (Cells(ligne, colonne).Value <> 0)
If Cells(4, colonne).Value = Cells(ligne, colonne) Then
 total = total + Cells(ligne, 10).Value
 Cells(ligne, 11).Value = total
End If
ligne = ligne + 1
Wend
End Sub

Dis moi si j'ai bien compris ou reformule ton problème
A+.

Boucle et fonction somme

5 réponses

Discussions similaires