XL 2013 Imprimer Boucle Filtres

Dranreb

XLDnaute Barbatruc

• 19 Septembre 2016

• #2

Bonsoir
Moi je fais automatiquement comme ça, bien sur.

Edit: Ajouté format texte sur la colonne Code

 

Pièces jointes

• GrpOrgChris401.xlsm

  67.6 KB · Affichages: 31

Dernière édition: 19 Septembre 2016

Vote positif 0 Vote négatif

Chris401

XLDnaute Accro

• 19 Septembre 2016

• #3

Bonsoir Dranreb

Ben tu m'en donnes de la lecture !
Je regarde tout ça et te tiens au courant.

Merci de ton aide.

 

Vote positif 0 Vote négatif

Chris401

XLDnaute Accro

• 19 Septembre 2016

• #4

Re

Bon, je suis nul ; je n'y comprends rien.
Que dois-je faire pour imprimer ?

A te relire

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 19 Septembre 2016

• #5

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: 19 Septembre 2016

Vote positif 0 Vote négatif

Chris401

XLDnaute Accro

• 19 Septembre 2016

• #6

A croire que je suis débutant.
Tu parles bien d'ajouter Me.PrintPreview dans le code de la feuille filtre ?
C'est la base filtrée que je veux imprimer.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 19 Septembre 2016

• #7

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

 

Vote positif 0 Vote négatif

Chris401

XLDnaute Accro

• 19 Septembre 2016

• #8

Ca y est !

Énorme merci. (même si tes codes restent du chinois pour moi)
Bonne nuit.

 

Vote positif 0 Vote négatif