XL 2010 Impression par VBA

[Appo1985]

Bonjour. Besoin d'aide .
Je voudrais imprimer un tableau plusieurs fois , chaque fois après avoir filtré les données je voudrais de l'aide pour adapter mon code et éviter la répétition car j'ai a filtré et imprimer une quarantaine de fois.

voici une partie de.mon code.

Sub Impression_liste_par_ecole() ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=18, Criteria1:= _ "Gonsé"² ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=18, Criteria1:= _ "Somna" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=18, Criteria1:= _ "Tangui" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=18, Criteria1:= _ "Voaga A" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=FalseEnd Sub

 

[Compte Supprimé 979]

Bonjour Appo1985

Dans ton classeur, as-tu une liste des éléments à filtrer par hasard ?
Sinon il suffit d'en créer une, en la nommant "ListeEcoles"

Puis d'utiliser ce code

Sub Impression_liste_par_ecole()
  Dim Cel As Range
  With ActiveSheet
    For Each Cel In Range("ListeEcoles")
      .ListObjects("Tableau1").Range.AutoFilter Field:=18, Criteria1:=Cel.Value
      .PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
    Next Cel
  End With
End Sub

A+

 

[Appo1985]

Bonjour. Ce sont des noms d'écoles mais il y en a plus d'une quarantaine.

 

[Compte Supprimé 979]

Re,

Ce n'est pas ma question, mais j'ai modifié mon message plus haut

A+

 

[Appo1985]

Bonjour Appo1985

Dans ton classeur, as-tu une liste des éléments à filtrer par hasard ?
Sinon il suffit d'en créer une, en la nommant "ListeEcoles"

Puis d'utiliser ce code

Sub Impression_liste_par_ecole()
  Dim Cel As Range
  With ActiveSheet
    For Each Cel In Range("ListeEcoles")
      .ListObjects("Tableau1").Range.AutoFilter Field:=18, Criteria1:=Cel.Value
      .PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
    Next Cel
  End With
End Sub

A+

Vraiment merci grandement. C'est exactement ce que je voulais.