Discussion :

[Cohenpi]

Bonjour à tous,

J'ai un fichier Excel contenant x lignes de référence. Ce sont des résultats de scans d'article.

Je dois donc additionner toutes les lignes portant la même référence (en gros les doublons donc).

Débutant totalement dans les macros excel, quelqu'un aurait-il déjà du créer ce genre de script ?

Merci de votre aide !

[random]

données trier reférences
données sous total à chaque changement de références
alt;
dinnées copier données coller
puis supprimer les sous totaux

quelle macro ?

[Cohenpi]

Merci mais, c'est dans le cadre d'un projet qui doit être entièrement automatisé, là est le problème

[Jean-Philippe André]

en utilisant la démo de random, tu récupères le code que te sort le macro recorder, et tu l'adaptes.

[Cohenpi]

Merci.

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub triEtSuppression()
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Rows("1:1").Select
    Columns("A:A").Select
    Selection.Subtotal GroupBy:=1, Function:=xlCount, TotalList:=Array(1), _
        Replace:=True, PageBreaks:=False, SummaryBelowData:=True
End Sub

Peut-on faire mieux ?

[random]

dans ce cas voir dans les contributions l'article cafeine dao

avec "select articvle, sum(prix) as cumul from truc group by article"


nb quand on veut après un tri récupérer l'ordre

on ajoute une colonne avec étiquette exordre et formule =colonne()
copier collage spécial valeur

on fait tous les tris souhaités
on reclasse par exordre et on efface la colonne

cela est incolore et inodore mais ne manque pas de saveur,

sinon et c'est moins faitgant on fait un tcd avec deux valeurs seulement
article et prix et c'est excel qui trie

[Invité]

Re Cohenpi,

Si cela vous convient, il n'y a aucune raison de changer.

Cela correspond d'ailleurs à ce que vous ont répondu Random puis Jpcheck.

Vous pouvez simplement, si vous ne voulez pas supprimer les résultats manuellement avant chaque éventuel nouveau lancement de la macro ajouter les lignes en bleu qui vont supprimer ces résulats avant de les recréer :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub triEtSuppression()
Selection.RemoveSubtotal
    Columns("A:A").Select
    Selection.Delete Shift:=xlToLeft 
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Rows("1:1").Select
    Columns("A:A").Select
    Selection.Subtotal GroupBy:=1, Function:=xlCount, TotalList:=Array(1), _
        Replace:=True, PageBreaks:=False, SummaryBelowData:=True
End Sub

[Invité]

Bonjour Cohenpi,

Comme toujours plusieurs solutions possibles et comme presque toujours il faut des précisions :

-vous ne voulez pas changer l'ordre des données (donc pas de tri) ?
-si c'est le cas pas de gros problèmes pour faire les cumuls mais où doivent-ils être enregistrés :

-sur une autre feuille ?

-sur une autre plage de la même feuille ?

Pouvez-vous adresser un exemple de votre fichier en ne laissant que quelques lignes (avec au moins un cas de doublons) et de résultat que vous voulez obtenir (vous pouvez remplacer des données personnelles par n'importe quoi du moment que le format est respecté).