Autres Positionnement d'un UserForm

[Salmander]

Bonjour,
Je m'arrache les cheveux avec le positionnement d'un UserForm.
Je souhaiterais m'en servir comme panneau de commande pour une feuille mais sa position n'importe où en fonction de l'utilisateur me gène.

Quelqu'un saurait-il comment placer le coin en haut à gauche de l'UserForm sur la cellule A1 ?

Merci par avance.

 

[fanfan38]

Bonjour

Private Sub UserForm_Initialize()
  me.startupPosition=0
  me.top=0 '160 pour être à la hauteur de la cellule A1
  me.left=0
end sub

A+ François

 

[Salmander]

Oui, on peut effectivement placer à telle ou telle position.
Mon souci vient des écrans multiples et variation de hauteur des barres de menu.
Pour le moment j'ai ça qui résout le problème des écrans mais ça ne vise toujours pas A1...

Private Sub UserForm_Initialize()
    Me.startupPosition = 0
    Application.Goto Range("A1"), True
    Me.Left = Application.Left + 40
    Me.Top = Application.Top + 160
End Sub

 

[Dranreb]

Bonjour.
Essayez les méthodes PointsToScreenPixelsX et PointsToScreenPixelsY de l'objet Pane

 

[patricktoulon]

et ben dis donc
la sub peut être dans un module ou directe dans le userform
bien entendu réutilisable puisque la cellule de ref est injectée en argument
je n'ai pas mis la gestion de freezepane(qui fausse tout) , mais si besoins me le dire

Private Sub UserForm_Initialize()
    ufposition [a1], Me
End Sub

Sub ufposition(cel As Range, uf As Object)
   'Patricktoulon
   Dim PpX#, zoo#, adroite#
   'adroite = cel.Width 'debloque si tu le veux a droite de la cellule
   uf.startupPosition = 0
    With ActiveWindow.ActivePane
        zoo = .Parent.Zoom / 100 'coeff zoom
        PpX = 1 / ((.PointsToScreenPixelsX(7200 / zoo) - (.PointsToScreenPixelsX(0) / zoo)) / 7200) 'coeff pixel avec zoom
        uf.Move .PointsToScreenPixelsX(adroite + cel.Left * zoo) * PpX, .PointsToScreenPixelsY(cel.Top * zoo) * PpX 'placement
    End With
End Sub

voila pas besoin de s’arracher les cheveux
Patrick

 

[Valtrase]

Bonjour à tous.
Et plutôt que d'avoir un formulaire qui pollue l'espace de travail, pourquoi ne pas travailler avec le ruban tout simplement ?

 

[patricktoulon]

Bonjour
paque!!!! jy zui emruuuber

 

[patricktoulon]

sinon dans sa version la plus simple on gère aussi le freezepane

Private Sub UserForm_Initialize()
    ufposition [d19], Me
End Sub

Sub ufposition(cel As Range, uf As Object)
    'Patricktoulon
    Dim PpX#, zoo#, adroite#, p As Pane, i&
    adroite = cel.Width 'debloque si tu le veux a droite de la cellule
    uf.startupPosition = 0
    With ActiveWindow
        Set p = .ActivePane
        If Intersect(cel, p.VisibleRange) Is Nothing Then
            For i = 1 To .Panes.Count
                If Not Intersect(cel, .Panes(i).VisibleRange) Is Nothing Then Set p = .Panes(i): Exit For
             Next
        End If
        zoo = .Zoom / 100 'coeff zoom
        PpX = 1 / ((.Panes(1).PointsToScreenPixelsX(7200 / zoo) - (.Panes(1).PointsToScreenPixelsX(0) / zoo)) / 7200) 'coeff pixel avec zoom
        uf.Move p.PointsToScreenPixelsX((adroite ) + cel.Left) * PpX, p.PointsToScreenPixelsY(cel.Top) * PpX 'placement
    End With
End Sub

explication:
si ligne et/ou colonne figée activepane donnera toujours la pane(panes.count)même si la cellule sélectée est dans un figé
en même temps cela est évident sinon on parlerait pas de (figer les volet)
conclusion ,en bouclant sur les panes on teste le intersect du visiblerange de chaque panes avec la cellule visée pour chopper la bonne panes
le coeffpixel avec la ligne poinstopixelsx par contre on prendra toujours la panes(1)
car dans les parenthèses on utilise une donnée numérique en dur et donc on applique le zoom
explication sur ce point du zoom
imaginons une cellule par exemple C1
en zoom 100 supposons que pointstoscreenpixelsx([C1].left donne 150
en zoom different elle donnera toujours le point ecran donc différent
par contre si je fait .panes(x). pointstoscreenpixelsx(150) en zoom <> de 100 le point que j'obtiens ne sera pas celui qu'on pourrait attendre voila pourquoi avec pointstoscreenpixelsx ou y utilisé avec une valeur numérique on appliquera le zoom tandis qu'avec le cells(x,y).left on ne l'utilisera pas

voila j'espère avoir été le plus clair possible

Patrick

 

[Salmander]

et ben dis donc
la sub peut être dans un module ou directe dans le userform
bien entendu réutilisable puisque la cellule de ref est injectée en argument
je n'ai pas mis la gestion de freezepane(qui fausse tout) , mais si besoins me le dire

Private Sub UserForm_Initialize()
    ufposition [a1], Me
End Sub

Sub ufposition(cel As Range, uf As Object)
   'Patricktoulon
   Dim PpX#, zoo#, adroite#
   'adroite = cel.Width 'debloque si tu le veux a droite de la cellule
   uf.startupPosition = 0
    With ActiveWindow.ActivePane
        zoo = .Parent.Zoom / 100 'coeff zoom
        PpX = 1 / ((.PointsToScreenPixelsX(7200 / zoo) - (.PointsToScreenPixelsX(0) / zoo)) / 7200) 'coeff pixel avec zoom
        uf.Move .PointsToScreenPixelsX(adroite + cel.Left * zoo) * PpX, .PointsToScreenPixelsY(cel.Top * zoo) * PpX 'placement
    End With
End Sub

voila pas besoin de s’arracher les cheveux
Patrick

Merci Beaucoup,
Ça marche plutôt bien.
Le placement est parfait quand le zoom de la feuille de calcul est à 98%.
Je cherche comment régler ce très léger détail et je reviens ici dès que j'ai trouvé la solution.

 

[patricktoulon]

Bonjour
il te faudra alors pour corriger ce petit ecart
utiliser l'api dwmapi car c'est la surcouche dwm de windows qui fait ce petit defaut
est ce que ça vaut le coup pour un petit defaut de 1 ou 2 points
tu devra plancher sur cette question