Position de démarrage du formulaire utilisateur

Question

J'ai créé un joli calendrier contextuel dans Excel et testé la position UserForm avec :

.Top = Application.Top + 125 .Left = Application.Left + 125

Cela fonctionne très bien, mais ce que j'aimerais vraiment, c'est que le formulaire apparaisse juste à côté de la cellule active.

Ce que j'ai essayé ci-dessous ne fonctionne pas et je ne sais pas pourquoi.Je souhaite que le coin supérieur gauche du formulaire touche le coin supérieur droit de la cellule active, mais le formulaire finit par recouvrir la cellule active.

.Top = ActiveCell.Top .Left = ActiveCell.Left + ActiveCell.Width

Aucune suggestion?

Answer 1

Cela fonctionne pour moi comme vous l'espériez :

    .Top = ActiveCell.Top + ActiveCell.Height / 2 + .Height
    .Left = ActiveCell.Left + ActiveCell.Width * 1.5

Answer 2

If Application.Version = "11.0" Then
Me.Top = Application.Top + [b7].Top + 70 - Windows(1).VisibleRange.Top
Else
Me.Top = Application.Top + [b7].Top - 4 +  (Application.CommandBars.Item("Ribbon").Height * 0.75) - Windows(1).VisibleRange.Top
End If
Me.Left = Application.Left + [b7].Left + 90 - Windows(1).VisibleRange.Left

c'est pas trop mal...