impression de feuille encore et tjs

Question

voici mon code:

Private Sub CommandButton1_Click()
  Dim i
  Application.DisplayAlerts = False
  For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
      Sheets(ListBox1.List(i)).PrintOut
    End If
  Next
  Application.DisplayAlerts = True


End Sub


Private Sub CommandButton2_Click()
imprim.Hide
End Sub


Private Sub UserForm_Activate()
  ListBox1.ListStyle = fmListStyleOption
  ListBox1.MultiSelect = fmMultiSelectMult
  Dim sheet As Worksheet
  For Each sheet In Worksheets
    ListBox1.AddItem sheet.Name
  Next
End Sub

bouton 1 OK
bouton 2 Annuler

pb: jarrive pas a cocher plusieurs feuilles a la fois et apr&#232;s aen cliquant sur ok a tt imprimer la selection.

aid&#233; moi svp

merci salut

jpleroisse · Answer

Il n'est pas possible d'imprimer plusieurs feuilles &#224; la fois, mais plusieurs pages, v&#233;rifie d'ailleurs dans Excel, Fichier/Imprimer, tu ne trouveras pas de fonction pour imprimer plusieurs feuilles.

jpleroisse

Tonin39 · Answer

ben si qd tu fais fichier imprimer tu peux cocher feuilles s&#233;lectionn&#233;es.

jpleroisse · Answer

OK ,j'ai v&#233;rifi&#233; sur l'ordi de ma fille (son gestionnaire d'imprimante est plus r&#233;cent que le mien).
Mais quand tu appelles le gestionnaire, tu te trouve toujours dans une seule feuille et forc&#233;ment il n'imprime que celle-l&#224;.Il ne permet pas de choisir feui1, Feuil4 ect...
Enfin c'est comme cela que je le comprends.

valtrase · Answer

Re,
T'as lu ton code !!!!!!!
ListBox1.MultiSelect = fmMultiSelectMult
y'a pas comme une erreur l&#224; par rapport au code que je t'ai donn&#233; ?
ListBox1.MultiSelect = fmMultiSelectMulti
Donc ne t'&#233;tonnes pas si tu ne peux pas coch&#233; plusieurs feuilles !!!!!

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

valtrase · Answer

Et pour r&#233;pondre aux remarques des pr&#233;d&#233;c&#233;sseurs tu n'imprimes pas plusieurs pages &#224; la fois mais ta boucle va mettre toutes les pages en file d'attente.

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

jpleroisse · Answer

Voici une macro pour imprimer plusieurs feuilles (&#224; conditions qu'il y ait des cellules remplies dans ces feuilles). Essaie d'adapter avec ta listBox

Sub Imprimer()
    Sheets(Array("Feuil1", "Feuil3")).Select
    Sheets("Feuil1").Activate
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:= _
        True
End Sub

jpleroisse

Impression de feuille encore et tjs

6 réponses

Discussions similaires