XL 2019 Macro générer PDF en fonction du nombre de page

[Zemixx25300]

Bonjour à vous,
Je souhaiterais une macro qui générerait un PDF en automatique mais en fonction du nombre d'articles que je souhaite.
Ex : Si je renseigne 1 article, je veux 1 PDF pour 1 article. Si je renseigne 4 articles, je voudrais 1 seul PDF, mais avec l'article 1, puis l'article 2, puis l'article 3.
Chaque article aura son propre onglet Excel

Par avance, merci

Cdt

 

[fanch55]

Bonjour,
Votre demande n'est pas assez précise .
Vous voulez exporter des feuilles numériques à partir de cellules alphabétiques ?

 

[Zemixx25300]

bonjour,
non, en gros, si je renseigne l'article A, j'aurais ma feuille de calcul 1 qui va se renseigner, et du coup je voudrais uniquement cette feuille de calcul 1 en PDF.
Par contre, si je renseigne l'article A , B et C, alors j'aurais la feuille de calcul 1, 2 et 3 qui va se renseigner et c'est ces 3 feuilles que je voudrais sur 1 seul PDF

 

[fanch55]

C'est à dire que le A=1, B=2 ,C=3 etc ...
ou bien il n'y a aucune relation et en ce cas,
si ligne 2 remplie ==> export Feuille 1
si ligne 3 remplie ==> export Feuille 2
etc ...
?

 

[Zemixx25300]

Oui c'est tout à fait ça, A=1 , etc

Merci d'avance

 

[fanch55]

Dans le classeur joint,
Cliquez sur l’icône

 

[Zemixx25300]

Merci Fanch55 pour le temps accordé. Cela répond quasiment à mon besoin.

En réalité, les articles ne sont pas des lettres alphabétiques (A-B-C) mais des références produits (Ex : ACU120304, VOI83020), ils ne seront pas rangés dans l'ordre alphanumérique dans l'onglet Master.

Egalement, il y aura des onglets que je ne veux pas enregistrer dans le PDF (Je viens d'étoffer le fichier excel test). En gros, je souhaiterais que les feuilles 1,2,3,4 et/ou 5 en fonction du nombre d'articles renseignés (Si j'ai mis 1 article, alors je veux la feuille 1, si j'ai mis 3 articles, je veux la feuille 1, 2 et 3)

Merci encore pour votre aide précieuse

 

[fanch55]

En gros, je souhaiterais que les feuilles 1,2,3,4 et/ou 5 en fonction du nombre d'articles renseignés (Si j'ai mis 1 article, alors je veux la feuille 1, si j'ai mis 3 articles, je veux la feuille 1, 2 et 3)

 

[job75]

Bonjour Zemixx25300, fanch55,

Une variante :

Sub PDF()
Dim nf, s As Object, n
nf = Application.CountA(Sheets("Master").[A:A]) - 1
For Each s In Sheets
    If IsNumeric(s.Name) Then
        n = n + 1
        If n > nf Then Exit For
        s.Select n = 1  'sélection multiple
    End If
Next
ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\Mon PDF.pdf", OpenAfterPublish:=True
Sheets(1).Select
End Sub

A+