Boite de dialogue Excel et macro

Fermé
Nico_ Messages postés 1219 Date d'inscription vendredi 29 décembre 2006 Statut Membre Dernière intervention 15 mars 2016 - 25 févr. 2008 à 21:52
 n.mascret - 17 sept. 2010 à 22:13
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

6 réponses

Nico_ Messages postés 1219 Date d'inscription vendredi 29 décembre 2006 Statut Membre Dernière intervention 15 mars 2016 188
1 mars 2008 à 16:47
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
1
("AUTO Eval") ; evite les blanc quand on appel ou nomme un objet. Mettre un souligné (le tiret bas) est mieux.
Nono
0
gbinforme Messages postés 14939 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 657
25 févr. 2008 à 22:31
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)
0
Nico_ Messages postés 1219 Date d'inscription vendredi 29 décembre 2006 Statut Membre Dernière intervention 15 mars 2016 188
28 févr. 2008 à 21:49
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
0
michel_m Messages postés 16593 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 23 mars 2023 3 292
1 mars 2008 à 17:15
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
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Nico_ Messages postés 1219 Date d'inscription vendredi 29 décembre 2006 Statut Membre Dernière intervention 15 mars 2016 188
1 mars 2008 à 18:14
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.
0
michel_m Messages postés 16593 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 23 mars 2023 3 292
1 mars 2008 à 18:43
If me.checkbox1=False AND me.checkbox2=False AND ...etc..then

msgbox "ton texte"

end if
0