Regrouper et calculer des totaux sur une liste de fournisseurs

Le
Stefen76
Bonjour,
Je dispose d'une liste de fournisseurs avec les colonnes suivantes :
nom du fournisseur
mois de la commande
montant commande

Je voudrai sortir une liste de tout les fournisseurs avec le CA
cumulé ? Comment puis-je faire ?

Merci à tous pour l'aide.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #18021291
Bonjour.
Fais un tableau croisé dynamique. Si tu as un problème, reviens le
dire.
Cordialement.
Daniel

Bonjour,
Je dispose d'une liste de fournisseurs avec les colonnes suivantes :
nom du fournisseur
mois de la commande
montant commande

Je voudrai sortir une liste de tout les fournisseurs avec le CA
cumulé ? Comment puis-je faire ?

Merci à tous pour l'aide.


FFO
Le #18021461
Salut à toi
Feuil1 les données ainsi
Colonne A nom du fournisseur
Colonne B mois de la commande
Colonne C montant commande
Feuil2 le résultat ainsi :
Colonne A nom du fournisseur
Colonne B le CA

Je te propose ce code :

For Each c In Worksheets("Feuil1").Range("A2", "A" &
Sheets("Feuil1").Range("A65535").End(xlUp).Row)
If Nom Like "*" & c & "*" = False Then
Nom = Nom & "/" & c
CA = Range("C" & c.Row)
i = 0
Do While Sheets("Feuil1").Range("A" & c.Row + 1).Offset(i, 0).Row <
Sheets("Feuil1").Range("A65535").End(xlUp).Offset(1, 0).Row
If Sheets("Feuil1").Range("A" & c.Row + 1).Offset(i, 0) = c Then
CA = CA + Range("C" & Sheets("Feuil1").Range("A" & c.Row + 1).Offset(i,
0).Row)
End If
i = i + 1
Loop
Sheets("Feuil2").Range("A65535").End(xlUp).Offset(1, 0) = c
Sheets("Feuil2").Range("A65535").End(xlUp).Offset(0, 1) = CA
End If
Next

Celà devrait te convenir
Dis moi !!!!
Stefen76
Le #18030321
On 2 déc, 10:41, FFO
Salut à toi
Feuil1 les données ainsi
Colonne A nom du fournisseur
Colonne B mois de la commande
Colonne C montant commande
Feuil2 le résultat ainsi :
Colonne A nom du fournisseur
Colonne B le CA

Je te propose ce code :

For Each c In Worksheets("Feuil1").Range("A2", "A" &
Sheets("Feuil1").Range("A65535").End(xlUp).Row)
If Nom Like "*" & c & "*" = False Then
Nom = Nom & "/" & c
CA = Range("C" & c.Row)
i = 0
Do While Sheets("Feuil1").Range("A" & c.Row + 1).Offset(i, 0).Row <
Sheets("Feuil1").Range("A65535").End(xlUp).Offset(1, 0).Row
If Sheets("Feuil1").Range("A" & c.Row + 1).Offset(i, 0) = c Then
CA = CA + Range("C" & Sheets("Feuil1").Range("A" & c.Row + 1).Offset(i,
0).Row)
End If
i = i + 1
Loop
Sheets("Feuil2").Range("A65535").End(xlUp).Offset(1, 0) = c
Sheets("Feuil2").Range("A65535").End(xlUp).Offset(0, 1) = CA
End If
Next

Celà devrait te convenir
Dis moi !!!!



J'ai trouvé la solution avec le menu sous-totaux. Cela fait ce que je
veux, merci à tous pour l'aide.
Publicité
Poster une réponse
Anonyme