page x / y en VBA

[Ilino]

Bonjour Forum,

je souhaiterai avoir poser mon souci le suivant :
Y a t il un code en VBA pour que dans une celluel ( exemple H7), j'obtienne:

page x / y

Ou x est la page courante et y le nombre total de page suivantes ( non vide) ...

Grazie and Merci d'avance

 

[Ilino]

Re : page x / y en VBA

Bonjour Forum
PUIS JE AVOIR VOTRE AIDE ?
GRAZIE

Bonjour Forum,

je souhaiterai avoir poser mon souci le suivant :
Y a t il un code en VBA pour que dans une celluel ( exemple H7), j'obtienne:

page x / y

Ou x est la page courante et y le nombre total de page suivantes ( non vide) ...

Grazie and Merci d'avance

 

[Ilino]

Re : page x / y en VBA

Re Bonsoir Forum
est ce que mon souci est explicite?
A+

 

[Ilino]

Re : page x / y en VBA

Bonsoir Forum
je souhaiterai poser mon souci le suivant :
Y a t il un code en VBA pour que j'obtienne dans une cellule ( exemple H7), "nombre de page x / y"

Ou x est la page courante et y le nombre total de page suivantes ( non vide) ...

Grazie and Merci d'avance

 

[néné06]

Re : page x / y en VBA

Bonjour Ilino,

Je pense que tu devrais nous faire parvenir une pièce jointe avec les explications dessus pour mieux saisir ce problème.

Cordialement

René

 

[Misange]

Re : page x / y en VBA

Bonjour

tu peux t'inspirer de ceci
Ce lien n'existe plus
combiné avec cela
Ce lien n'existe plus
ou
Ce lien n'existe plus

avant on pouvait faire cela avec le gestionnaire de rapport il me semble mais cet outil n'est plus dispo depuis au moins 2003.

 

[Ilino]

Re : page x / y en VBA

Bonjour Merci pour les réponses
@ René : ci joint le fichier
@ Misange : merci pour les réponse mais j'ai constaté que mon souci il est un peu compliqué ?????

 

[job75]

Re : page x / y en VBA

Bonjour Ilino, néné06, Misange 🙂

Dans le fichier joint j'ai défini :

- la zone d'impression A:H et l'impression des titres sur 1:3

- les sauts de pages sur les lignes 24-44-64-84-104

Dans le code de la feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim n As Integer, i As Integer
n = Me.HPageBreaks.Count + 1
[H7] = "Page 1 sur " & n
For i = 1 To n - 1
  Range("H" & Me.HPageBreaks(i).Location.Row + 3) = "Page " & i + 1 & " sur " & n
Next
End Sub

La macro renseigne les cellules H7-H27-H47-H67-H87-H107.

Fichier joint.

A+

 

[Ilino]

Re : page x / y en VBA

Bonjour JOB
GRAZIE pour la réponse; mais si vous permettez mon souci dans le post #4 est si la page suivante est vide ( c a d 2eme) donc le nbr de page dans la cellule est 1/1.

Bonsoir Forum
je souhaiterai poser mon souci le suivant :
Y a t il un code en VBA pour que j'obtienne dans une cellule ( exemple H7), "nombre de page x / y" 

Ou x est la page courante et y le nombre total de [B]page suivantes ( non vide)[/B] ...

 

[job75]

Re : page x / y en VBA

Re,

Ton fichier du post #7 est incompréhensible, c'est pourquoi je l'ai complété.

Joins un fichier avec plusieurs "pages" et le résultat que tu souhaites pour que l'on comprenne.

A+

 

[Ilino]

Re : page x / y en VBA

Bonsoir JOB
Merci quand même pour la réponse, mon objectif est de créer une note de correspondance par excel., donc si le contenu du texte déborde la première feuille (X) je souhaiterai par le code affichera automatiquement dans la cellule H7 seulement de la première feuille par exemple 1/2 et ainsi de suite si le contenu débordera la deuxième feuille on aura dans la cellule H7 de la 1ere Feuille 1/3.
GRAZIE MAITRE

 

[job75]

Re : page x / y en VBA

Bonjour Ilino, le forum,

S'il n'y a que la cellule H7 à renseigner tu peux utiliser :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim t As String
t = "Page 1/" & Me.HPageBreaks.Count + 1
If [H7] <> t Then [H7] = t
End Sub

Fichier (2) où j'affiche les sauts de pages pour vérifier.

Si ça ne te convient pas, à toi de voir, tu as toutes les billes.

A+

 

[Ilino]

Re : page x / y en VBA

GRAZIE JOB
c'est nickel😀
Souci Résolu
A+