|
|
|
|
Configuration: Windows XP Firefox 2.0.0.12
bonjour
Il te suffit de créer une feuille formulaire avec tes cases à cocher et un bouton de validation (et annulation) pour lancer ta macro qui va prendre en compte les coches : si tu sais imprimer une page, pas de souci car si coché imprime la page tout simplement. Ton bouton imprimer lance le formulaire au lieu de lancer l'impression (formulaire.show) Toujours zen |
bonsoir,
je ne parviens pas a y faire ! je ne sais pas comment faire pour que ça imprime si on coche. Merci, si c'est possible de faire un exemple. Bonne soirée |
bonjour,
J'ai fais une feuille que j'ai nommer formulaire. sur cette feuille, il y a 3 cases a cocher et 2 boutons de commande. sur le bouton de commande, voici le code :
Sub CommandButton2_Click()
If CheckBox1.Value = True Then
Sheets("AUTO Eval").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$BV$22"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Else
End If
If CheckBox2.Value = True Then
SheSheets("Traduction des données").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$Q$23"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Else
End If
End Sub
Je ne sais pas comment faire pour ne pas avoir d'erreur dans mon code. Merci a celles, ceux qui pourront m'aider. Bonne Journée |
Bonjour,
essaies: Private Sub CommandButton1_Click() If Me.CheckBox1 Then With Sheets("feuil2") .Range("B3:F30").PrintOut End With End If 'If Me.checkbox2 Then... 'avant le end sub avertit l'utilisateur MsgBox "les ordres d'impression ont été transmis à l'imprimante" End Sub le bouton et les checkbox doiventêtre installés avec la barre d'outils "boite à outils controle" Tu cliques droit sur l'onglet "formulaire -code, tu fais un copier-coller du code ci dessus et tu adaptes à ton cas Bon WE Michel |
Merci pour ce code, il fonctionne très bien !
serait-il possible de rajouter un message pour informer que si aucune case est cochée, rien ne sera imprimer? Merci Bonne WE. |
If me.checkbox1=False AND me.checkbox2=False AND ...etc..then
msgbox "ton texte" end if |
Résultats pour boite de dialogue Excel et macro
Résultats pour boite de dialogue Excel et macro
Résultats pour boite de dialogue Excel et macro
Résultats pour boite de dialogue Excel et macro