Définir nombre de copie

Bonjour,

besoin d'aide pour définir un nombre de copie de différents onglets.

Sur mon onglet "Menu", je souhaite définir le nombre d'impression pour les onglets A-B-C-D

donc j'ai créé un petit tableau comme suit pour mes choix :

J'espère être suffisamment clair et que vous pourrez m'aider...

dans tous les cas, merci de m'avoir lu.

pour ajout d'informations à mon besoin,

voici le code que j'ai actuellement pour lancer l'impression de mes feuilles,

en soit, ça fonctionne, la mise en page est bonne et les feuilles se remettent comme je le souhaite.

J'aimerai pouvoir choir, les feuilles que je veux imprimer et le nombre de copie, tout ça à partir du menu principal, nommé "Menu"..

Sub printsf2()

 'travail sur onglet SF2
Sheets("SERAC 2").Select
With Worksheets("SERAC 2").PageSetup

 'masque les colonne Q à S
Columns("Q:S").Select
Selection.EntireColumn.Hidden = True

 'sélection de la zone d'impression de H1 à la colonne T, jusqu'à cellule vide en J50
ActiveSheet.PageSetup.PrintArea = "h1:t" & Range("j50").End(xlUp).Row

'ajustement à une page
    .Zoom = False
    .FitToPagesTall = 1
    .FitToPagesWide = 1

    Selection.EntireColumn.Hidden = False
    Columns("O:T").Select
    Selection.EntireColumn.Hidden = False
    Columns("P:P").Select
    Selection.EntireColumn.Hidden = True

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
    IgnorePrintAreas:=False
    Range("K1").Select

End With

  Sheets("SERAC 3").Select
     Columns("Q:S").Select
    Selection.EntireColumn.Hidden = True
    'Range("H1:T46").Select
    ActiveSheet.PageSetup.PrintArea = "h1:t" & Range("j50").End(xlUp).Row

With Worksheets("SERAC 3").PageSetup
    .Zoom = False

'ajustement à une page
    .FitToPagesTall = 1
    .FitToPagesWide = 1

    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
    IgnorePrintAreas:=False
    Selection.EntireColumn.Hidden = False
    Columns("O:T").Select
    Selection.EntireColumn.Hidden = False
    Columns("P:P").Select
    Selection.EntireColumn.Hidden = True

    Range("K1").Select

End With

Bonjour

Une question=1 site...

A+ François

autant pour moi, je supprime

euh ...!

je ne trouve pas comment supprimer cette demande ^^'

ni comment la clore...

Le talent, que voulez-vous...