Discussion :

[NYCLA]

Bonjour,

Je souhaite créer une requête trés simple dans excel,je veux additioner tous les articles du même produit:

Ex: J'ai ça

Article Quantité
chaussure 5
chaussette 7
chapeau 5
chaussure 10

Je veux avoir:

Article Quantité
chaussure 15
chaussette 7
chapeau 5

En vous remerciant d'avance pour le temps consacré.

[Krovax]

Bonjour,

As-tu une idée de la façon de procéder?
Un début de code?
Un algorithme même en pseudo code?

Bref as-tu commencé a réfléchir à ton problème?

Si oui pourrais tu nous montrer ou tu en es si non, commence peut être par la. T'aider on est la pour ca, faire a ta place il y a des gens dont c'est le métier. Ils nourrissent leur femme et leurs enfants avec, je ne supporterais pas de leur ôter le pain de la bouche. (je sais je vais me coucher rapidement )

[mercatog]

fais un tableau croisé! pas besoin de coder pour si peu

[laetitia]

bonjour NYCLA les amis krovax & mercatog
tu as 2 possibilitées pour arriver a un resultat par formule ou vba
1 exemple par formule suppose tes données article en colonne A
nb... en colonne B

par formule on va utiliser =SOMMPROD

en cellule c1 tu rentres

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

= SOMMEPROD((A2:A65000="nom article")*(B2:B65000))

par vba

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub es()
 Dim c, d, x As Variant, m As Object
    Application.ScreenUpdating = False
       Range("E2:f65000").ClearContents
      Set m = CreateObject("Scripting.Dictionary")
        For Each c In Range("A2", [a65000].End(xlUp))
          m(c.Value) = IIf(m.Exists(c.Value), m(c.Value) + 1, 1)
        Next c
    [e2].Resize(m.Count, 1) = Application.Transpose(m.keys)
         [e1] = "article": [f1] = "somme "
   For Each c In Range("e2", [e65000].End(xlUp))
   For Each d In Range("a1", [a65000].End(xlUp))
     If c = d Then x = x + d.Offset(0, 1).Value
   Next d
     Range("f65536").End(xlUp)(2) = x
     x = 0
   Next c
[e2:f65000].Sort Key1:=Range("e2"), Order1:=xlAscending, Header:=xlGuess
End Sub

resultat
article en colonne E
somme en colonne F
plus tri alpha... a adapter