XL 2013 Boucler sur colonne filtrée

[Chris401]

Bonjour à tous

Soit un tableau A1:Ex
La colonne D est filtrée sur une date.
Je désire imprimer chaque item de la colonne C.
Comment remplacer ce code en utilisant une boucle SVP ?

Sub Imprime()
    With ActiveSheet
    .ListObjects("Tableau4").Range.AutoFilter Field:=3, Criteria1:= _
        "xx"
     .PrintPreview
    .ListObjects("Tableau4").Range.AutoFilter Field:=3, Criteria1:= _
        "yy"
    .PrintPreview
    End With
End Sub

Je n'y arrive pas avec quelque chose du style :

Sub Imprimer()
Dim Item As Variant
    With ActiveSheet
        For Each Item In Liste_de_ la _colonne_C
            .ListObjects("Tableau4").Range.AutoFilter Field:=3, Criteria1:=Item
            .PrintPreview
         Next Item
    End With
End Sub

Merci de votre aide.

 

[Lone-wolf]

Bonjour Chris

@Chris401

Macro avec un seul critère

Sub Imprimer()
Dim plage As Range, derL&
    With ActiveSheet
        derL = .Range("a" & Rows.Count).End(xlUp).Row
        .Range("a1:e" & derL).AutoFilter Field:=3, Criteria1:="xx"
        Set plage = .Range("a1:e" & derL).SpecialCells(xlCellTypeConstants)
        .PageSetup.PrintArea = plage.Address
        .PrintPreview
    End With
End Sub

 

[chris]

Bonjour

Pour cela il serait préférable d'avoir une liste sans doublons des valeurs de la colonne der.

Tu peux la constituer au préalable par un filtre avancé.

J'ai gardé Tableau4 mais il est important de nommer correctement ses tableaux !

Sub Imprimer()

Dim Maliste
Dim Item As Variant

With ActiveSheet
    Range("K1") = "der"
    Range("Tableau4[#All]").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Columns("K:K"), Unique:=True
    ReDim Maliste(WorksheetFunction.CountA(.Columns("K:K")) - 1)
    Maliste = .Range("K2:K" & UBound(Maliste) + 1)
    .Columns("K:K").ClearContents
    For Each Item In Maliste
        .ListObjects("Tableau4").Range.AutoFilter Field:=3, Criteria1:=Item
        .PrintPreview
    Next Item
End With

Edit : salut Lone-Wolf plus rapide. Il y a un ListObject donc il est préférable de coder en en tenant compte....

 

[Lone-wolf]

Bonjour Chris

@chris et @Chris401

Au faite, si tu veux imprimer tous les items(donc la plage) de la colonne C, à quoi bon filtrer??

Sub Imprimer()
Dim plage As Range, derL&
    With ActiveSheet
        derL = .Range("a" & Rows.Count).End(xlUp).Row
        Set plage = .Range("c1:c" & derL)
        .PageSetup.PrintArea = plage.Address
        .PrintPreview
    End With
End Sub

 

[Chris401]

Bonjour à tous les deux

Lone-wolf : je ne veux pas uniquement le critère "xx" mais tous les critères de la colonne C
chris : c'est presque ça sauf que la colonne K ne tient pas compte des lignes filtrées ; l'item "eee" ne devrait pas paraitre car il est filtré par la colonne D
Il faut donc copier sans doublons les lignes visibles de la colonne C

Merci à tous les deux.

 

[Chris401]

Au faite, si tu veux imprimer tous les items(donc la plage) de la colonne C, à quoi bon filtrer??

Je ne veux pas imprimer tous les item en une seule fois mais une page par items différents (Il s'agit de différents services)

Merci de m'aider.

 

[Lone-wolf]

Re

@Chris401: donc tu veux tous les xx sur une page, les yy sur une autre page, si je comprend bien.

 

[Chris401]

C'est exactement ça.

 

[Lone-wolf]

Re

@Chris401

Dans ce cas crée une liste avec tous les services et dans la macro tu met la liste (ou cellule) comme critère.

 

[BOISGONTIER]

Bonjour,

Sub parcoursItemsVisibles()
  For Each c In [tableau4].Resize(, 1).SpecialCells(xlCellTypeVisible)
    MsgBox c.Value & " " & c.Address
  Next c
End Sub

jb

 

[Lone-wolf]

Bonjour Jacques

@Chris401 : ton fichier en retour. Dans le gestionnaire des noms tu as services, c'est la plage nommée dans la feuille idoine.
Clique sur une des colonnes J K pour supprimer le filtre.

 

[Chris401]

Lone-Wolf, cela reste du manuel. Je suis obligé de lancer chaque impression.
De plus, je ne veux pas systématiquement tous les services.

BOISGONTIER : Je ne veux que les items sans doublon de la colonne C ; comment faire ?

Merci encore

 

[chris]

RE

Tu veux filtrer chaque cas l'un après l'autre ou pas ? C'est ce que fait mon code sinon précise davantage

 

[Chris401]

Chris
Ton code est presque parfait, mais il ne tient pas compte des lignes visibles uniquement.
La colonne D est filtrée sur 14/08 ce qui masque la ligne 3 (eee en colonne C)
Or ton code n'en tient pas compte.

 

[BOISGONTIER]

Sub parcoursItemsVisibles()
  Set d = CreateObject("scripting.dictionary")
  For Each c In [tableau4].Resize(, 1).SpecialCells(xlCellTypeVisible)
    d(c.Offset(, 2).Value) = ""
  Next c
  [N1].Resize(, d.Count) = d.keys
End Sub

jb