boite de dialogue Excel et macro

Question

Bonjour,

Je recherche comment faire une boite de dialogue avec 3 cases a cocher, et suivant les cases cocher ça imprimer les pages.

Sur la feuille 1, 2 et 3 je met un bouton "Imprimer"

Quand je clic sur celui-ci je souhaiterais qu'une boite de dialogue s'ouvre avec une case à cocher pour la feuille 1, une autre pour la feuille 2 et une dernière pour la feuille 3.

Action rechercher:

Imprimer les feuilles qui auront été cocher.

Ce que j'ai fais c'est une macro, quand on clic sur le bouton ça imprime la page.

Merci pour des liens éventuel, des codes à intégrer,...

Bonne soirée

gbinforme · Answer

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)

Nico_ · Answer

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

Nico_ · Answer

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

michel_m · Answer

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

Nico_ · Answer

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.

michel_m · Answer

If me.checkbox1=False AND me.checkbox2=False AND ...etc..then

msgbox "ton texte"

end if

Boite de dialogue Excel et macro

6 réponses

Discussions similaires

Newsletters