Discussion :

[sofiane06]

Bonjour,
je suis un peu just niveau timing, on doit finir notre inventaire de fin d'année et on m'a demander de sortir une macro pour gagner du temps.

Je voudrais savoir si je dois utiliser 2 boucles For pour rechercher dans le même tableau une référence et cumuler ses quantités...ou faire la même chose mais avec une 1 boucle for et une boucle Do avec condition.

bien sur après je copie le cumule total de chaque réf. sur un nouvelle feuille.

en vous remerciant.
Sofiane
j'ai joint une partie de mon fichier excel

les références se trouvent en colonne 3 et les quantités en colonne 15

[oOVaveOo]

Bonjour,

Tu as le choix entre plusieurs solutions.

Moi j'opterai pour une requête.

1) Tu enregistres ton fichier et tu nommes ton tableau
2) Données / données externes / créer une requête / excel files*
3) Tu donnes le chemin de ton fichier
4) Tu importe ton tableau
5) Suivant / Afficher les données ou modifier dans msquery / Terminer
6) Tu cliques sur le bouton 'SQL' dans la barre d'outil
7) Tu tape dans la fenêtre SQL : select [N° article], sum(Quantité) from nomdetontableau group by [N° article]
8) OK / fichier / renvoyer les données vers excel.

Je te conseille toutefois d'enlever les espaces aux noms de champs, car je ne suis pas sur pour les crochets :
[N° article] : avec espace ??
N°article : sans espace

Bon courage.

@+

[sofiane06]

Ok merci, sur sql, j'ai reussi à faire ma requête, mais le truc c'est que je le voudrais en vba... pour par la suite mettre le tout en page...

[DarkGenius]

Désolé si j'ai pas bien compris :

Tu as plusieurs articles identiques sur des lignes différentes, et tu voudrai faire le total c'est bien ça ??

EDIT: Car j'ai fait un truc pour rechercher différents articles (selon leur code ) qui était implanter dans différentes salles :

exemple :

Salle | Article | Quantité
1 | article1 | 20
1 | article 33 | 10
2| Article 20 | 2
...

Et ça me le mettait en forme :

Article | Quantité

Article 1 | 125
Article 2 | 2330
...

Faut juste que tu me dise ce que je dois compter ou soustraire ... C'était pas de la gestion de stock c'était pour un appel d'offre, mais ça peut s'appliquer parfaitement.

[sofiane06]

c'est ça!
mais mes données se trouvent sur la même feuille!!
genre:
art A | 190
art A | 180
art A | 180
art B | 145
art C | 10
art C | 124
art D | 180
art E | 14

voilà, ma macro doit faire la somme pour chaque ART
et apres je copie la somme dans un endroit sur une autre feuille

[DarkGenius]

Voila, j'ai pas retrouvé mon fichier original, car j'ai changer de boite, et je le possède plus.
Heureusement que je me souviens de la logique ^^

Edit: je suis partit de l'idée que le numéro de l'articles était ce qui dissociait les articles entres eux, et que le somme devez se faire à partir des nombres de la dernière colonne, ça donne ça:

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Sub RegrouperArticle()
Dim I
Dim J
Dim MaxFeuilleDonnées As Integer
Dim NomFeuille1
Dim NomFeuille2
Dim QuantitéArticle As Integer
Dim NomArticle As String
 
'=====================================
'Renseigner les noms des deux Feuilles
'=====================================
 
NomFeuille1 = "Feuil1"
 
NomFeuille2 = "Feuil2"
 
'=================
'Trie des articles
'=================
 
 
MaxFeuilleDonnées = ThisWorkbook.Worksheets(NomFeuille1).Range("C2").End(xlDown).Row
 
For I = 2 To MaxFeuilleDonnées
NomArticle = ThisWorkbook.Worksheets(NomFeuille1).Cells(I, 3)
 
 
For J = 2 To 60000
'Si article déjà trouvé, on ajoute les quantités
    If ThisWorkbook.Worksheets(NomFeuille2).Cells(J, 1) = NomArticle Then
    ThisWorkbook.Worksheets(NomFeuille2).Cells(J, 2).Value = ThisWorkbook.Worksheets(NomFeuille2).Cells(J, 2).Value + ThisWorkbook.Worksheets(NomFeuille1).Cells(I, 15).Value
    Exit For
    'si article non trouvé, on le créer.
        Else
        If ThisWorkbook.Worksheets(NomFeuille2).Cells(J, 1) = "" Then
 
        ThisWorkbook.Worksheets(NomFeuille2).Cells(J, 1) = NomArticle
        QuantitéArticle = ThisWorkbook.Worksheets(NomFeuille2).Cells(J, 2).Value + ThisWorkbook.Worksheets(NomFeuille1).Cells(I, 15).Value
        ThisWorkbook.Worksheets(NomFeuille2).Cells(J, 2).Value = QuantitéArticle
        Exit For
        End If
    End If
Next
Next
 
 
End Sub

Alors la logique veut, que tu renseigne les noms des deux feuilles (l'une appelé données, c'est là ou y'a les renseignements à chercher, et l'autre pour faire le tableau de récapitulation.)

Ensuite y'a plus qu'a lancer ! Je l'ais testé sur le bout de fichier que tu a lié avec ton premier post, chez moi ça marche niquel !!

EDIT :

je les pas écrit en automatique, mais pour relancer une recherche, tu doit supprimer les informations de la seconde feuille, et pour mieux lire, faire un trie par ordre alphabétique...

Mais vu que tu voulais un truc qui marche rapidement, je me suis pas lancé dans ça...(quoique facile à réaliser vous me direz ^^).

PS: ça peut prendre quelque minute selon la taille de ton fichier.