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
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 !!!!
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
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
On 2 déc, 10:41, FFO wrote:
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.
On 2 déc, 10:41, FFO <F...@discussions.microsoft.com> wrote:
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.
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.