XL 2016 affichage userform avec 2 ou + ecrans

'************************************************************************************************************************************
'fonction pointToPixel
Function Ppx()
' collection  Fonctions avec PointsToScrenPixels(X Y) / Activewindow / Activepane / panes(1 to 4) / visiblerange etc...
' détermine le coefficient pointToPixsel
' version 2.0
' date février 2022
' patricktoulon
' Code  simplifié
' renvoie un double
' version invariable meme avec le zoom
  Dim Z#
  With ActiveWindow
        Z = .Zoom / 100
        Ppx = ((.Panes(1).PointsToScreenPixelsY(Cells.Width) - .Panes(1).PointsToScreenPixelsY(0)) / Cells.Width) / Z
    End With
   ' [a1] = Ppx
End Function

'*********************************************************************************************************************************
'determine la pane ou se trouve la shape cliquée
'Function GetpaneObjectClické(obj As Object)
Function ObjectPane(obj As Object, Optional Visible As Boolean = True) As Pane
' collection  Fonctions avec PointsToScrenPixels(X Y) / Activewindow / Activepane / panes(1 to 4) / visiblerange etc...
' récupérer la pane dans la quelle l'object a été cliqué
' version 2.0
' date février 2022
' patricktoulon
' Code  simplifié
' renvoie un object Pane
    Dim I&, Qx#, Qy#, A&, Z#, R As Range
    Dim pos As PointAPI
    'recupe les point Xy du curseur (la souris) dans la variable type pos
    'avec l 'api (GetCursorPos pos)
    With ActiveWindow
        'IF le .panes.count>1 then
        For I = 1 To 2
            'set R= le range visible de  la pane(I) de la boucle
            'Qx= le left de r  par  la pane(i).PointsToScreenPixelsX
            'Qy= le top de r  par  la pane(i).PointsToScreenPixelsy
            'si la position X du curseur > qx then a =a+1
        Next

        'If le .Panes.Count > 2 Then
        'set R = le range visible de la panes(3)
        'Qx= le left de r  par  panes(3).PointsToScreenPixelsX
        'Qy= le top de r  par  panes(3).PointsToScreenPixelsy
        'si la position Y du curseur > qy then a =a+2

    End If
Else
    A = 1
End If
'Set GetpaneObjectClické = .Panes(A)
Set ObjectPane = .Panes(A)
End With
End Function

Sub testtruc()
    With ActiveWindow
        .Zoom = 100
        For I = 50 To 300 Step 5
            A = A + 1
           .Zoom = I
           Cells(A, 1) = "Zoom:" & I
            Cells(A, 2) = Ppx
            Application.Goto [A1]
        Application.Wait Now + 0.00001
        Next
        .Zoom = 100
    End With
End Sub

'************************************************************************************************************************************
'fonction pointToPixel
Function Ppx()
' collection  Fonctions avec PointsToScrenPixels(X Y) / Activewindow / Activepane / panes(1 to 4) / visiblerange etc...
' détermine le coefficient pointToPixsel
' version 2.0
' date février 2022
' patricktoulon
' Code  simplifié
' renvoie un double
' version invariable meme avec le zoom
  Dim Z#
  With ActiveWindow
        Z = .Zoom / 100
        Ppx = ((.Panes(1).PointsToScreenPixelsY(Cells.Width) - .Panes(1).PointsToScreenPixelsY(0)) / Cells.Width) / Z
    End With
 End Function