Discussion :

[Montellano]

Bonsoir à tous

J'ai trouvé plein de solutions pour positionner un Userform par rapport à une cellule, toutes fonctionnent très bien, mais quand il y a un volet dans la fenêtre, ça dérègle le calage.

Pouvez vous m'indiquer comment récupérer la hauteur du volet pour pouvoir recaler mon Userform.
Ou la position (haut - gauche) du 2ème volet en pixel.

Merci par avance pour vos propositions.

Jean Marc en Andalousie
www.haciendalamorena.com

[PMO2017]

Bonjour,

Essayez

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub aa()
Dim W As Window
Dim R As Range
 
Set W = ActiveWindow
If W.Panes.Count = 2 Then
  With W.Panes(2)
    Set R = .VisibleRange.Cells(1, 1)
    R.Select  'pour visualiser
    MsgBox "x : " & .PointsToScreenPixelsX(R.Left)
    MsgBox "y : " & .PointsToScreenPixelsY(R.Top)
  End With
End If
End Sub

[Montellano]

Bonjour PMO 2017

Merci pour ton code qui correspond bien à ce que je voulais.

Je coche résolu.

Bien cordialement
Jean Marc en Andalousie
www.haciendalamorena.com