Discussion :

[yes28]

Bonjour,

Je galère un peu... beaucoup pour lancer une impression d'onglets suivant des cases cochées dans un userform.
Pour ajouter un peu de complexité le nom des onglets change avec un nom aléatoire (une date).

J'ai déjà un peu avancé sur le fichier mais ceci me bloque !

Si vous avez un bon conseil je suis preneur !!

et dans un second temps j'aimerai proteger un maximum le fichier mais avec les macros c'est compliqué non ?

Merci pour votre aide !
Bonne soiréeCommande Linge checkbox.xlsm

[BENNASR]

Bonjour YES, le forum
Je crois que c'est pas une bonne idée de mettre un checkbox pour chaque commande et à l'ajout d'une nouvelle commande tu dois accéder à ton userform et ajouter un nouveau checkbox et pour remédier à ça tu peux utiliser un LISTBOX qui s'alimente avec le nom des onglet si la nom de l'onglet est différent de Menu et égal à Com*
tu adapte ton Listbox pour permettre la multi-selection et puis tu imprime l'onglet coché dans cette LISTBOX
à l'initialisation de ton USF et pour charger les noms des onglets :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub UserForm_Initialize() 'Valeurs initiales des cases à cocher
    Dim ws As Worksheet
    ListBox1.Clear
     j = 0
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> "Menu" And ws.Name <> "Importation Commande" And ws.Name Like "Com*" Then
    UserForm1.ListBox1.ColumnCount = 1
    UserForm1.ListBox1.ColumnWidths = "150"
    UserForm1.ListBox1.AddItem
    UserForm1.ListBox1.Column(0, j) = ws.Name
    j = j + 1
    End If
    Next ws  
End Sub

et dans le bouton de commande une fois le choix est effectué

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton2_Click()
Dim LaCommande As String
    For g = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(g) = True Then
       LaCommande = ListBox1.Column(0, g)
        Sheets(LaCommande).PageSetup.PrintArea = ("A1:E27")
        Sheets(LaCommande).PrintOut
          End If
    Next g
End Sub

et si on pousse l'analyse , je crois que c'est mieux si on réserve une feuille comme base de données et une feuille de commande standard et pré-établie
et une fois tu choisie le numéro de commande la feuille se remplie automatiquement et tu peux l'imprimer
ce ne sont que des idées d'un autodidacte et débutant VBA
Ci joint ton fichier pour test
Bonne continuation

[Menhir]

et dans un second temps j'aimerai proteger un maximum le fichier mais avec les macros c'est compliqué non ?

Il est quasiment impossible de faire une protection efficace par macro.
Pour la protection, mieux vaut s'en tenir à l'utilisation directe des commandes Excel.