XL 2010 Reporting a automatisé

coucoud · 22 Août 2016

Bonjour,

Je n'arrive pas a sortir via un TDC le nombre différent de terme de "colonne Z N° OR " onglet " Extraction "
En effet sur l'onglet "TDC", le chiffre sorti est le cumul de lignes.
Je souhaite pouvoir passer directement de l'extraction à l'onglet " Pannes - chariots"

Merci d'avance de votre aide

Dranreb · 22 Août 2016

Bonjour.
Un essai sans utiliser de TCD. Voyez si ça convient

chris · 22 Août 2016

Bonjour
Coucou Dranreb

S l'OR est bien propre à une panne d'un charriot, avec une colonne ajoutée et une somme dans le TCD

A noter que si tu utilises 2010, avec le format xls tu limites de facto les possibilités des TCD

coucoud · 22 Août 2016

Dranreb à dit:
Bonjour.
Un essai sans utiliser de TCD. Voyez si ça convient

coucoud · 22 Août 2016

Le resultat n'est pas celui que je souhaiterai. En fait le nombre de panne doit êtres le nombre d'or different. Dans cette essai, pour le chariot F2, le résultat devrait être 1 car trois fois le même OR

coucoud · 22 Août 2016

chris à dit:
Bonjour
Coucou Dranreb

S l'OR est bien propre à une panne d'un charriot, avec une colonne ajoutée et une somme dans le TCD

A noter que si tu utilises 2010, avec le format xls tu limites de facto les possibilités des TCD

O
Merci de ta réponse mais je n'ai pas saisi ta réponse. En fait l'Or est bien en correspondance avec mon nombre de pannes. Par contre dans l'extraction plusieurs lignes ont le même Or. En fait le resultat que je cherche est bien le nombre d'or different par machine.

Dranreb · 22 Août 2016

Ben il n'y a qu'à ajouter un SsGroup pour l'Or :

VB:

Private Sub Worksheet_Activate()
Dim T(), SgModèle As SsGroup, SgNoSérie As SsGroup, _
  SgNoParc As SsGroup, SgNoOR As SsGroup, L As Long
ReDim T(1 To 500, 1 To 4)
For Each SgModèle In GroupOrg(Feuil2.[A2], 8, 9, 5, 29)
   For Each SgNoSérie In SgModèle.Contenu
      For Each SgNoParc In SgNoSérie.Contenu
         For Each SgNoOR In SgNoParc.Contenu
             L = L + 1
             T(L, 1) = SgModèle.Id
             T(L, 2) = SgNoSérie.Id
             T(L, 3) = SgNoParc.Id
             T(L, 4) = SgNoOR.Count
             Next SgNoOR, SgNoParc, SgNoSérie, SgModèle
Me.[B7].Resize(500, 4).Value = T
End Sub

chris · 22 Août 2016

re

coucoud à dit:
O
Merci de ta réponse mais je n'ai pas saisi ta réponse. En fait l'Or est bien en correspondance avec mon nombre de pannes. Par contre dans l'extraction plusieurs lignes ont le même Or. En fait le resultat que je cherche est bien le nombre d'or different par machine.

As-tu regardé le classeur joint à ma réponse et vérifié les résultats obtenus ?

Jocelyn · 22 Août 2016

Bonjour le Forum,
Bonjour coucoud, Dranreb , bises chris

Un essai en fichier joint pour le Fun

Cordialement

Dranreb · 22 Août 2016

Je me suis trompé: il faut bien un niveau de plus mais pas besoin d'explrer le dernier SsGroup :

VB:

Private Sub Worksheet_Activate()
Dim T(), SgModèle As SsGroup, SgNoSérie As SsGroup, _
  SgNoParc As SsGroup, L As Long
ReDim T(1 To 500, 1 To 4)
For Each SgModèle In GroupOrg(Feuil2.[A2], 8, 9, 5, 29)
   For Each SgNoSérie In SgModèle.Contenu
      For Each SgNoParc In SgNoSérie.Contenu
          L = L + 1
          T(L, 1) = SgModèle.Id
          T(L, 2) = SgNoSérie.Id
          T(L, 3) = SgNoParc.Id
          T(L, 4) = SgNoParc.Contenu.Count
          Next SgNoParc, SgNoSérie, SgModèle
Me.[B7].Resize(500, 4).Value = T
End Sub

Agaçant de devoir chaque fois corriger à la main l'indentation !

coucoud · 24 Août 2016

chris à dit:
re

As-tu regardé le classeur joint à ma réponse et vérifié les résultats obtenus ?

Merci beaucoup, c'est parfait.

coucoud · 24 Août 2016

Merci

Dranreb à dit:

Ben il n'y a qu'à ajouter un SsGroup pour l'Or :

VB:

Private Sub Worksheet_Activate()
Dim T(), SgModèle As SsGroup, SgNoSérie As SsGroup, _
  SgNoParc As SsGroup, SgNoOR As SsGroup, L As Long
ReDim T(1 To 500, 1 To 4)
For Each SgModèle In GroupOrg(Feuil2.[A2], 8, 9, 5, 29)
   For Each SgNoSérie In SgModèle.Contenu
      For Each SgNoParc In SgNoSérie.Contenu
         For Each SgNoOR In SgNoParc.Contenu
             L = L + 1
             T(L, 1) = SgModèle.Id
             T(L, 2) = SgNoSérie.Id
             T(L, 3) = SgNoParc.Id
             T(L, 4) = SgNoOR.Count
             Next SgNoOR, SgNoParc, SgNoSérie, SgModèle
Me.[B7].Resize(500, 4).Value = T
End Sub

[/QUOT4

Merci beaucoup

coucoud · 24 Août 2016

Jocelyn à dit:
Bonjour le Forum,
Bonjour coucoud, Dranreb , bises chris

Un essai en fichier joint pour le Fun

Cordialement

C'est impeccable. merci beaucoup de votre aide

XL 2010 Reporting a automatisé

coucoud

XLDnaute Nouveau

Pièces jointes

Dranreb

XLDnaute Barbatruc

Pièces jointes

chris

XLDnaute Barbatruc

Pièces jointes

coucoud

XLDnaute Nouveau

coucoud

XLDnaute Nouveau

coucoud

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

chris

XLDnaute Barbatruc

Jocelyn

XLDnaute Barbatruc

Pièces jointes

Dranreb

XLDnaute Barbatruc

coucoud

XLDnaute Nouveau

coucoud

XLDnaute Nouveau

coucoud

XLDnaute Nouveau

Discussions similaires