VBA Impression Checkbox

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éePièce jointe 486523

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:

---

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:

---

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

Citation:

---

Envoyé par yes28

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.