( Résolu )Synthèse d'une synthèse

[jacky49]

bonsoir le forum,

Voici mon problème, j’ai un fichier qui me sert pour mon travail dans lequel on note en dans le tableau de A1 à O104 le type de pièces, la teinte, les bonnes, les rebuts etc.…
Puis sur la même feuille , j’ai un tableau de Q1 à AB104 qui me fait une Synthèse journalière du 1er tableau en me regroupant les types de pièces (toute teinte confondus)
Ma demande, ce serait de faire une Synthèse mensuel des Synthèse journalières , et je ne sais pas comment faire
J’espère être assez clair
Je joint le lien car mon fichier même réduit est trop gros
Cijoint.fr - Service gratuit de dépôt de fichiers
merci
jack

 

[jacky49]

Re : Synthèse d'une synthèse

re,
pour être plus compréhensible, je voudrais faire la synthèse sur toute les feuilles du mois au lieu que d'une seule
merci
jacky

 

[CISCO]

Re : Synthèse d'une synthèse

Bonjour

Je suppose que tu n'as pas forcément la même liste de pièce chaque jour ?

@ plus

 

[CISCO]

Re : Synthèse d'une synthèse

Bonjour

Dans ton tableau, je n'ai modifié que les formules en rouge. Il y a deux colonnes intermédiaires, en AF et AG. Ce n'est pas super car il faut autant de noms test0106, test0206... que de feuilles, mais ça fonctionne. De même, il faut écrire dans la SOMME tous les noms de feuilles... C'est long. Pour cette dernière formule, il y a peut être moyen de faire avec une SOMME 3D...

Je met en pièce jointe un exemple permettant de mieux comprendre la méthode utilisée pour faire la liste récapitulative de tous les types de pièce, avec les doublons.

@ plus

 

[jacky49]

Re : Synthèse d'une synthèse

Bonsoir Cisco, le forum,
je trouve cela pas mal mais dans la feuille Synthèse Mensuel, comme Type de pièces il y a fffffffff mais dans les colonnes à coté, il y a #N/A , je pense que c'est parce que fffffffff n'est que dans la feuille 0206 alors que cela peut arriver plusieurs fois car il est vrai que chaque jours, je peux avoir plusieur pièces identhiques mais aussi plusieur différentes
merci
a+
jacky

 

[CISCO]

Re : Synthèse d'une synthèse

Bonsoir

Pour résoudre ce type de problème, il suffit de rajouter des SI(ESTERREUR(...

Malheureusement, cela rallonge beaucoup la formule.

@ plus

P.S : J'ai trouvé les formules pour avoir la liste mensuelle des pièces, sans doublon, mais avec des formules très longues... Grrrrr

 

[jacky49]

Re : Synthèse d'une synthèse

re,
j'ai voulu renommer test 0106 en test 0109 et changer la formule mais je n'y arrive pas , pourquoi
merci
jacky

 

[CISCO]

Re : Synthèse d'une synthèse

Bonjour

Cela fonctionne, à condition d'adapter les noms et les plages...

@ plus

P.S : Pour transférer les données d'une trentaine de feuilles, cela va donner des formules très compliquées. Conclusion : Il faut trouver une méthode plus simple...

 

[CISCO]

Re : Synthèse d'une synthèse

Bonjour

Une autre façon de procéder, plus facile à mettre en oeuvre (on n'a plus besoin de créer un nom (test0106, test0206) par feuille, un seul suffit, le nom nomsfeuilles), en pièce jointe. Il y a maintenant 1 cellule intermédiaire, AE6, et 2 colonnes intermédiaires, AF et AG.

@ plus

 

[job75]

Re : Synthèse d'une synthèse

Bonjour jacky49, CISCO,

Une solution VBA si ça vous tente

La macro est dans Module1 (Alt+F11) et se lance par les touches Ctrl+S quand la feuille de synthèse est la feuille active.

Le nom de la feuille de synthèse doit être de la forme Synthèse Juin.

Les colonnes Q:AB ne paraissent plus nécessaires.

Sub Synthese() 'se lance par Ctrl+S
Dim mois$, d As Object, w As Worksheet, t, c, lig&, i As Byte
mois = Replace(ActiveSheet.Name, "Synthèse ", "")
If Not IsDate("1 " & mois) Then Exit Sub
Application.ScreenUpdating = False
mois = Format(Month("1 " & mois), "00")
Set d = CreateObject("Scripting.Dictionary")
'---Type de Pièces sans doublons---
For Each w In Worksheets
  If w.Name Like "##" & mois Then
    t = w.Range("A6", w.[A65536].End(xlUp)) 'tableau
    For Each c In t
      d(c) = c
    Next
  End If
Next
Intersect([6:65536], [A:C,F:F,H:H,J:L]).ClearContents
[A6].Resize(d.Count) = Application.Transpose(d.items)
'---Sommes des valeurs---
t = Array("C", "F", "H", "J", "K", "L")
For Each w In Worksheets
  If w.Name Like "##" & mois Then
    For Each c In w.Range("A6", w.[A65536].End(xlUp))
      lig = Application.Match(c, d.items, 0) + 5
      For i = 0 To 5
        Cells(lig, t(i)) = Cells(lig, t(i)) + w.Cells(c.Row, t(i))
      Next
    Next
  End If
Next
End Sub

Fichier joint.

Edit : oublié de remplacer [B4] par ActiveSheet.Name

A+

 

[job75]

Re : Synthèse d'une synthèse

Re,

Dans la macro précédente j'avais oublié de remplacer [B4] par ActiveSheet.Name, j'ai rectifié.

Une autre solution où cette fois j'ai supprimé la partie gauche de la feuille de synthèse.

La macro ne traite que la synthèse de chaque jour, c'est bien sûr plus rapide.

Fichier (2).

A+

 

[job75]

Re : Synthèse d'une synthèse

Bonjour jacky49, CISCO, le forum,

Je roule tout seul tant pis.

Voici la version (3) avec 2 améliorations importantes :

- les formules des pourcentages sont entrées automatiquement

- la macro se déclenche chaque fois qu'on active une feuille, par cette macro dans ThisWorkbook :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Synthese
End Sub

Nota 1 : le 1er test avec IsDate n'était pas bon, je l'ai remplacé par :

If Not ActiveSheet.Name Like "Synthèse *" Then Exit Sub

Nota 2 : on pourrait écrire une macro très semblable pour les synthèses journalières.

Si ça vous intéresse, déprotégez la feuille '0106' ou donnez le mot de passe.

A+

 

[CISCO]

Re : Synthèse d'une synthèse

Bonjour à tous, bonjour Job75

Bien sûr qu'une macro est plus pratique ici ... Reste plus à Jacky qu'à choisir. Bien sûr que certaines colonnes semblent inutiles sur sa feuille synthèse... A lui de faire le nettoyage si il le veut...

Au passage, j'apporte une petite simplification dans mon dernier fichier, en AG7 et en dessous.

@ plus

 

[job75]

Re : Synthèse d'une synthèse

Re,

Finalement j'ai écrit la macro SyntheseJour pour cette version (4).

Elle est déclenchée par cette macro dans ThisWorkbook :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Source As Range)
SyntheseJour Source
End Sub

Bien sûr elle ne fonctionnera pas sur la feuille '0106' tant que celle-ci restera protégée.

Nota 1 : j'ai fait plusieurs modifications dans la 1ère macro, y compris au post #précédent.

Nota 2 : j'ai aussi modifié votre formule MFC pour le maximum des Rebuts

A+

 

[job75]

Re : Synthèse d'une synthèse

Re,

La macro SynthèseJour sera nettement plus rapide en utilisant Application.SumIf (SOMME.SI).

Comme vous le faites d'ailleurs avec vos formules.

Je pense qu'on arrive au bout, ce n'était pas si facile

Version (5).

A+