Trier additionner

Résolu/Fermé
surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 - 1 juil. 2014 à 02:35
surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 - 1 juil. 2014 à 19:54
Bonjour,
j ai un soucis avec un fichier dont je n'arrive pas a trouver une solution au problème
je vous mets mon fichier joint car c est complexe a expliquer
https://www.cjoint.com/c/DGbcIGmr5Za

merci de votre aide

Slts A bientôt
Surplus

2 réponses

Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 942
Modifié par Mytå le 1/07/2014 à 03:10
Salut le Forum

En J3 (Formule matricielle) à recopier vers le bas
=SOMME(SI(stat_vente=I3;stat_quant)) 

Mytå

Merci de donner suite à votre question, nous ne sommes pas des robots...
« Si le déboguage est l'art d'enlever les bogues, alors la programmation doit être l'art de les créer. »
0
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 942
Modifié par Mytå le 1/07/2014 à 03:13
Re le Forum

Ou avec un SOMMEPROD
=SOMMEPROD((stat_vente=I3)*(stat_quant))
Mytå
0
surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 4
1 juil. 2014 à 07:00
Bonjour
la 2 eme solution est la bonne
vous pourriez m'expliquer pourquoi dans la colonne" I" j'ai 2 fois "ABCDE" ?
j ai beau le réécrire je l'ai toujours 2 fois
merci
Surplus
0
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
1 juil. 2014 à 08:48
Bonjour,

Pour établir la liste des pièces sans doublons, tu utilises un filtre avancé.
La plage de critères et la plage de données déclarées dans ce filtre doivent inclurent les étiquettes de colonne.
De plus, les libellés de ces étiquettes doivent être identiques ("Ref Piéces").
Avec le code ci-dessous, la mise en place de la formule pour calculer le nombre des ventes est réalisée par la procédure.

Sub Extraction()
Dim DerLig As Long
Application.ScreenUpdating = False
With Sheets("Mouv_ventes")
DerLig = .Range("A" & Rows.Count).End(xlUp).Row
.Range(.Range("I3:J3"), .Range("I3:J3").End(xlDown)).ClearContents
.Range("A2:A" & DerLig).AdvancedFilter Action:=xlFilterCopy _
, CopyToRange:=Range("I2"), Unique:=True
.Range("J3").Formula = "=SUMPRODUCT(($A$3:$A$" & DerLig & "=I3)*($C$3:$C$" & DerLig & "))"
.Range("J3").AutoFill Destination:=.Range("J3:J" & .Range("I3").End(xlDown).Row), Type:=xlFillDefault
End With
End Sub

A+
0
surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 4
1 juil. 2014 à 18:55
bonjour"
ca ne fonctionne pas ca me dit "erreur d'execution 1004"
"nom de champ introuvable ou incorrect dans la plage d'extraction"
je vois pas trop pourquoi
0
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 942
Modifié par Mytå le 1/07/2014 à 19:34
Re le Forum

Remplace en I2 » Ref article par Ref Piéces

Mytå
0
surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 4
1 juil. 2014 à 19:34
Re
c'est pareil ca ne fonctionne pas meme erreur
0
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 942
Modifié par Mytå le 1/07/2014 à 19:40
Re le Forum

Aucune erreur avec la macro de Gyrus et la modification de l'entête de colonne.

Le fichier : Surplus.xlsm

Mytå
0
surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 4
1 juil. 2014 à 19:44
Re
vous pourriez mettre le classeur corrigé en téléchargement car j ai bien fait attention de tout recopier ligne par ligne et j'ai la même erreur
surplus
0