Affichage Incrementation impression decroissante VBA

Fermé

saintromainn Messages postés 2 Date d'inscription lundi 20 juillet 2015 Statut Membre Dernière intervention 20 juillet 2015 - 20 juil. 2015 à 09:15
saintromainn Messages postés 2 Date d'inscription lundi 20 juillet 2015 Statut Membre Dernière intervention 20 juillet 2015 - 20 juil. 2015 à 12:09

Bonjour a tous,
je recherche la possibilite,lorsque j imprime un nombre de copies d une page excel, d imprimer sur chacune des impressions le nombre de l impression dans une cellule.

je voudrais que la premiere impression porte le nombre d impression indique et que les copies suivantes aient un numero d impression qui decroit a chaque impression...

Si possible, j aimerais aussi que le nombre d impression et la valeur la plus basse d im pression soit renseigne par l utilisateur.

j ai deja essaye d ecrire une macro :

Sub Imprimer()

Dim n As Variant
Dim beg As Variant
1 beg = InputBox("Printing from number :", "First label number")
2 n = InputBox("Number of copy :", "Print")
If n = "" Then Exit Sub
If Val(n) = 0 Then GoTo 1
For n = Val(n) To Val(beg) Step -1
If ActiveSheet.Name = "Internal label display" Then _
Sheets("Internal label display").[F34] = n
If ActiveSheet.Name = "External label display" Then _
Sheets("External label display").[P40] = n
ActiveSheet.PrintOut
Next
End Sub

mais sans grand succes..

Est-ce que quelqu'un a une idee pour m aider s'il vous plait ?

Romain

A voir également:

Affichage Incrementation impression decroissante VBA
Spouleur d'impression - Guide
Impression ecran windows - Guide
Affichage double ecran - Guide
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
Find vba - Astuces et Solutions

1 réponse

Réponse 1 / 1

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
20 juil. 2015 à 10:21

Bonjour,

Essaie comme cela

Sub Imprimer()
Dim n As Variant
Dim beg As Variant
    beg = InputBox("Printing from number :", "First label number")
    n = InputBox("Number of copy :", "Print")
    If IsNumeric(beg) And IsNumeric(n) And Val(beg) > 0 And Val(n) > 0 Then
        For n = Val(beg) + Val(n) - 1 To Val(beg) Step -1
            If ActiveSheet.Name = "Internal label display" Then
                Sheets("Internal label display").[F34] = n
            ElseIf ActiveSheet.Name = "External label display" Then
                Sheets("External label display").[P40] = n
            End If
            ActiveSheet.PrintOut
        Next
    Else
        MsgBox "Saisie incorrecte"
    End If
End Sub

A+

saintromainn Messages postés 2 Date d'inscription lundi 20 juillet 2015 Statut Membre Dernière intervention 20 juillet 2015
20 juil. 2015 à 12:09

merci Gyrus!

Discussions similaires

Transparence en tete et bas de page

adele

"L'indice n'appartient à la sélection" + VBA

VBA : Range avec références variables..

VBA erreur 1004

Discussions similaires

Newsletters