XL 2010 Impression par VBA

Appo1985 · 21 Juin 2023

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 · 21 Juin 2023

Re,

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

A+

Compte Supprimé 979 · 21 Juin 2023

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

VB:

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 · 21 Juin 2023

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

Compte Supprimé 979 · 21 Juin 2023

Re,

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

A+

Appo1985 · 21 Juin 2023

BrunoM45 à dit:
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

VB:

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.

XL 2010 Impression par VBA

Appo1985

XLDnaute Occasionnel

Compte Supprimé 979

Compte Supprimé 979

Guest

Appo1985

XLDnaute Occasionnel

Compte Supprimé 979

Guest

Appo1985

XLDnaute Occasionnel

Discussions similaires