Problème récupération numéro page VBA
sisu88
Messages postés
37
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'aurais besoin de récupérer le numéro de page dans des cellules excel. J'ai trouvé cette programmation :
Function NumeroPage() As Variant
Dim VPC As Integer, HPC As Integer
Dim VPB As VPageBreak, HPB As HPageBreak
Dim Ws As Worksheet
Dim Col As Integer, Ligne As Long
Set Ws = Application.Caller.Worksheet
Ligne = Application.Caller.Row
Col = Application.Caller.Column
If Ws.PageSetup.Order = xlDownThenOver Then
HPC = Ws.HPageBreaks.Count + 1
VPC = 1
Else
VPC = Ws.VPageBreaks.Count + 1
HPC = 1
End If
NumeroPage = 1
For Each VPB In Ws.VPageBreaks
If VPB.Location.Column > Col Then Exit For
NumeroPage = NumeroPage + HPC
Next VPB
For Each HPB In Ws.HPageBreaks
If HPB.Location.Row > Ligne Then Exit For
NumeroPage = NumeroPage + VPC
Next HPB
End Function
J'ai une erreur 424 "Objet Requis". Quelqu'un aurait-il une solution ?
En vous remerciant !!
J'aurais besoin de récupérer le numéro de page dans des cellules excel. J'ai trouvé cette programmation :
Function NumeroPage() As Variant
Dim VPC As Integer, HPC As Integer
Dim VPB As VPageBreak, HPB As HPageBreak
Dim Ws As Worksheet
Dim Col As Integer, Ligne As Long
Set Ws = Application.Caller.Worksheet
Ligne = Application.Caller.Row
Col = Application.Caller.Column
If Ws.PageSetup.Order = xlDownThenOver Then
HPC = Ws.HPageBreaks.Count + 1
VPC = 1
Else
VPC = Ws.VPageBreaks.Count + 1
HPC = 1
End If
NumeroPage = 1
For Each VPB In Ws.VPageBreaks
If VPB.Location.Column > Col Then Exit For
NumeroPage = NumeroPage + HPC
Next VPB
For Each HPB In Ws.HPageBreaks
If HPB.Location.Row > Ligne Then Exit For
NumeroPage = NumeroPage + VPC
Next HPB
End Function
J'ai une erreur 424 "Objet Requis". Quelqu'un aurait-il une solution ?
En vous remerciant !!
A voir également:
- Problème récupération numéro page VBA
- Numero prive - Guide
- Supprimer page word - Guide
- Numéro père noël whatsapp - Accueil - Messagerie instantanée
- Numéro de page word - Guide
- Numéro de page powerpoint - Guide
