Bonjour à tous,

Je sollicite votre aide car je n'arrive pas à intégrer (si c'est faisable) un critère de sélection pour l'impression des mes pages en .pdf depuis Excel.
J'utilise le code suivant qui fonctionne:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Tst()
Dim Ar(2) As String
 
    Ar(0) = Feuil1.Name
    Ar(1) = Feuil2.Name
    Ar(2) = Feuil3.Name
    Application.ScreenUpdating = False
    Sheets(Ar).Select
 
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & "Document.pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
 
    Sheets("Feuil1").Select
    Application.ScreenUpdating = True
End Sub
J'aimerai sélectionner des pages (zones d'impression) pour chacune des feuilles de mon classeur mais à l'aide d'une condition. Si dans ma zone hors impression il y a "C" alors on imprime sinon on passe à la page suivante.
En plaçant une liste de critères à droite hors zone d'impression:
Dans ma feuille1
Page1:
Texte Texte Texte Texte Texte A B C D
Texte Texte Texte Texte Texte

Page2:
Texte Texte Texte Texte Texte A B D
Texte Texte Texte Texte Texte

Page3:
Texte Texte Texte Texte Texte A C
Texte Texte Texte Texte Texte


Dans ma feuille2
Page1:
Texte Texte Texte Texte Texte A B C D
Texte Texte Texte Texte Texte

Page2:
Texte Texte Texte Texte Texte C D
Texte Texte Texte Texte Texte


Je ne sais pas si c'est très clair...
Merci par avance pour votre aide!!!