XL 2010 Macro d'impression

A

alexpoupp

XLDnaute Junior
Bonjour à tous,

Je développe aujourd'hui un fichier excel pour mon entreprise qui permet d'imprimer un bon de livraison ainsi que des fiches palettes une fois un formulaire rempli. Cependant lorsque l'on clique sur le bouton impression (feuill1 case "Option d'impression BL") j'aimerai que cela imprime le nombres de feuille en fonction du nombre de palettes données (feuille: fiche palette ligne h42), j'ai déjà crée la macro d'impression mais je n'arrive pas à ajouter le fonction demandé. En plus de cela lorsque cela imprime les fiches, en bas de la feuille on voit écrit (palette 1/16 etc), j'aimerai que lorsque la feuille 2 s'imprime il soit écrit sur la feuille (2/16) et ainsi suite...

EDIT: Pour ce qu'il s'agit du nombre de feuille à imprimer j'ai trouvé!!

J'espère avoir était claire, merci à tout ceux qui prennent le temps de répondre, réfléchir et lire ma problématique.

Bonne journée à tous!!

Alex
 

Pièces jointes

  • Logiciel HP Brochage.xlsm
    453.9 KB · Affichages: 6
  • Logiciel HP Brochage.xlsm
    453.9 KB · Affichages: 6
Dernière édition:
Trier par date Trier par votes
L

Lolote83

XLDnaute Barbatruc
Salut ALEXPOUPP,
VB: 
Sub Imprime()
    With Sheets("Fiche palette ")
        xNbFiche = .[H42]
        For F = 1 To xNbFiche
            .[G42] = F & "/"
            .PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
        Next F
    End With
End Sub
Ce code imprime la fiche palette en fonction du nombre d'exemplaire donné en H42.
Par contre, pour le bon déroulement du code, il faudrait que la cellule G42 ne soit pas protégé, car la macro inscrit 1, puis 2, puis 3 ....
@+ Lolote83
 
Vote positif 0 Vote négatif
A

alexpoupp

XLDnaute Junior
Bonjour Lolote83,

Merci de ta réponse, cependant je suis débutant sur excel et je ne sais pas ou insérer exactement cette ligne de code.
Pouvez-vous m'indiquer exactement ou la mettre, ou le faire directement dans mon fichier.

Merci d'avance.

PS: j'ai joint le fichier excel sans la protection

Alex
 

Pièces jointes

  • Logiciel HP Brochage.xlsm
    453.9 KB · Affichages: 6
Vote positif 0 Vote négatif
L

Lolote83

XLDnaute Barbatruc
Re salut,
Tu copie ce code dans un module (comme pour les autres modules que tu as)
Tu affectes ensuite cette macro à ton bouton imprimante
RAPPEL !!!! Il faut que la cellule G42 ne soit pas protégée sinon cela ne fonctionnera pas ....
@+ Lolote83
 
Vote positif 0 Vote négatif
A

alexpoupp

XLDnaute Junior
(Re)Bonjour,

Voici le code que j'avais déjà :
VB: 
Sub impFP()
'
' impFP Macro
'

'
    Sheets("Fiche palette ").Select
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    Application.PrintCommunication = True
    ActiveSheet.PageSetup.PrintArea = "$A$1:$H$49"
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.25)
        .RightMargin = Application.InchesToPoints(0.25)
        .TopMargin = Application.InchesToPoints(0.75)
        .BottomMargin = Application.InchesToPoints(0.75)
        .HeaderMargin = Application.InchesToPoints(0.3)
        .FooterMargin = Application.InchesToPoints(0.3)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = True
        .CenterVertically = True
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
        .EvenPage.LeftHeader.Text = ""
        .EvenPage.CenterHeader.Text = ""
        .EvenPage.RightHeader.Text = ""
        .EvenPage.LeftFooter.Text = ""
        .EvenPage.CenterFooter.Text = ""
        .EvenPage.RightFooter.Text = ""
        .FirstPage.LeftHeader.Text = ""
        .FirstPage.CenterHeader.Text = ""
        .FirstPage.RightHeader.Text = ""
        .FirstPage.LeftFooter.Text = ""
        .FirstPage.CenterFooter.Text = ""
        .FirstPage.RightFooter.Text = ""
    End With
    Application.PrintCommunication = True
    ActiveWindow.SelectedSheets.PrintOut Copies:=Range("H42").Value, Collate:=True, _
        IgnorePrintAreas:=False
    Sheets("Fiche palette solde").Select
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    Application.PrintCommunication = True
    ActiveSheet.PageSetup.PrintArea = "$A$1:$H$49"
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.25)
        .RightMargin = Application.InchesToPoints(0.25)
        .TopMargin = Application.InchesToPoints(0.75)
        .BottomMargin = Application.InchesToPoints(0.75)
        .HeaderMargin = Application.InchesToPoints(0.3)
        .FooterMargin = Application.InchesToPoints(0.3)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = True
        .CenterVertically = True
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
        .EvenPage.LeftHeader.Text = ""
        .EvenPage.CenterHeader.Text = ""
        .EvenPage.RightHeader.Text = ""
        .EvenPage.LeftFooter.Text = ""
        .EvenPage.CenterFooter.Text = ""
        .EvenPage.RightFooter.Text = ""
        .FirstPage.LeftHeader.Text = ""
        .FirstPage.CenterHeader.Text = ""
        .FirstPage.RightHeader.Text = ""
        .FirstPage.LeftFooter.Text = ""
        .FirstPage.CenterFooter.Text = ""
        .FirstPage.RightFooter.Text = ""
    End With
    Application.PrintCommunication = True
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
End Sub

A quel niveau j'insère les lignes de code?
Je m'excuse de mon manque de compréhension

Merci

Alex
 
Vote positif 0 Vote négatif
L

Lolote83

XLDnaute Barbatruc
Re bonjour,
Derniere chose, j'aimerai remettre ensuite le numéro de page à 1.
Cliquez pour agrandir...
Inutile car lors de la prochaine impression, celle-ci recommencera normalement à 1, mais si tu y tiens.

VB: 
Sub Imprime()
    With Sheets("Fiche palette ")
        xNbFiche = .[H42]
        For F = 1 To xNbFiche
            .[G42] = F & "/"
            .PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
        Next F
    End With
    .[G42]=1 & "/"
End Sub
@+ Lolote83
 
Vote positif 0 Vote négatif
A

alexpoupp

XLDnaute Junior
Bonjour à tous,

Encore un dernier problème, je souhaite lorsque sur la page "fiche palette solde" s'il y écrit en A50 "1" que cela imprime cette feuille, et s'il y écrit "aucune" que cela imprime rien quand je lance la macro.

Merci d'avance

Alex

VB: 
Sub Imprime()
    With Sheets("Fiche palette ")
        xNbFiche = .[A50]
        For F = 1 To xNbFiche
            .[G42] = F & "/"
            .PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
        Next F
    End With
    With Sheets("Fiche palette solde ")
        xNbFiche = .[A50]
        For F = 1 To xNbFiche
            .PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
        Next F
    End With
End Sub
 
Vote positif 0 Vote négatif
L

Lolote83

XLDnaute Barbatruc
Re salut,
Peut être comme ça
VB: 
Sub Imprime()
    With Sheets("Fiche palette ")
        xNbFiche = .[A50]
        For F = 1 To xNbFiche
            .[G42] = F & "/"
            .PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
        Next F
    End With
    With Sheets("Fiche palette solde ")
        xNbFiche = .[A50]
        if xNbFiche="Aucune" then Exit Sub
        For F = 1 To xNbFiche
            .PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
        Next F
    End With
End Sub
@+ Lolote83
 
Vote positif 0 Vote négatif
A

alexpoupp

XLDnaute Junior
Lolote83 à dit:
Re salut,
Peut être comme ça
VB: 
Sub Imprime()
    With Sheets("Fiche palette ")
        xNbFiche = .[A50]
        For F = 1 To xNbFiche
            .[G42] = F & "/"
            .PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
        Next F
    End With
    With Sheets("Fiche palette solde ")
        xNbFiche = .[A50]
        if xNbFiche="Aucune" then Exit Sub
        For F = 1 To xNbFiche
            .PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
        Next F
    End With
End Sub
@+ Lolote83
Cliquez pour agrandir...
Re Bonjour,

1575969253915.png


Cela m'affiche une erreur :)
 
Dernière édition:
Vote positif 0 Vote négatif
L

Lolote83

XLDnaute Barbatruc
Re salut,
Peut être comme ça, il faut faire attention à la façon dont sont nommés les onglets
VB: 
Sub Imprime()
    With Sheets("Fiche palette ")
        xNbFiche = .[A50]
        For F = 1 To xNbFiche
            .[G42] = F & "/"
            .PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
        Next F
    End With
    With Sheets("Fiche palette solde")
        xNbFiche = .[A50]
        If UCase(xNbFiche) = "AUCUNE" Then Exit Sub
        For F = 1 To xNbFiche
            .PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
        Next F
    End With
End Sub
Pour info, l'onglet Fiche palette à un espace à la fin, l'onglet Fiche palette solde non d’où peut être l'erreur dans le précédent code
Par contre, rien n'indique en A50 une valeur numérique et/ou "aucune" ?????
@+ Lolote83
 
Vote positif 0 Vote négatif
L

Lolote83

XLDnaute Barbatruc
Re bonjour,
Pourquoi changer le code quand il est inscrit : If UCase(xNbFiche) = "AUCUNE" Then Exit Sub
et tu le transcris comme çà If UCase(xNbFiche) = "Aucune" Then Exit Sub (voir copie écran ci-dessus la tienne alors que j'avais bien inscrit au post#13)
@+ Lolote83
 
Vote positif 0 Vote négatif

Discussions similaires

K
  • Question
XL 2016 faire une fonction chronomètre avec Excel
Réponses
8
Affichages
357
Franc58
F
Todre
  • Résolu(e)
Microsoft 365 Remplissage automatique d'une feuille à l'autre
2 3
Réponses
44
Affichages
2 K
Todre
Todre
A
  • Résolu(e)
Microsoft 365 Suppression d'une ligne d'un tableau avec une macro
Réponses
10
Affichages
197
Alain 79
A
G
  • Question
XL 2019 VBA / Macro Impression avec nombre de copies variables par feuille à imprimer
Réponses
5
Affichages
1 K
Gasner
G
S
  • Question
Autres macro au ruban qui ajoute une feuille avec menu déroulant
Réponses
5
Affichages
411
Sirberthoult
S
L
  • Question
XL 2013 Liaisons Word / Excel : quelle solution retenir et comment la mettre en œuvre
2 3 4
Réponses
50
Affichages
3 K
LMOAL
L
A
  • Question
XL 2010 Générer un code à l'impression de fiches palettes
Réponses
3
Affichages
1 K
Dudu2
Dudu2
A
  • Question
XL 2010 Macro EXCEL 2010 - Planning Transport
Réponses
7
Affichages
887
Samuel2023
S
P
  • Question
XL 2016 Renvoyer les informations d'une feuille générale à une feuille détaillée
Réponses
0
Affichages
271
Pauuul35
P
V
  • Question
XL 2019 Définir des zones d'impression à partir de cellules fixes en VBA
Réponses
1
Affichages
902
GALOUGALOU
GALOUGALOU

Membres actuellement en ligne

1 membres et 43 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 206
Messages
2 086 219
Membres
103 158
dernier inscrit
laufin