High-Tech Santé Médecine Droit-Finances

Grippe A

Que dois-je faire ?

Rechercher : dans
Par :

Boite de dialogue Excel et macro

Dernière réponse le 1 mar 2008 à 18:43:32 Nico_, le 25 fév 2008 à 21:52:27 
 Signaler ce message aux modérateurs

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

Configuration: Windows XP
Firefox 2.0.0.12

Meilleures réponses pour « boite de dialogue Excel et macro » dans :
Télécharger MOREFUNC (Macro complémentaire EXCEL) VoirMorefunc est une macro complémentaire proposant 67 nouvelles fonctions de feuille de calcul pour Excel. Ces fonctions sont compatibles avec Excel 95 à 2007. Elles ne sont pas portables sur d'autres plate-formes que Windows, ni sur d'autres...
Télécharger Excel Macro Processor Voir
Javascript - les boîtes de dialogue VoirQu'est-ce qu'une boîte de dialogue? Une boîte de dialogue est une fenêtre qui s'affiche au premier plan suite à un événement, et qui permet Soit d'avertir l'utilisateur Soit le confronter à un choix Soit lui demander de compléter un champ pour...
Posez votre question Répondre

1

gbinforme, le 25 fév 2008 à 22:31:14

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

   
Répondre à gbinforme

2

Nico_, le 28 fév 2008 à 21:49:30

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

   
Répondre à Nico_

3

Nico_, le 1 mar 2008 à 16:47:13
  • +1

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

   
Répondre à Nico_

4

michel_m, le 1 mar 2008 à 17:15:40

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

   
Répondre à michel_m

5

Nico_, le 1 mar 2008 à 18:14:52

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.

   
Répondre à Nico_

6

 michel_m, le 1 mar 2008 à 18:43:32

If me.checkbox1=False AND me.checkbox2=False AND ...etc..then

msgbox "ton texte"

end if

   
Répondre à michel_m
Posez votre question Répondre
Ils ont besoin de votre aide