Impression d'une suite de page

[bobjazz]

Bonjour le Forum

je voudrais faire un livret avec un nombre de page qui me donne une série de chiffres
Exemple un livret de 20 pages en haut à droite N° 1 à N° 20, mais avec la même page
j'arrive avec word
Est ce possible avec excel
Merci d'avance

Bobjazz

 

[jeanpierre]

Re : Impression d'une suite de page

Bonjour bobjazz et le forum,

As-tu essayé par Fichier/Mise en page et l'onglet En-tête/Pied de page, En-tête personnalisée, et section de droite. Selectioner la l'icône avec un#

Tu auras donc &[Page]

Ce n'est que pour l'impression.

A te lire,

Bonne journée.

Jean-Pierre

 

[bobjazz]

Re : Impression d'une suite de page

Bonjour jeanpierre et le Forum

Oui, j'ai essayé et comme c'est une seule page, il met N° 1 sur toutes les pages en impression.

Merci d'avance

bobjazz

 

[Spitnolan08]

Re : Impression d'une suite de page

Bonjour Bobjazz, JeanPierre,

Si j'ai bien compris, je peux te proposer

Sub MacroImp()
For i = 1 To 20
    With ActiveSheet.PageSetup
        .LeftHeader = i & "/20"
    End With

    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1
Next
End Sub

 

[jeanpierre]

Re : Impression d'une suite de page

Re, Bonjour Spitnolan08,

Plus rapide que moi, mais comme je n'ai pas d'imprimante ici, j'étais en train de me battre avec PrintOut qui beuguer, bien entendu....

 

[bobjazz]

Re : Impression d'une suite de page

Bonjour Spitnolan08 et jeanpierre

Merci c'est exactement cela que je voulais
Juste une question pour
For i = 1 To 20
Est ce qu'il serait possible de choisir le nombre "i"
Merci d'avance
Bobjazz

 

[Spitnolan08]

Re : Impression d'une suite de page

Re
En modifiant et si j'ai bien compris :

Sub MacroImp()
Dim N as integer, i as integer 

N = MsgBox("Saisir le nombre de pages du document :")
For i = 1 To N
    With ActiveSheet.PageSetup
        .LeftHeader = i & "/20"
    End With

    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1
Next
End Sub

Cordialement

 

[jeanpierre]

Re : Impression d'une suite de page

Re,

Avec, avant le début de la boucle quelque chose comme cela :

J = InputBox("Nombre de page ?")

et ensuite for I= 1 to J

Pas testé.


Re : encore à la bourre

 

[bobjazz]

Re : Impression d'une suite de page

Bonjour Spitnolan08 et jeanpierre

Je vous remercie, avec vos derniers conseils, je suis arrivé au résultat.

Code:
Sub MacroImp()
Dim N As Integer, i As Integer

N = MsgBox("Saisir le nombre de pages du document :")
J = InputBox("Nombre de page ?")

For i = 1 To J
With ActiveSheet.PageSetup
.RightHeader = "N°" & i
End With

ActiveWindow.SelectedSheets.PrintOut From:=1, to:=1
Next
End Sub

Merci au Forum

bobjazz