XL 2013 Impression deux critères

[Appo1985]

Bonsoir à tous
Le code d'impression qui est sur mon fichier et qui le permet d'imprimer les listes par école m'a été offert par @BrunoM45 .
Mais je voudrais aller encore plus loin avec ma demande en sollitant pouvoir ajouter un deuxième critères c'est à dire de pouvoir imprimer par école et par option.
Merci d'avance
Ci-joint mon fichier

 

[sousou]

bonjour
ajoute ceci, copie de lamacro en changeant les critères
Sub impression_listes_par_option()
Dim cel As Range
With Sheets("BD")
For Each cel In Range("tableau3")
.ListObjects("Tableau1").Range.AutoFilter Field:=5, Criteria1:=cel.Value
.PrintPreview
Next cel

End With

End Sub

 

[Appo1985]

bonjour
ajoute ceci, copie de lamacro en changeant les critères
Sub impression_listes_par_option()
Dim cel As Range
With Sheets("BD")
For Each cel In Range("tableau3")
.ListObjects("Tableau1").Range.AutoFilter Field:=5, Criteria1:=cel.Value
.PrintPreview
Next cel

End With

End Sub

Bonjour. Merci beaucoup @sousou .
En fait ce que je voulais, c'est d'imprimer pour chaque école les listes par rapport aux options qui existent pour l'école.

 

[sousou]

Re
Comme ceci?

 

[Appo1985]

EExactement

Re
Comme ce

Exactement grandement merci !

 

[Appo1985]

Re
Comme ceci?

Peut-on faire des exclusions au niveau du filtre ou au niveau de l'impression si l'option n'existe pas pour l'école ? C'est à dire si le filtre donne un tableau vide?

 

[sousou]

Regarde comme ceci

 

[Appo1985]

Regarde comme ceci

Parfait! Merci encore