Récapitulation sélective de lignes

Z

ZEZEZE

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

Pièces jointes

  • Classeur1.xls
    14.5 KB · Affichages: 46
  • Classeur1.xls
    14.5 KB · Affichages: 37
  • Classeur1.xls
    14.5 KB · Affichages: 46
Dernière édition:
Trier par date Trier par votes
Z

ZEZEZE

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

Pièces jointes

  • Classeur1.xls
    14.5 KB · Affichages: 42
  • Classeur1.xls
    14.5 KB · Affichages: 49
  • Classeur1.xls
    14.5 KB · Affichages: 50
Vote positif 0 Vote négatif
bcharef

bcharef

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

Pièces jointes

  • BchTCD.xls
    11.5 KB · Affichages: 44
  • BchTCD.xls
    11.5 KB · Affichages: 43
  • BchTCD.xls
    11.5 KB · Affichages: 39
Vote positif 0 Vote négatif
ROGER2327

ROGER2327

XLDnaute Barbatruc
Re : Récapitulation sélective de lignes

Bonjour à tous.
Un essai avec ce code :
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
 

Pièces jointes

  • ZEZEZE_3378.xls
    25 KB · Affichages: 39
Vote positif 0 Vote négatif
Staple1600

Staple1600

XLDnaute Barbatruc
Re : Récapitulation sélective de lignes

Bonjour à tous

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


Code: 
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é
 
Dernière édition:
Vote positif 0 Vote négatif
Z

ZEZEZE

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


bcharef à dit:
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
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
Z

ZEZEZE

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



ROGER2327 à dit:
Bonjour à tous.
Un essai avec ce code :
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
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
bcharef

bcharef

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

Pièces jointes

  • BchTCDV(1).xls
    12 KB · Affichages: 40
Vote positif 0 Vote négatif
Staple1600

Staple1600

XLDnaute Barbatruc
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)
 
Vote positif 0 Vote négatif

Discussions similaires

B
  • Question
Microsoft 365 Choix d'un dépôt en fonction de plusieurs critères
Réponses
1
Affichages
443
Chris401
Chris401
J
  • Question
Microsoft 365 Excel - effacer des lignes des 3 derniers jours de mois + insérer des lignes
Réponses
4
Affichages
1 K
AtTheOne
AtTheOne
LAETI-TOINOU
  • Question
Microsoft 365 Tableau suivi de billeterie d'un CSE
2
Réponses
16
Affichages
4 K
LAETI-TOINOU
LAETI-TOINOU
J
  • Question
XL 2016 Gestion Doublons, Tri, Concatenation, verouillage/masquage de formules avec VBA
Réponses
2
Affichages
810
Jovial87
J
P
  • Question
XL 2016 Conseil Projet : TCD ? VBA ? PowerQuery?
Réponses
0
Affichages
668
pin_electronic
P
R
  • Question
XL 2013 Export de lignes d'un classeur selon valeur cellule (date) ETC
Réponses
0
Affichages
583
Rochdi92
R
A
  • Question
XL 2010 Formule qui s'adapte aux changements de lignes d'un TCD
Réponses
5
Affichages
3 K
AnnONyme
A
jeff1494
  • Question
XL 2010 Boucle de lecture de colonne au comportement bizarre.
Réponses
5
Affichages
943
jeff1494
jeff1494
J
  • Question
XL 2013 Ventilation de données et Ecarts de lignes
2
Réponses
19
Affichages
2 K
JBond13600
J
Arpopa
  • Question
Outil de suivi de demandes
Réponses
0
Affichages
7 K
Arpopa
Arpopa

Membres actuellement en ligne

10 membres et 78 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 330
Messages
2 087 335
Membres
103 523
dernier inscrit
mounir2025