XL 2010 Reporting a automatisé

[coucoud]

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]

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

 

[chris]

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]

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

 

[coucoud]

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]

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]

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

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]

re

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]

Bonjour le Forum,
Bonjour coucoud, Dranreb , bises chris

Un essai en fichier joint pour le Fun

Cordialement

 

[Dranreb]

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

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]

re

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

Merci beaucoup, c'est parfait.

 

[coucoud]

Merci

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

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]

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