XL 2013 Imprimer Boucle Filtres

Chris401

XLDnaute Accro
Bonsoir à tous

Dans le fichier joint, un tableau (Colonne A à R)
Le but est de boucler sur chaque donnée de la colonne F puis colonne R et d'imprimer le tableau filtré.

Exception : code 0125 qui lui n'est filtré que sur colonne F

Dans cet exemple, il y aura 6 éditions :

upload_2016-9-19_20-37-29.png


Une idée ?
Merci par avance.
 

Pièces jointes

  • Imprimer_Filtres.xlsm
    17.2 KB · Affichages: 24

Dranreb

XLDnaute Barbatruc
Ah ben heu ajoute une instruction Me.PrintPreview à la fin de la Sub Worksheet_Activate

J'a peut être mal compris, il n'y avait pas d'autre modèle de résultat souhaité.
Le détail des lignes en rapport avec un Code et un Dest est disponible dans Dest.Contenu
Il suffirait de l'explorer dans un For Each Détail In Dest.Contenu.
Il serait aussi possible de filtrer puis d'imprimer la feuille base en se servant des Code.Id et Dest.Id.
 
Dernière édition:

Dranreb

XLDnaute Barbatruc
Alors essayez ça dans un module standard :
VB:
Option Explicit

Sub Macro1()
Dim LO As ListObject, Code As SsGroup, Dest As SsGroup
Set LO = Feuil1.ListObjects(1)
For Each Code In GroupOrg(LO, 6, 18)
  LO.Range.AutoFilter Field:=6, Criteria1:=Code.Id
  If Code.Id = "0125" Then
     LO.Range.AutoFilter Field:=18
     Feuil1.PrintPreview
  Else
     For Each Dest In Code.Contenu
        LO.Range.AutoFilter Field:=18, Criteria1:=Dest.Id
        Feuil1.PrintPreview
        Next Dest: End If: Next Code
Feuil1.ShowAllData
End Sub
 

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T