Recherche Somme Cumulé d'un code article

G

Guillaume8975

XLDnaute Nouveau

• 14 Octobre 2016

• #2

Vous trouverez ci-joint un exemple de ce que je souhaite avoir. j'ai synthétiser sur un seul excel en rajoutant une feuille. J'imagine que la formule sera identique si la réponse doit apparaitre sur un autre fichier

 

Pièces jointes

• Classeur1.xlsx

  11.6 KB · Affichages: 51

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 14 Octobre 2016

• #3

Bonjour,

sur base de ton exemple, un TCD peut faire l'affaire

P.

 

Pièces jointes

• guillaume-xld.xlsx

  15.6 KB · Affichages: 38

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 14 Octobre 2016

• #4

Bonjour Guillaume8975, gosselien,

une essai macro. Tel qu'il est, le code fonctionne sur le fichier joint

VB:

Private Sub CommandButton1_Click()
Dim TabTot, TabP, i As Long, ii As Long, j As Long, jj As Long, Ok As Boolean
Dim WBprod As Workbook, WComp As Worksheet, Ws As Worksheet, DerC As Long, DerL As Long
Set WComp = ActiveWorkbook.Worksheets("Liste Composants")
TabTot = WComp.Range("A2:B" & WComp.Range("A" & Rows.Count).End(xlUp).Row)
'Set WBprod = Workbooks.Open(ThisWorkbook.Path & "\nomfichier.xlsx") ' noms à adapter
For i = LBound(TabTot) To UBound(TabTot)
'    For j = 2 To WBprod.Worksheets.Count
    For j = 2 To Worksheets.Count
        Set Ws = Worksheets(j)
        DerC = Ws.Cells(2, Columns.Count).End(xlToLeft).Column
        DerL = Ws.Range("B" & Rows.Count).End(xlUp).Row
        TabP = Ws.Range(Ws.Cells(2, 2), Ws.Cells(DerL, DerC))
        For jj = 1 To DerC - 1
            If TabP(1, jj) = TabTot(i, 1) Then
                For ii = LBound(TabP, 1) + 1 To UBound(TabP, 1)
                   TabTot(i, 2) = TabTot(i, 2) + TabP(ii, jj)
                Next
            End If
        Next
        Erase TabP
        Set Ws = Nothing
    Next
Next
'WBprod.Close
WComp.Range("A2").Resize(UBound(TabTot, 1), 2) = TabTot
End Sub

Si les feuilles produits sont dans un autre classeur :
activer les lignes en commentaires
mettre en commentaire la ligne For j = 2 To Worksheets.Count

adapter les noms de répertoire et de fichier dans la ligne:
Set WBprod = Workbooks.Open(ThisWorkbook.Path & "\nomfichier.xlsx")

Attention dans la feuille "Produit B ", les données commencent 2 lignes plus bas que dans les autres , ce qui provoque un décalage et des résultats erronés .

A+

 

Vote positif 0 Vote négatif

G

Guillaume8975

XLDnaute Nouveau

• 17 Octobre 2016

• #5

Bonjour à tous,

Merci pour votre retour.
Malheureusement le tableau croisé dynamique ne fonctionne pas car je reçois un fichier avec des fusions de ligne

Vous trouverez ci-joint le fichier que je reçois et la synthèse que j'aimerai recevoir.

Pensez-vous qu'une formule Excel suffit ou je dois passer par une macro ?

 

Pièces jointes

• Classeur3.xlsx

  27 KB · Affichages: 41

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 17 Octobre 2016

• #6

Bonjour à tous

Guillaume8975 à dit:

...
Malheureusement le tableau croisé dynamique ne fonctionne pas car je reçois un fichier avec des fusions de ligne...

Cliquez pour agrandir...

Si cela ne concerne que les titres (c'est la cas dans ce nouvel exemple), il suffit d'ajouter une ligne de titre par colonne...

Et pourquoi pas un exemple représentatif dès le début ?

 

Vote positif 0 Vote négatif

G

Guillaume8975

XLDnaute Nouveau

• 17 Octobre 2016

• #7

En faite, j'ai du retravailler l'exemple aujourd'hui l'exemple représentatif pour enlever les données.
Il faudra que j'ajoute une ligne dans chaque onglet (20) je (dé)fusionne quelques lignes/colonnes.
Je reçois ce fichier chaque semaine, ça devient compliqué pour traiter l'information.

 

Dernière édition: 17 Octobre 2016

Vote positif 0 Vote négatif

G

Guillaume8975

XLDnaute Nouveau

• 17 Octobre 2016

• #8

Je viens d'essayer de supprimer les lignes et ce n'est pas pratique, les erreurs sont possibles.
Il me faudrait une formule simple qui s'adapte à la feuille.

Merci d'avance pour votre aide !

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 17 Octobre 2016

• #9

re et bonjour Chris,

dommage de pas avoir eu tous les éléments au départ ! Tanpis pour la proposition de code du post 4.

Bonne suite

 

Vote positif 0 Vote négatif

G

Guillaume8975

XLDnaute Nouveau

• 17 Octobre 2016

• #10

Bonjour PaF,

Je tiens à m'excuser pour l'envoi tardif du fichier.
Est ce qu'une macro peut modifier chaque onglet pour copier sur une seule feuille de calcul.
On pourrait partir alors sur un tableau croisé dynamique pour faire une synthèse des données.

 

Dernière édition: 18 Octobre 2016

Vote positif 0 Vote négatif

G

Guillaume8975

XLDnaute Nouveau

• 18 Octobre 2016

• #11

UP du topic

 

Vote positif 0 Vote négatif

G

Guillaume8975

XLDnaute Nouveau

• 19 Octobre 2016

• #12

En me levant ce matin, j'ai eu une idée.
Je pourrais faire un copier coller de cellule, le format ne change jamais. Il me faut just en lever la fusionn de la ligne 3.
Depuis l'onglet Liste composants, je fais un copier coller de F3 et G5 de l'onglet Product A. Puis cette formule doit decaler de +4 , soit J3 + K5.

Le nom de l'onglet ne change jamais ce qui facilite la copie des données d'une semaine à l'autre.

Existe t-il une formule qui permet de se décaler (+4 colonnes) ?

Merci

 

Vote positif 0 Vote négatif

G

Guillaume8975

XLDnaute Nouveau

• 19 Octobre 2016

• #13

Vous trouverez le fichier avec les dernières modifications
Il me manque les 3 formules pour pouvoir simplifier l'opération sur l'ensemble des onglet Produits

 

Pièces jointes

• Classeur3.xlsx

  27.4 KB · Affichages: 36

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 19 Octobre 2016

• #14

Bonjour

Voir ci-joint

 

Pièces jointes

• Produits.xlsx

  31.7 KB · Affichages: 31

Vote positif 0 Vote négatif

G

Guillaume8975

XLDnaute Nouveau

• 19 Octobre 2016

• #15

Merci Chris !!!
C'est exactement ce que je cherchais.
Il semble que ca plante lorsque je rajoute des composants dans un produit (voir onglet C).
Je peux me retrouver avec 20 composants par onglet.

Peux tu préciser les points suivants:
2 des titres cohérents dans les onglets : chaque composant doit avec les même titres sur la ligne 3
3 formule en A2 différente des autres

C'est normale les formules en colonne F dans liste composants ?

Un grand merci en tout cas.

 

Vote positif 0 Vote négatif