Discussion :

[ESVBA]

je suis à la recherche de la manière de positionner une UserForm à coté d'une cellule. JE l'ai vu à une époque mais impossible de retrouver le code.

Ce genre de code place la UserForm n'importe où (pas de résultat constant suivant le classeur) :

Code :

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

1
2
3
4
5
 
Private Sub UserForm_Activate()
    Me.Top = ActiveCell.Top + ActiveCell.Height
    Me.Left = ActiveCell.Left + ActiveCell.Width
End Sub

Mercid e votre aide.

[Fvandermeulen]

Salut,
Le problème vient du fait que les dimensions sont en pixels et les positions en points...
Voici un code que j'ai récupéré je sais plus où (désolé pour l'auteur) et adapté pour ce que tu veux (du moins si j'ai bien compris)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
 
Private Declare Function GetDC& Lib _
"user32.dll" (ByVal hwnd&)
Private Declare Function GetDeviceCaps& _
Lib "gdi32" (ByVal hDC&, ByVal nIndex&)
 
Sub UserFormAlign()
' 1 inch = 72 points for usually 96 or 120 dpi
Dim x#, y#, w#, h#
x = GetDeviceCaps(GetDC(0), 88) / 72
y = GetDeviceCaps(GetDC(0), 90) / 72
With UserForm1
.StartUpPosition = 0
.Left = (ActiveWindow.PointsToScreenPixelsX(ActiveCell.Left * x) * 1 / x) + ActiveCell.Width
.Top = (ActiveWindow.PointsToScreenPixelsY(ActiveCell.Top * y) * 1 / y) + ActiveCell.Height
.Show
End With
End Sub

A+

[ESVBA]

J'ai ce que je voulais...

Merci à toi Fvandermeulen.

ESVBA