XL 2010 Reporting a automatisé

  • Initiateur de la discussion Initiateur de la discussion coucoud
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

coucoud

XLDnaute Nouveau
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
 

Pièces jointes

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.
 
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
 
Dernière édition:
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 !
 
Merci
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
20
Affichages
873
Réponses
2
Affichages
1 K
Réponses
2
Affichages
381
Réponses
3
Affichages
492
Réponses
1
Affichages
779
Réponses
11
Affichages
785
Réponses
91
Affichages
10 K
Retour