Numéroter bas de page

[Saumon80]

Bonjour

Je souhaiterai savoir comment numéroter un bas de page Excel en mode paysage et placer cette numérotation à un endroit précis de la feuille et pouvoir mettre en forme cette numérotation
Je souhaite numéroter la même feuille mais qui quand je l'imprime serait notifiée 1 puis 2 puis 3 etc...

Merci d'avance

 

[fredl]

Re : Numéroter bas de page

Bonjour,
le resultat attendu dans un fichier serait souhaitable...
cdt
Frédéric

 

[Saumon80]

Re : Numéroter bas de page

Bonjour

Oui alors voici fichier excel sur lequel je souhaite placer la numérotation,je souhaite la placer comme sur l'image



C'est à dire en bas à droite de remise en état dans l'angle bas droit de la feuille

Merci d'avance

 

[Guest]

Re : Numéroter bas de page

Bonjour,

Dans l'onglet 'mise en page' cliquer sur la petite flèche en bas à droite (en jaune sur l'image)
Ce lien n'existe plus
pour afficher

Ce lien n'existe plus

Sur cette fenêtre cliquer sur le bouton 'Pied de page personnalisé...'
Ce lien n'existe plus
Sélectionner la partie droite, puis cliquer sur le bouton en jaune sur l'image ci-dessus.
Sélectionner &[page] puis cliquer sur le bouton 'A' à gauche du bouton en jaune pour mettre en forme.

Avec un fichier .xlsx il y a plus de possibilités de mise en forme.

A+

 

[Saumon80]

Re : Numéroter bas de page

Merci !
Donc la j'ai fait ce que tu m'a dit et c'est bon pour le numéro de page mais quand j'imprime il n'y a que numéro 1 qui s'affiche or je voudrait imprimer une centaine d'exemplaire de cette meme feuille mais que lorsque j'imprime cela imprime du numéro 1 à 100

 

[chris]

Re : Numéroter bas de page

Bonjour

Cela ne peut être fait que par VBA : boucle qui

• modifie la valeur en pied de page,
• lance l'impression d'une page

Exemple en précisant en H1 le début de séquence et en H2 la fin

Sub Imprime()
    With Sheets("Feuil1")
        For i = .Range("H1").Value To .Range("H2").Value
            .PageSetup.RightFooter = i
            ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
        Next i
    End With
End Sub

 

[Guest]

Re : Numéroter bas de page

Re,

D'où la nécessité d'être aussi clair et précis que possible dès le premier post!


donc pour ton problème je te propose la macro ci-dessous qui définit une plage d'impression et lance 100 fois l'impression en numérotant en cellule Y34.

Tu peux donc enlever la numérotation de page précédente.

Fais des tests en changeant 100 par 1 ou 2.
La macro reprend la valeur de Y34 pour lui ajouter 1 à chaque impression.
S'il n'y a rien en Y34 elle reprendra donc à 1
Code VB:
Sub Imprimer()
Dim i As Integer
With ThisWorkbook.Sheets("Carnet charriot")
.PageSetup.PrintArea = .Range("A1:AA34").address
For i = 1 To 100
.Range("Y34") =.Range("Y34")+1
Next i
.print
End With
End Sub




A+

 

[chris]

Re : Numéroter bas de page

Bonjour

Oups, j'ai omis de saluer Hasco à qui je souhaite de joyeuses fêtes 😱.

 

[Saumon80]

Re : Numéroter bas de page

D'où la nécessité d'être aussi clair et précis que possible dès le premier post!

Autant pour moi c'est vrai que c'était un peu flou

Merci Beaucoup à cris et hasco pour les codes VBA

J'ai commencé avec le code d'hasco

Sub Imprimer()
Dim i As Integer
With ThisWorkbook.Sheets("Carnet charriot")
.PageSetup.PrintArea = .Range("A1:AA34").address
For i = 1 To 100
.Range("Y34") =.Range("Y34")+1
Next i
.print
End With
End Sub

Mais quand je lance la macro je rcoit ce message d'erreur



L'erreur concernen le .print

Comment puis je corriger cela ?

merci d avance

 

[natorp]

Re : Numéroter bas de page

Bjr Saumon, Fredl, Chris et Hasco

Remplacer .Print par .PrintOut

Cordialement, Gérard

 

[Saumon80]

Re : Numéroter bas de page

Bonjour Natorp

Merci l'impression se lance et je n'ai plus le message d'erreur mais cela quand j'imprime par exemple 5 pages en réglant
For i = 1 To 5

Cela ne m'imprime qu'une page avec le chiffre 6 au lieu de m'imprimer 5 pages allant de 1 à 5

 

[chris]

Re : Numéroter bas de page

Re

Mon code adapté à ton classeur avec les bornes en AE1 et AE2

Sub Imprime()
    With Sheets("Carnet charriot")
        For i = .Range("AE1").Value To .Range("AE2").Value
            .PageSetup.RightFooter = i
            ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
        Next i
    End With
End Sub

 

[natorp]

Re : Numéroter bas de page

Re

remplacer :
Next i
.PrintOut

par :
.PrintOut
Next i

Cordialement, Gérard

 

[Saumon80]

Re : Numéroter bas de page

Super,merci beaucoup chris et Natorp ainsi que hasco les 2 codes fonctionnent trés bien
Juste une question est ce qu'il est possible de mettre en forme la numérotation ou non?

 

[natorp]

Re : Numéroter bas de page

Re,

en ce qui concerne le code de Hasco, il suffit d'agir sur la mise en forme de la cellule Y34

Cordialement, Gérard