Récapitulation sélective de lignes

[ZEZEZE]

Bonjour à tous,

(je n'ai pas trouvé de meilleur titre)


J'ai plusieurs onglets avec des références distinctes. A chaque référence, je peux lui attribuer une quantité de commande.
Je voudrai en résultat, 1 seul onglet Réacp qui ne ferait apparître seulement les lignes de références contenant une quantité à commander.
Je précise que je voudrai cela en automatique et ne pas passer par un tri sur le champ commande puis suppresion de lignes...

Merci à vous
Pierre

 

[Staple1600]

Re : Récapitulation sélective de lignes

Bonjour


Avec un fichier exemple joint à ton message, il serait plus simple de t'aider ...

 

[ZEZEZE]

Re : Récapitulation sélective de lignes

Effectivement, je n'avais point vu la perte de la mise en page.
voici un fichier joint.
Pierre

 

[bcharef]

Re : Récapitulation sélective de lignes

Bonjour ZEZEZE & Staple1600,
Bonjour à toutes et à tous.

Un essai avec un Tableau Croisé Dynamique, dans l'espoir qu'il conviendra au problème.

A vous lire et bon courage.

Cordialement.

BCharef

 

[ROGER2327]

Re : Récapitulation sélective de lignes

Bonjour à tous.

Un essai avec ce code :

[COLOR="DarkSlateGray"][B]Sub toto()
Dim i&, j&, k&
Dim oDat, oRcp, oFeuil, nRcp&, nCol&
   nCol = 2
   ReDim oRcp(1 To nCol, 1 To 1)
   oFeuil = Array("onglet récap", "1er onglet", "2ème onglet")
   For k = 1 To UBound(oFeuil)
      With Worksheets(oFeuil(k))
         oDat = .Range(.Cells(5, 1), .Cells(.Rows.Count, 1).End(xlUp).Offset(0, nCol - 1)).Value
      End With
      For i = 3 To UBound(oDat, 1)
         If Not IsEmpty(oDat(i, 2)) Then
            nRcp = nRcp + 1
            ReDim Preserve oRcp(1 To nCol, 1 To nRcp)
            For j = 1 To nCol
               oRcp(j, nRcp) = oDat(i, j)
            Next j
         End If
      Next i
   Next k
   With Worksheets(oFeuil(0))
      .Range(.Cells(5, 1), .Cells(.Rows.Count, 1).End(xlUp).Offset(0, nCol - 1)).Offset(1, 0).ClearContents
      .Cells(7, 1).Resize(UBound(oRcp, 2), nCol).Value = WorksheetFunction.Transpose(oRcp)
   End With
End Sub[/B][/COLOR]

Voyez la mise en œuvre dans le classeur joint (bouton RECAP dans la feuille onglet récap).​

ROGER2327
#3378

12 Floréal An CCXVIII
2010-W17-6T14:10:21Z

 

[Staple1600]

Re : Récapitulation sélective de lignes

Bonjour à tous

Un autre essai (avec l'emploi du Filtre élaboré)

Sub a()
Dim i&, rf As Range
Application.ScreenUpdating = False
Sheets(3).Rows("2:500").Delete
For i = 1 To 2
    With Sheets(i)
        .[C2].Formula = "=B2<>"""""
        .Range("A1:B" & .[A65536].End(xlUp).Row).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=.[C1:C2]
        Set rf = .Range("_FilterDataBase")
        rf.Offset(1, 0).Resize(rf.Rows.Count - 1).SpecialCells(12).Copy Sheets(3).[A65536].End(xlUp)(2)
        .ShowAllData
        .[C2] = ""
    End With
Next i
Application.ScreenUpdating = True
End Sub

A tester sur un classeur avec 3 feuilles
Feuille1: le premier tableau (sans ligne vide entre les entêtes et les données
Feuille2: le second tableau (sans ligne vide entre les entêtes et les données)
Feuille3: en A1: Référence, en B1: Quantité

 

[david84]

Re : Récapitulation sélective de lignes

Bonjour à tous,
ci-joint proposition.
Cordialement

 

[ZEZEZE]

Re : Récapitulation sélective de lignes

merci de ta réponse mais:

j'aime bien les tableaux dynamiques, mais je ne voudrais pas faire apparaître les références s'il n'y a pas en regard de quantité servie.

Bonjour ZEZEZE & Staple1600,
Bonjour à toutes et à tous.

Un essai avec un Tableau Croisé Dynamique, dans l'espoir qu'il conviendra au problème.

A vous lire et bon courage.

Cordialement.

BCharef

 

[ZEZEZE]

Re : Récapitulation sélective de lignes

Merci ROGER2327.
La macro donne bien le résultat attendu, mais mon exemple n'est .. qu'un exemple. Ainsi j'ai plusieurs onglets et dans chaque onglet plusieurs colonnes; je ne me sens pas en mesure d'adapter la macro à mon besoin.
Pierre

Bonjour à tous.

Un essai avec ce code :

[COLOR="DarkSlateGray"][B]Sub toto()
Dim i&, j&, k&
Dim oDat, oRcp, oFeuil, nRcp&, nCol&
   nCol = 2
   ReDim oRcp(1 To nCol, 1 To 1)
   oFeuil = Array("onglet récap", "1er onglet", "2ème onglet")
   For k = 1 To UBound(oFeuil)
      With Worksheets(oFeuil(k))
         oDat = .Range(.Cells(5, 1), .Cells(.Rows.Count, 1).End(xlUp).Offset(0, nCol - 1)).Value
      End With
      For i = 3 To UBound(oDat, 1)
         If Not IsEmpty(oDat(i, 2)) Then
            nRcp = nRcp + 1
            ReDim Preserve oRcp(1 To nCol, 1 To nRcp)
            For j = 1 To nCol
               oRcp(j, nRcp) = oDat(i, j)
            Next j
         End If
      Next i
   Next k
   With Worksheets(oFeuil(0))
      .Range(.Cells(5, 1), .Cells(.Rows.Count, 1).End(xlUp).Offset(0, nCol - 1)).Offset(1, 0).ClearContents
      .Cells(7, 1).Resize(UBound(oRcp, 2), nCol).Value = WorksheetFunction.Transpose(oRcp)
   End With
End Sub[/B][/COLOR]

Voyez la mise en œuvre dans le classeur joint (bouton RECAP dans la feuille onglet récap).​

ROGER2327
#3378

12 Floréal An CCXVIII
2010-W17-6T14:10:21Z

 

[ZEZEZE]

Re : Récapitulation sélective de lignes

Merci DAVID, mais la formule utilisée est de lecture complexe..; enfin pour moi.
pierre

Bonjour à tous,
ci-joint proposition.
Cordialement

 

[Staple1600]

Re : Récapitulation sélective de lignes

Re


ZEZEZE: tu as essayé la macro que je te proposais plus bas ?

Il n'y a plus qu'a l'adapter à ton nombre de feuilles.

 

[ZEZEZE]

Re : Récapitulation sélective de lignes

STAPLE1600, j'ai vu ton message et le texte de ta macro ds le message mais pas.. la macro en pièce jointe.
pierre

Re


ZEZEZE: tu as essayé la macro que je te proposais plus bas ?

Il n'y a plus qu'a l'adapter à ton nombre de feuilles.

 

[bcharef]

Re : Récapitulation sélective de lignes

Re bonjour ZEZEZE, Staple1600 & david84
Salut Roger
Re Bonjour à toutes et à tous.

Un autre essai avec un Tableau Croisé Dynamique, dans l'espoir qu'il conviendra au problème.

A vous lire et bon courage.

Cordialement.

BCharef

 

[ZEZEZE]

Re : Récapitulation sélective de lignes

Merci BCHAREF, c'est très astucieux !!!
Pierre

Re bonjour ZEZEZE, Staple1600 & david84
Salut Roger
Re Bonjour à toutes et à tous.

Un autre essai avec un Tableau Croisé Dynamique, dans l'espoir qu'il conviendra au problème.

A vous lire et bon courage.

Cordialement.

BCharef

 

[Staple1600]

Re : Récapitulation sélective de lignes

RE


ZEZEZE: il suffisait de copier/coller le code VBA dans un classeur respectant les spécificités décrites dans ce précédent message.

Mais peut-être es-tu débutant en VBA ?



PS: désormais je ne joins plus aucun fichier Excel dans mes messages
(juste du code VBA, des liens, ou des copies d'écran)