Chris401
XLDnaute Accro
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 ?
Je n'y arrive pas avec quelque chose du style :
Merci de votre aide.
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 ?
Code:
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 :
Code:
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