XL 2016 Window.PointsToScreenPixelsX vs Pane.PointsToScreenPixelsX

'----------------------------------------------------
'Pane de l'objet dont le parent est la feuille active
'- Visible = True, l'objet doit être visible
'- Visible = False, l'objet peut être visible ou non
'----------------------------------------------------
Private Function ObjectPane(Obj As Object, Optional Visible As Boolean = True) As Pane
    Dim Rng As Range
    Dim i As Integer
    Dim Pan As Pane
    Dim PosRow As Integer
    Dim PosColumn As Integer
 
    'Le Parent de l'objet n'est pas la feuille
    If Not Obj.Parent Is ActiveSheet Then Exit Function
   
    With ActiveWindow
   
       'Selon le type d'objet
       Select Case True
           Case TypeOf Obj Is Range
               Set Rng = Obj
   
           Case Else
               Set Rng = Obj.TopLeftCell
       End Select
 
        '--------------------------------
        'L'objet peut être visible ou non
        '--------------------------------
        If Not Visible Then
            If .SplitRow = 0 Then
                PosRow = 1
            Else
                If Rng.Row <= .SplitRow Then PosRow = 2 Else PosRow = 3
            End If
   
            If .SplitColumn = 0 Then
                PosColumn = 1
            Else
                If Rng.Column <= .SplitColumn Then PosColumn = 4 Else PosColumn = 5
            End If

            Select Case PosRow * PosColumn
                Case 1, 2, 4, 8
                    Set Pan = .Panes(1)
                Case 3, 5, 10
                    Set Pan = .Panes(2)
                Case 12
                    Set Pan = .Panes(3)
                Case 15
                    Set Pan = .Panes(4)
            End Select
 
        '-------------------------
        'L'objet doit être visible
        '-------------------------
        Else
            'Recherche du Pane de l'objet si visible
            For i = 1 To .Panes.Count
                If Not Intersect(Rng, .Panes(i).VisibleRange) Is Nothing Then Exit For
            Next i
            If i <= .Panes.Count Then Set Pan = .Panes(i)
        End If
    End With
 
    'Return Value
    Set ObjectPane = Pan
End Function

 Case Else
               Set Rng = Obj.TopLeftCell
       End Select

Public Function QuelPane(ByVal T As Range, Optional ByVal ActivationFeuil As Boolean = False) As Pane
Dim LngNbPanes As Long, LngPane As Long
 
    If ActiveWindow.VisibleRange.Worksheet.Parent.Name = T.Worksheet.Parent.Name Then
        If ActiveWindow.ActiveSheet.Name = T.Worksheet.Name Or ActivationFeuil Then
            T.Worksheet.Activate
            LngNbPanes = ActiveWindow.Panes.Count
            For LngPane = 1 To LngNbPanes
                With ActiveWindow.Panes(LngPane)
                    If Not Intersect(T, .VisibleRange) Is Nothing Then
                        Set QuelPane = ActiveWindow.Panes(LngPane)
                        Exit Function
                    End If
                End With
            Next
        End If
    End If
    Set QuelPane = Nothing
End Function

'----------------------------------------------------
'Pane de l'objet dont le parent est la feuille active
'Hidden = False : l'objet ne doit pas être dans la partie cachée (scrollée) du Pane
'Visible = True : l'objet doit être dans le VisibleRange du Pane
'----------------------------------------------------
Private Function ObjectPane(Obj As Object, _
                            Optional Hidden As Boolean = False, _
                            Optional Visible As Boolean = False) As Pane
    Dim Rng As Range
    Dim i As Integer
    Dim Pan As Pane
    Dim PosRow As Integer
    Dim PosColumn As Integer
 
    'Le Parent de l'objet n'est pas la feuille
    If Not Obj.Parent Is ActiveSheet Then Exit Function
  
    With ActiveWindow
        'Selon le type d'objet
        Select Case True
            Case TypeOf Obj Is Range
               Set Rng = Obj
  
            Case Else
                Set Rng = Obj.TopLeftCell
        End Select
 
        '---------------
        'Pane de l'Objet
        '---------------
        If .SplitRow = 0 Then
            PosRow = 1
        Else
            If Rng.Row <= .SplitRow Then PosRow = 2 Else PosRow = 3
        End If

        If .SplitColumn = 0 Then
            PosColumn = 1
        Else
            If Rng.Column <= .SplitColumn Then PosColumn = 4 Else PosColumn = 5
        End If

        Select Case PosRow * PosColumn
            Case 1, 2, 4, 8
                Set Pan = .Panes(1)
            Case 3, 5, 10
                Set Pan = .Panes(2)
            Case 12
                Set Pan = .Panes(3)
            Case 15
                Set Pan = .Panes(4)
        End Select

        '------------------------------------------------
        'L'Objet doit être dans la partie visible du Pane
        '------------------------------------------------
        If Not Hidden Then
            If Rng.Row < Pan.ScrollRow _
            Or Rng.Column < Pan.ScrollColumn Then
                Set Pan = Nothing
            End If
        End If
        
        '----------------------------------------------
        'L'Objet doit être dans le VisibleRange du Pane
        '----------------------------------------------
        If Visible Then
            If Intersect(Rng, Pan.VisibleRange) Is Nothing Then
                Set Pan = Nothing
            End If
        End If
    End With
 
    'Return Value
    Set ObjectPane = Pan
End Function

Function PtoPx()
  With CreateObject("WScript.Shell"): PtoPx = .RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\ThemeManager\LastLoadedDPI") / 72: End With
 End Function
 
Sub test()
MsgBox PtoPx
End Sub

Function GetPaneOfObject(obj As Object) As Pane
   'patricktoulon
   Dim ob
    If TypeName(obj) <> "Range" Then Set ob = obj.TopLeftCell Else set ob = obj
    With ActiveWindow
        For I = 1 To .Panes.Count
            If Not Intersect(.Panes(I).VisibleRange, ob) Is Nothing Then Set GetPaneOfObject = .Panes(I)
        Next
    End With
End Function