Créer une fonction NumPage

Bonjour à tous,

J'ai Excel 2016

Je souhaite créer une fonction telle que :

Function NumPage (cellule as range) as integer

End Function

Après je rentrerai ma formule dans la cellule :

=NumPage(je mets ma cellule ici)

Et cela me renvoi le numéro de page d'impression

Merci beaucoup pour votre aide & Bonne journée

Bonjour,

Function numPage(Cellule As Range) As Integer
    ' Laurent Longres
    Dim VPC As Integer, HPC As Integer
    Dim VPB As VPageBreak, HPB As HPageBreak
    Dim Ligne As Long, Col As Integer
    With Cellule.Worksheet
        If .PageSetup.Order = xlDownThenOver Then
            HPC = .HPageBreaks.Count + 1
            VPC = 1
        Else
            VPC = .VPageBreaks.Count + 1
            HPC = 1
        End If
        NUMPAGE = 1
        Col = Cellule.Column
        For Each VPB In .VPageBreaks
            If VPB.Location.Column > Col Then Exit For
            NUMPAGE = NUMPAGE + HPC
        Next VPB
        Ligne = Cellule.Row
        For Each HPB In .HPageBreaks
            If HPB.Location.Row > Ligne Then Exit For
            NUMPAGE = NUMPAGE + VPC
        Next HPB
    End With
End Function

eric

Merci pour l'aide j'avais déjà vu ce code

J'ai essayé, cette fonction ne marche pas

cela me dit #VALEUR

Effectivement, avec qq tests j'ai ressorti l'erreur.

Malheureusement Laurent Longres n'y est pour rien.

C'est HPageBreaks qui semble bugué maintenant.

Il annonce .Count=2 mais il n'y a aucun item dans la collection ?!?

Pour l'instant je ne vois pas trop ce qu'on pourrait faire...

eric

ah mince merci quand même !

Si jamais quelqu'un autre avait une idée je suis preneur XD