Nombre de copie d'impression

Thibault2612 · 29 Mai 2017

Bonjour à tous,

j'ai réaliser une macro permettant de lancer une impression en appuyant sur un bouton mais j'aimerais pouvoir choisir le nombre de copie que je vais lancer en impression en appuyant sur mon bouton.

Je sais que c'est la fonction "Selection.PrintOut Copies:=1" qui la determine mais je ne sais comment remplacer le 1 par une cellule dans laquelle je saisirais le nombre de copie.

Je vous remercie de votre aide, cordialement. (Je vous met le code ci-dessous)

VB:

Sub Imprim()
    If MsgBox("Opération irréversible. Souhaitez-vous continuez ?", vbYesNo + vbQuestion + vbDefaultButton1, "Confirmation d'action") = vbNo Then
    Exit Sub
    End If

    Range("B7:B8").Select
    Range("B8").Activate
    Selection.PrintOut Copies:=1, Collate:=True
End Sub

natorp · 29 Mai 2017

Bonjour Thibault

Comme ça :

Code:

     Range("B7:B8").Select
     Range("B8").Activate
     nbcop = InputBox("Nombre de copies ?", "Copie")
     Selection.PrintOut Copies:=nbcop, Collate:=True

Cordialement, Gérard

Lone-wolf · 29 Mai 2017

Bonjour Thibault , Gérard , le Forum

VB:

Sub test()
Dim nbCopies As Long

    nbCopies = ActiveSheet.Range("g2").Value

    With ActiveSheet
        .PageSetup.PrintArea = "$B$7:$B$8"
        .PrintOut copies:=nbCopies
    End With
End Sub

Thibault2612 · 29 Mai 2017

Bonjour, merci pour votre solution néanmoins je veux choisir ce paramètre dans une cellule.
Cela est-il possible?

Cordialement

Lone-wolf · 29 Mai 2017

Re Thibault

Lit mon message Post #3

Thibault2612 · 29 Mai 2017

Re Lone-Wolf, en effet mon message précédent été écrit quand je n'avais pas lu votre post.

Je viens d'essayer votre solution qui me paraît excellent mais lors de l'execution de la macro, le nombre d'impression ne change pas alors que j'ai saisi 2 ou 3 dans la cellule.

Merci

natorp · 29 Mai 2017

Re,

Moi la solution de Lone-Wolf (bjr !!) marche ...

Cordialement, Gérard

Thibault2612 · 29 Mai 2017

Re bonjour,
Effectivement ça marche, le problème venais de moi.
Un dernier détail, j'aimerais que la cellule qui choisis le nombre de copie se trouve en Feuille 2.
J'ai essayer :
nbCopies = ActiveSheet.Range("Feuil2!g2").Value

mais cela ne marche pas...

kadelmalin · 29 Mai 2017

Bonjour,
Es tu sûr que ta feuille active est bien la feuille 2 ?

natorp · 29 Mai 2017

Re,

comme ça :

Code:

nbCopies = Sheets("Indicateur retards").Range("k2").Value

Cordialement, Gérard

Lone-wolf · 29 Mai 2017

Bonjour kadelmalin , re à tous

Si c'est bien la feuille 2

nbCopies = Feuil2.Range("g2").Value ou nbCopies = Sheets(2).Range("g2").Value

Thibault2612 · 29 Mai 2017

Je vous remercie fortement

cordialement.

Nombre de copie d'impression

Thibault2612

XLDnaute Junior

natorp

XLDnaute Accro

Lone-wolf

XLDnaute Barbatruc

Thibault2612

XLDnaute Junior

Lone-wolf

XLDnaute Barbatruc

Thibault2612

XLDnaute Junior

natorp

XLDnaute Accro

Thibault2612

XLDnaute Junior

kadelmalin

XLDnaute Occasionnel

natorp

XLDnaute Accro

Lone-wolf

XLDnaute Barbatruc

Thibault2612

XLDnaute Junior

Discussions similaires