Impression Nbe de feuille sur le même onglet

[apdf]

Bonjour,

J'ai un onglet avec 25 feuilles A4, l'une sous l'autre et j'aimerais pouvoirs imprimer le nombre de feuille choisi.

Ma question est il possible?

Je vous remercie de votre aide

Bonne Journée

Cordialement

Max

 

[Compte Supprimé 979]

Re : Impression Nbe de feuille sur le même onglet

Bonjour apdf,

Oui, demandé comme ça, il suffit de changer ta zone d'impression 😉

A+

 

[apdf]

Re : Impression Nbe de feuille sur le même onglet

Bonjour Bruno,

Non le probleme j'ai du mal m'expliquer sur le même onglet j'ai la valeur de 25 feuilles A4, l'une sous l'autre sa part de la ligne 1 jusqu'a la ligne 425 et chaque feuille comprend 17 lignes. Et j'aimerai via un code pouvoir imprimer nombre de feuille A4....

Voila peut-être mieux expliquer

Bonne journée

Max

 

[Hulk]

Re : Impression Nbe de feuille sur le même onglet

Slt Apdf 🙂, Bruno 🙂, Forum 🙂,

Analyse et inspire-toi de ce fichier si ça te va.

Dans ce fichier, 1 feuille A4 = A1:G50 (par défaut), à adapter donc.

 

[Modeste geedee]

Re : Impression Nbe de feuille sur le même onglet

Bonsour® apdf

sourire...

faute d'avoir tout compris ??
en toutes logique et à condition d'avoir préalablement placés les sauts de page nécessaires .

MsgBox ActiveSheet.PageSetup.Pages.Count

sinon ???
pour imprimer 2 fois de la page 4 à la page 8

Dim PremPage As Integer, DernPage As Integer, nbcopies As Integer

    '---pour imprimer 2 fois de la page 4 à la page 8
    PremPage = 4
    DernPage = 8
    nbcopies = 2
    '---
    ExecuteExcel4Macro "PRINT(2," & PremPage & "," & DernPage & ", " & nbcopies & ",,FALSE,,,,,,2,,,TRUE,,FALSE)"

 

[apdf]

Re : Impression Nbe de feuille sur le même onglet

Bonjour a tous et merci d'avoir répondu,

Pour répondre a Hulk oui trés bien seul probléme c'est que je n'est jamais le même nombre de feuille a imprimer
Aujourd'hui 12, demain 9 ect....

Bonne journée

Max

 

[Compte Supprimé 979]

Re : Impression Nbe de feuille sur le même onglet

Re,

Si j'ai bien compris et en m'aidant du code de Mister Hulk, que je salue 😉

Private Sub CommandButton1_Click()  Dim DLig As Long, Lign As Long
  Dim nbrFeuille As Integer, IndFeuille As Integer
  
  nbrFeuille = Application.InputBox("Combien de feuille souhaitez-vous imprimer ? (max 25)", "Impression", , Type:=1)


  If nbrFeuille = 0 Then Exit Sub
  
  'http://www.excel-downloads.com/forum/180691-impression-nbe-de-feuille-sur-le-meme-onglet.html#post1112803
  ' chaque feuille comprend 17 lignes.
  
  ' trouver la dernière ligne de la colonne remplie
  DLig = Range("I" & Rows.Count).End(xlUp).Row
  
  ' Mettre l'indice de feuille à imprimer à 1
  IndFeuille = 1
  ' Pour chaque ligne par ensemble de 17 lignes
  For Lign = 1 To DLig Step 17
    ' Si le nombre de feuille est <= à celui choisi
    If IndFeuille <= nbrFeuille Then
      ' Zone d'impression de la 9ème colonne = I à la 11ème = K
      ActiveSheet.PageSetup.PrintArea = Range(Cells(Lign, 1), Cells(Lign + 16, 10)).Address
      ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
      ' Incrémenter le numéro de la feuille imprimée
      IndFeuille = IndFeuille + 1
    End If
  Next Lign
End Sub

A+

 

[apdf]

Re : Impression Nbe de feuille sur le même onglet

Re,

Je suis persuadé que c'est exactement la recherche mais le seul bleme est qu'il imprim uniquement la zone "I1 à K17" pour la premiere feuille et "I18 à K34" ect....

Je pense que sa doit être une simple erreur?

Pour ma part la zone imprimable est de" A1 à J17" pour la premiere feuille et ainsi de suite

@+

Max

 

[Compte Supprimé 979]

Re : Impression Nbe de feuille sur le même onglet

Re,

Un peu d'effort de compréhension tout de même 🙄
J'ai noté dans mon code si on veut bien se donner la peine de le lire

​

' Zone d'impression de la 9ème colonne = I à la 11ème = K
      ActiveSheet.PageSetup.PrintArea = Range(Cells(Lign, 9), Cells(Lign + 16, 11)).Address

Il suffit donc de modifier les valeurs des colonnes comme suit 😉

' Zone d'impression de la 1ère colonne = A à la 10ème = J
      ActiveSheet.PageSetup.PrintArea = Range(Cells(Lign, 1), Cells(Lign + 16, 10)).Address

A+

 

[apdf]

Re : Impression Nbe de feuille sur le même onglet

Bonjour Bruno

Je te remercie infiniment et te souhaite une bonne journée.

@+
Max