Bonjour,
Comment savoir =E0 quelle page de la feuille je me trouve ?
Sans passer par print preview.
Word l'affiche en bas de l'=E9cran.
Ceci est-il pr=E9vu dans Excel ?
Merci.
Andr=E9
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour André,
Voici une fonction élaboré par Laurent Longré qui te permet d'identifier à quelle page appartient une cellule donnée de la feuille.
'------------------------------- Function NumeroPage(Cellule As Range) As Integer
Dim VPC As Integer, HPC As Integer Dim VPB As VPageBreak, HPB As HPageBreak Dim Wksht As Worksheet Dim Col As Integer, Ligne As Long
Set Wksht = Cellule.Worksheet Ligne = Cellule.Row Col = Cellule.Column If Wksht.PageSetup.Order = xlDownThenOver Then HPC = Wksht.HPageBreaks.Count + 1 VPC = 1 Else VPC = Wksht.VPageBreaks.Count + 1 HPC = 1 End If NumeroPage = 1 For Each VPB In Wksht.VPageBreaks If VPB.Location.Column > Col Then Exit For NumeroPage = NumeroPage + HPC Next VPB For Each HPB In Wksht.HPageBreaks If HPB.Location.Row > Ligne Then Exit For NumeroPage = NumeroPage + VPC Next HPB
End Function '-------------------------------
Salutations!
"Andre" a écrit dans le message de news:065401c3c937$97423a30$ Bonjour, Comment savoir à quelle page de la feuille je me trouve ? Sans passer par print preview. Word l'affiche en bas de l'écran. Ceci est-il prévu dans Excel ? Merci. André
Bonjour André,
Voici une fonction élaboré par Laurent Longré qui te permet d'identifier à quelle page appartient une cellule donnée de la
feuille.
'-------------------------------
Function NumeroPage(Cellule As Range) As Integer
Dim VPC As Integer, HPC As Integer
Dim VPB As VPageBreak, HPB As HPageBreak
Dim Wksht As Worksheet
Dim Col As Integer, Ligne As Long
Set Wksht = Cellule.Worksheet
Ligne = Cellule.Row
Col = Cellule.Column
If Wksht.PageSetup.Order = xlDownThenOver Then
HPC = Wksht.HPageBreaks.Count + 1
VPC = 1
Else
VPC = Wksht.VPageBreaks.Count + 1
HPC = 1
End If
NumeroPage = 1
For Each VPB In Wksht.VPageBreaks
If VPB.Location.Column > Col Then Exit For
NumeroPage = NumeroPage + HPC
Next VPB
For Each HPB In Wksht.HPageBreaks
If HPB.Location.Row > Ligne Then Exit For
NumeroPage = NumeroPage + VPC
Next HPB
End Function
'-------------------------------
Salutations!
"Andre" <ma71159@hotmail.com> a écrit dans le message de news:065401c3c937$97423a30$a501280a@phx.gbl...
Bonjour,
Comment savoir à quelle page de la feuille je me trouve ?
Sans passer par print preview.
Word l'affiche en bas de l'écran.
Ceci est-il prévu dans Excel ?
Merci.
André
Voici une fonction élaboré par Laurent Longré qui te permet d'identifier à quelle page appartient une cellule donnée de la feuille.
'------------------------------- Function NumeroPage(Cellule As Range) As Integer
Dim VPC As Integer, HPC As Integer Dim VPB As VPageBreak, HPB As HPageBreak Dim Wksht As Worksheet Dim Col As Integer, Ligne As Long
Set Wksht = Cellule.Worksheet Ligne = Cellule.Row Col = Cellule.Column If Wksht.PageSetup.Order = xlDownThenOver Then HPC = Wksht.HPageBreaks.Count + 1 VPC = 1 Else VPC = Wksht.VPageBreaks.Count + 1 HPC = 1 End If NumeroPage = 1 For Each VPB In Wksht.VPageBreaks If VPB.Location.Column > Col Then Exit For NumeroPage = NumeroPage + HPC Next VPB For Each HPB In Wksht.HPageBreaks If HPB.Location.Row > Ligne Then Exit For NumeroPage = NumeroPage + VPC Next HPB
End Function '-------------------------------
Salutations!
"Andre" a écrit dans le message de news:065401c3c937$97423a30$ Bonjour, Comment savoir à quelle page de la feuille je me trouve ? Sans passer par print preview. Word l'affiche en bas de l'écran. Ceci est-il prévu dans Excel ? Merci. André
Andre
Merci ... et bonnes fêtes
-----Message d'origine----- Bonjour André,
Voici une fonction élaboré par Laurent Longré qui te permet d'identifier à quelle page appartient une cellule
donnée de la
feuille.
'------------------------------- Function NumeroPage(Cellule As Range) As Integer
Dim VPC As Integer, HPC As Integer Dim VPB As VPageBreak, HPB As HPageBreak Dim Wksht As Worksheet Dim Col As Integer, Ligne As Long
Set Wksht = Cellule.Worksheet Ligne = Cellule.Row Col = Cellule.Column If Wksht.PageSetup.Order = xlDownThenOver Then HPC = Wksht.HPageBreaks.Count + 1 VPC = 1 Else VPC = Wksht.VPageBreaks.Count + 1 HPC = 1 End If NumeroPage = 1 For Each VPB In Wksht.VPageBreaks If VPB.Location.Column > Col Then Exit For NumeroPage = NumeroPage + HPC Next VPB For Each HPB In Wksht.HPageBreaks If HPB.Location.Row > Ligne Then Exit For NumeroPage = NumeroPage + VPC Next HPB
End Function '-------------------------------
Salutations!
"Andre" a écrit dans le message de news:065401c3c937$97423a30$
Bonjour, Comment savoir à quelle page de la feuille je me trouve ? Sans passer par print preview. Word l'affiche en bas de l'écran. Ceci est-il prévu dans Excel ? Merci. André
.
Merci ... et bonnes fêtes
-----Message d'origine-----
Bonjour André,
Voici une fonction élaboré par Laurent Longré qui te
permet d'identifier à quelle page appartient une cellule
donnée de la
feuille.
'-------------------------------
Function NumeroPage(Cellule As Range) As Integer
Dim VPC As Integer, HPC As Integer
Dim VPB As VPageBreak, HPB As HPageBreak
Dim Wksht As Worksheet
Dim Col As Integer, Ligne As Long
Set Wksht = Cellule.Worksheet
Ligne = Cellule.Row
Col = Cellule.Column
If Wksht.PageSetup.Order = xlDownThenOver Then
HPC = Wksht.HPageBreaks.Count + 1
VPC = 1
Else
VPC = Wksht.VPageBreaks.Count + 1
HPC = 1
End If
NumeroPage = 1
For Each VPB In Wksht.VPageBreaks
If VPB.Location.Column > Col Then Exit For
NumeroPage = NumeroPage + HPC
Next VPB
For Each HPB In Wksht.HPageBreaks
If HPB.Location.Row > Ligne Then Exit For
NumeroPage = NumeroPage + VPC
Next HPB
End Function
'-------------------------------
Salutations!
"Andre" <ma71159@hotmail.com> a écrit dans le message de
news:065401c3c937$97423a30$a501280a@phx.gbl...
Bonjour,
Comment savoir à quelle page de la feuille je me trouve ?
Sans passer par print preview.
Word l'affiche en bas de l'écran.
Ceci est-il prévu dans Excel ?
Merci.
André
Voici une fonction élaboré par Laurent Longré qui te permet d'identifier à quelle page appartient une cellule
donnée de la
feuille.
'------------------------------- Function NumeroPage(Cellule As Range) As Integer
Dim VPC As Integer, HPC As Integer Dim VPB As VPageBreak, HPB As HPageBreak Dim Wksht As Worksheet Dim Col As Integer, Ligne As Long
Set Wksht = Cellule.Worksheet Ligne = Cellule.Row Col = Cellule.Column If Wksht.PageSetup.Order = xlDownThenOver Then HPC = Wksht.HPageBreaks.Count + 1 VPC = 1 Else VPC = Wksht.VPageBreaks.Count + 1 HPC = 1 End If NumeroPage = 1 For Each VPB In Wksht.VPageBreaks If VPB.Location.Column > Col Then Exit For NumeroPage = NumeroPage + HPC Next VPB For Each HPB In Wksht.HPageBreaks If HPB.Location.Row > Ligne Then Exit For NumeroPage = NumeroPage + VPC Next HPB
End Function '-------------------------------
Salutations!
"Andre" a écrit dans le message de news:065401c3c937$97423a30$
Bonjour, Comment savoir à quelle page de la feuille je me trouve ? Sans passer par print preview. Word l'affiche en bas de l'écran. Ceci est-il prévu dans Excel ? Merci. André
