N° de page dans cellule

[VB@D]

Bonsoir,

Je voudrais savoir si il est possible de récupérer le N° de page dans une cellule.

Voila dans mise en page/ feuille, j'ai choisi des ligne a répéter pour l'impression et dans une cellule je voudrais le N° de page/Nombre total de page

Je sais pas si c'est possible

@+

VB@D

 

[vincent]

Salut

si j'ai bien compris ta question ce code devrait faire l'affaire

Option Explicit

Sub test()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Cells(1, 1) = i & "/" & Sheets.Count
Next
End Sub

il faut juste que la cellule A1 de chaque feuille soit formaté en texte

A plus

@+Vincent

 

[VB@D]

Salut Vincent et merci de m'aider

Mais ta macro ne doit pas correspondre a ce que je voulais faire

En fait j'ai qu'une seule feuille dans le classeur. (ex: feuil1)

Mais lorsque j'imprime je peux avoir plusieurs pages

Dans mise en page feuille, j'ai choisi les 5 premieres lignes du tableau a repeter

Donc quand j'imprime et qu'il y a plusieur page les 5 premieres lignes sont répéter a chaque fois en haut de la page
Moi j'aimerais que dans une cellule de ces 5 premmiere ligne le n°de page/page total s'affiche mais je sais pas si c'est possible car ca veur dire que la cellule qui affiche 1/2 doit aussi afficher 2/2

En tous cas merci de ta macro car meme si elle ne me sert pas peut etre elle servira a d'autre.

 

[vincent]

Re

ce coup ci je pense avoir tout compris lol !!!

alors je ne sais pas si il y a plus simple sinon voila en attendant

Option Explicit
Sub imprimespe()
Dim rang As Long
Dim total As Integer, i As Integer
Do
total = total + 1
Loop Until Cells(5 + total * 50, 1) = "" 'le fois 50 depend de ton imprimante est de ta mise en page
For i = 1 To total - 1
Cells(1, 1) = i & "/" & total - 1
rang = 5 + i * 50
Range("a1:g" & rang).Select 'g depend aussi de ton imprimante...
Selection.PrintPreview 'remplace par print une fois que tu auras ajuster les paramétres
Rows(Right(Str(rang - 49 * i), Len(Str(rang)) - 1) & ":" & Right(Str(rang), Len(Str(rang)) - 1)).Hidden = True
Next
Rows.Hidden = False
End Sub

Voilà si tu veux plus d'explications pas de pb

A plus

@+Vincent

 

[VB@D]

Merci Vincent

Je regarde ton code et je te tiens au courant

Encore merci

@ bientot sur le forum

VB@D

 

[Vériland]

Bonjour VB@D, Vincent et toi le Forum

j'sais pas si je suis bien ta question, mais ton problème de numéro de page me fait penser à la réponse que j'avais donné à JLH sur Lien supprimé...

regarde le deuxième fichier p'têt qu'il peut correspondre...

 

[VB@D]

Salut Vériland,

Merci de m'aider mais mois je suis dans un cas un petit peu différent

En fait j'explique

Dans Fichier/mise en page/ feuille, j'ai choisi de répéter les 5 premieres lignes de mon tableau sur chaques pages qui seront imprimées

Mais j'aimerais qu'une cellule de ces 5 premieres ligne change sur chaques pages et mindique le N° de page/total

Je sais qu'on peut le faire en en tete ou pied de page mais peut on l' affecter dans une cellule répeter a chaque page.

J'espere que j'ai été clair et que vous réussirez a me lire

En attendant je viens de tester la macro de Vincent

Cette macro ne bug pas mais m'indique pas les n° de page
Je doit mal mis prendre

comment définir les 50 et le g?

Bon je retourne regarder ca

@+

VB@D

 

[vincent]

Re le fil

verifie bien que la cellule A1 est en format texte ensuite supprime la mise en page 'Dans mise en page feuille, j'ai choisi les 5 premieres lignes du tableau a repeter' que tu as faites.


A plus

@+Vincent

 

[vincent]

Re

j'oubliais pour definir '50' et 'g' fais 'aperçu avant impression' normalement tu as des pointillés qui délimite la zone d'impression .(en ce qui me concerne pour tester j'ai mis un 'fin de page x' a chaque fin de zone d'impression).

Voilà

@+Vincent

 

[VB@D]

Merci vincent j'ai réussi a utilser le code dans un fichier test

Je vais maintenant tenter de le mettre dans mon prog

Question: Dans le cas ici je suis obligé d'imprimer tout de suite.
Est-il possible d'attendre avant d'imprimer et de lancer l'impression grace a fichier imprimer(normalement quoi) ?

Sinon je ferais un bouton imprimer

Salut

VB@D

 

[vincent]

Re

je pense que le plus simple sera effectivement de refaire un bouton imprimer.

sinon tu peux lorsque tu ouvres ton fichier affecter ta macro au bouton imprimer de la barre systeme et la remettre à zéro quant tu fermes ton fichier.

A voir


@+Vincent

 

[VB@D]

Re

Ok merci Vincent

@+

VB@D