Microsoft 365 Imprimer

[grosduke]

Bonjour, quand je veux imprimer plusieurs feuilles j'aimerais pouvoir afficher au bas de chaque page le nombre de page comme ceci: Si j'ai 6 pages j'aurais 1 de 6, 2 de 6, 3 de 6, etc. Quelqu'un peut-il m'aider?

 

[dg62]

Bonjour Grosduke

 

[grosduke]

Merci Dg62 mais voici ce que j'aimerais obtenir

Mon code:

Sub Imprimer()
Dim n As Variant
1 n = InputBox("Nombre de copies :", "Imprimer")
If n = "" Then Exit Sub
If Val(n) = 0 Then GoTo 1
Application.EnableEvents = False 'évite le lancement de BeforePrint
With ActiveSheet
For n = 1 To Val(n)
.[D13] = .[D13] + 1 'numérotation
.PrintOut
Next
End With
Application.EnableEvents = True
End Sub

Note: J'aimerais pouvoir inscrire sur chaque page le nombre de copies inscrit, quand j'obtient le message: Nombre de copies : disons 3, j'aimerais que le chiffre 3 s'écrive dans la cellule E13.

 

[dg62]

re,
à essayer

Sub Imprimer()
Dim n As Integer
n = Application.InputBox("Nombre de copies :", "Imprimer", 1, , , , , Type:=1)
Application.EnableEvents = False
With ActiveSheet
For P = 1 To Val(n)
.[D13] = .[D13] + P 'numérotation
.PrintOut
Next
End With
Application.EnableEvents = True
End Sub

 

[grosduke]

Merci sauf que j'ai un message d'erreur à la ligne
.[D13] = .[D13] + P 'numérotation

 

[grosduke]

Quand j'écris le nombre de copies 3 , j'aimerais qu'il imprime au bas de chaque page
1 de 3
2 de 3
3 de 3

 

[dg62]

Re

je n'ai pas de message d'erreur

Sub Imprimer()
Dim n As Integer
n = Application.InputBox("Nombre de copies :", "Imprimer", 1, , , , , Type:=1)
Application.EnableEvents = False
With ActiveSheet
For P = 1 To Val(n)
.PageSetup.LeftHeader = P & " / " & n                                              ' à tester
.PrintOut
Next             
End With
Application.EnableEvents = True
End Sub

 

[grosduke]

Je te remercie énormément dg62, cela m'aide beaucoup.

 

[grosduke]

dernière demande, comment pour grossir la fonte d'impression pour le résultat , parce qu'il imprime 1/2 en petit caractère

 

[dg62]

dernière demande, comment pour grossir la fonte d'impression pour le résultat , parce qu'il imprime 1/2 en petit caractère

Bonjour grosduke, le forum

un code qui remplit toutes les conditions

Sub Imprimer()
Dim n As Integer
Dim libel As String
Dim police As String
Dim taille As String
Dim pge As Integer

'détermination police et taille
police = "Arial"
taille = 3


n = Application.InputBox("Nombre de copies :", "Imprimer", 1, , , , , Type:=1)
Application.EnableEvents = False
With ActiveSheet
For pge = 1 To Val(n)
libel = "  " & pge & " de " & n

    With .PageSetup
       .LeftFooter = "&""" & police & ",normal""" & "&" & taille & libel
    End With

.PrintOut
Next
End With
Application.EnableEvents = True
End Sub

 

[grosduke]

La fonte reste encore très petite a l’impression

 

[grosduke]

J’ai essayé plusieurs taille mais rien n’a changé

 

[dg62]

bonsoir
remplacer
.LeftFooter = "&""" & police & ",normal""" & "&" & taille & libel

par .LeftFooter = "&""Arial""" & "&16" & libel

 

[grosduke]

Merci, tout fonctionne à merveille.