POsitionner un Userfrm sur une fenetre avec volets

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

Bonjour,

Essayez

Code:

---

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

---

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