Addition + report sur autre fichier

[jojo_peter67]

Bonjour le forum,

J'ai un fichier excel.
Sur ce dernier, j'ai une colonne "G" avec des references
une autre colonne D avec des prix.
le fichier fait plus de 15 000 Lignes
a une reference correspond plusieurs prix.

J'aimerais faire une addition des prix par reference :
ex : pour la ref 80001A, on aditionne 5,04 + 5.07 etc ...

le nom de la reference doit etre envoyée vers un autre classeur (resultat.xls feuille 2) ainsi que le resultat de l'addition.

Quelqu'un pourrait il m'aider a réoudre ce casse tete (pour moi en tout cas 🙄)

 

[skoobi]

Re : Addition + report sur autre fichier

Bonjour,

en H1, la formule qui donne le total de la référence colonne G (à glisser vers le bas).

=SOMME.SI($G$1:$G$11;G1;$D$1:$D$11)

Pour ce qui est d'envoyer vers un autre fichier, donne plus de précision.
Un lien entre les 2 fichiers du genre =[fichier.xls]feuil1!H1 ?
Uniquement le résultat? par macro?
Où mets-tu le résultat dans le fichier destination?

 

[jojo_peter67]

Re : Addition + report sur autre fichier

Bonsoir,

Je suis pas trop sur que je me suis bien exprimé,
je joint un fichier pour meilleur compréhension :

on a une colonne G avec des N° de client
un meme numéro peut revenir
dans la colonne D, on a le prix dépensé par le client

j'aimerais donc faire l'addition de ce que chaque client a dépensé

et mettre la valeur dans un autre fichier ou disons plus simple dans une feuille du meme classeur (feuille resulats)

j'ai tenté par une macro mais les résultats sont erronés ...

 

[jojo_peter67]

Re : Addition + report sur autre fichier

le fichier en question

 

[jeanpierre]

Re : Addition + report sur autre fichier

Bonsoir jojo peter67, skoobi,

Ce que l'on peut faire dans le même classeur avec Sommeprod.

Vois si cela te convient.

Bonne soirée.

Jean-Pierre

Edit : On peut faire pareil avec Somme.Si comme l'a dit skoobi.

 

[jojo_peter67]

Re : Addition + report sur autre fichier

Bonjour Jean Pierre

Ca marche plutot pas mal avec Somme Prod 🙂

par contre, sais tu comment je peux récupérer la liste de tous mes N° client

je pensais enlever les doublons dans un premier temps avec un truc du genre:

'Sub plusdedoublons()
' enleve les doublons
'ActiveSheet.UsedRange.EntireRow.Sort Key1:=ActiveSheet.UsedRange.Cells(1)
'lin = Columns(1).Find("*", , , , , xlPrevious).Row
'encore:
'keep = False
'For col = 1 To Rows(lin).Find("*", , , , , xlPrevious).Column
'If Cells(lin, col) <> Cells(lin - 1, col) Then keep = True
'Next col
'If keep = False Then Rows(lin).Delete
'lin = lin - 1
'If lin > 1 Then GoTo encore
'End Sub

ensuite reste encore a les copie le resultat de la macro dans ma sheet2 ...

est ce que queslqu'un a des suggestions a me proposer ?

 

[jeanpierre]

Re : Addition + report sur autre fichier

Re,

Tu ne peux pas enlever les doublons et ensuite copier la liste. Ton résultat final en serait fortement dégradé.

Tu copies l'intégralité de tes "N° client fact" en feuille 2 et c'est sur celle-là que tu traites les doublons.

Compte tenu de ton fichier, je ne vois pas d'autre solution.

Par contre, ton code ne me semble pas très efficace.

Je te conseille donc cette petite .XLA à installer dans les macros complèmentaires, (Version 4.0 si tu as au moins Excel 2002, sinon pour Excel 2000, tu as un lien juste en dessous).

mDF Doublons 4.0 : myDearFriend! Excel Pages

Une Recherche sur le forum te fera trouver d'autres fils qui traitent le sujet, souvent avec macro, si cela peut te donner des idées.

Bonne nuit.

Jean-Pierre

 

[jojo_peter67]

Re : Addition + report sur autre fichier

Merci beaucoup pour ta solution et pour tes conseils !!