XL 2016 Position userform dans coin supérieur gauche de cellule 2016 et+

En fait, lorsque les Panes ne sont pas figés, le challenge serait de déterminer tous les Panes (4 potentielement) dans lesquels l'objet se trouve l'objet, visible ou pas, en fonction des Pane(x).ScrollRow et ScrollColumn.

Cliquez pour agrandir...

Dudu2 à dit:

Ton idée d'aller chercher dans les VisibleRange des Panes et intéressante pour le cas les Panes ne sont pas figées. En l'utilisant, voilà ce que je te propose:
1 - Déterminer le Pane d'origine de l'objet.
2 - S'il n'y est pas visible, à chercher un autre Pane où il y serait éventuellement visible.

Ça donne la priorité au Pane d'origine (même si l'objet est visible dans plusieurs Panes) et s'il n'y est pas visible on va chercher le 1er Pane où il est visible.

VB:

'-----------------------------
'Pane of an ActiveSheet Object
'-----------------------------
Private Function ObjectPane(Object As Object) As Pane
    Dim Rng As Range, PaneIndex%, i%, pr%, pc%
 
    'ActiveSheet is not the Object Parent
    If Not ActiveSheet Is Object.Parent Then Exit Function
 
    With ActiveWindow
        If TypeOf Object Is Range Then Set Rng = Object Else Set Rng = Object.TopLeftCell
        If .SplitRow = 0 Then pr = 1 Else If Rng.Row <= .SplitRow Then pr = 2 Else pr = 3
        If .SplitColumn = 0 Then pc = 1 Else If Rng.Column <= .SplitColumn Then pc = 4 Else pc = 5
     
        'Original Pane index detection
        Select Case pr * pc
            Case 1, 2, 4, 8: PaneIndex = 1
            Case 3, 5, 10: PaneIndex = 2
            Case 12: PaneIndex = 3
            Case 15: PaneIndex = 4
        End Select
     
        'Panes are not frozen
        If Not .FreezePanes Then
            'Object not visible in its original Pane
            If Intersect(.Panes(PaneIndex).VisibleRange, Rng) Is Nothing Then
                'Check if it is visible in other Panes
                For i = 1 To .Panes.Count
                    If Not Intersect(.Panes(i).VisibleRange, Rng) Is Nothing Then Exit For
                Next i
                'Found as visible in another Pane
                If i <= .Panes.Count Then PaneIndex = i
            End If
        End If
     
        'Return value
        Set ObjectPane = .Panes(PaneIndex)
    End With
End Function

Cliquez pour agrandir...

d’où mon questionnement sur l'intérêt même de la fonction plutôt qu'un test intersect sur les panes

Cliquez pour agrandir...

Dudu2 à dit:

Bonjour @Nico_J,
Cette fonction permet de récupérer le Pane d'un objet (Range, Shape, ...) de la feuille active.
Et le Pane sert uniquement à exécuter la bon PointsToScreenPixelsX ou Y(WorksheetObject) qui sont des fonction Excel qui tiennent compte des bordures (entêtes de lignes et de colonnes), du décalage du Pane par rapport à l'écran en X et en Y), et même du Zoom ! Sans elles on ne peut rien faire !

Donc au départ tu fais par exemple:

VB:

Dim Pan as Pane
Set Pan = ObjectPane(<MonRange ou MaShape>)

Et ensuite tu connais la position Pixels de <MonRange ou MaShape> en faisant

Code:

Dim PosLeftObjectPixels as long
Dim PosTopObjectPixels as long

PosLeftObjectPixels = Pan.PointsToScreenPixelsX(<MonRange ou MaShape>.Left)
PosTopObjectPixels = Pan.PointsToScreenPixelsY(<MonRange ou MaShape>.Top)

Si tu dois positionner un UserForm, ne reste plus qu'à transformer les Pixels en Points avec la méthode que tu préfères (perso j'utilise les API) par exemple l'accès au registre ou les API via ExcelMacro4 de @patricktoulon (voir plus haut).

Code:

UserForm.Left = ConvertPixelsToPoints(PosLeftObjectPixels)
UserForm.Top= ConvertPixelsToPoints(PosTopObjectPixels)

Cliquez pour agrandir...