Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Position d'un UserForm

Position d'un UserForm

3 réponses
Avatar
Line
Bonjour ou bonsoir tout le monde

Est-il possible de faire coincider la position d'un UserForm avec
la cellule active???

UserForm.Top = ActiveCell.Top
UserForm.Left = ActiveCell.Left

Ne donne pas les résultats espérés

Un gros merci d'avance

Line
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Michel Pierron
Bonsoir Line;
Comme ceci:

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
.Top = ActiveWindow.PointsToScreenPixelsY(ActiveCell.Top * y) * 1 / y
.Show
End With
End Sub

MP

"Line" a écrit dans le message de news:

Bonjour ou bonsoir tout le monde

Est-il possible de faire coincider la position d'un UserForm avec
la cellule active???

UserForm.Top = ActiveCell.Top
UserForm.Left = ActiveCell.Left

Ne donne pas les résultats espérés

Un gros merci d'avance

Line


Avatar
Line
Merci beaucoup Michel!!! Et Merci aussi pour le UserForm
transparent trouvé chez Misange. Très pratique.

Bonne fin de soirée...


"Michel Pierron" wrote:

Bonsoir Line;
Comme ceci:

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
..Top = ActiveWindow.PointsToScreenPixelsY(ActiveCell.Top * y) * 1 / y
..Show
End With
End Sub

MP

"Line" a écrit dans le message de news:

Bonjour ou bonsoir tout le monde

Est-il possible de faire coincider la position d'un UserForm avec
la cellule active???

UserForm.Top = ActiveCell.Top
UserForm.Left = ActiveCell.Left

Ne donne pas les résultats espérés

Un gros merci d'avance

Line







Avatar
seagull62
Line a écrit le 04/04/2006 à 01h18 :
Merci beaucoup Michel!!! Et Merci aussi pour le UserForm
transparent trouvé chez Misange. Très pratique.

Bonne fin de soirée...


"Michel Pierron" wrote:

Bonsoir Line;
Comme ceci:

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
..Top = ActiveWindow.PointsToScreenPixelsY(ActiveCell.Top * y) * 1 / y
..Show
End With
End Sub

MP

"Line" a écrit dans le
message de news:

Bonjour ou bonsoir tout le monde

Est-il possible de faire coincider la position d'un UserForm avec
la cellule active???

UserForm.Top = ActiveCell.Top
UserForm.Left = ActiveCell.Left

Ne donne pas les résultats espérés

Un gros merci d'avance

Line










Bonjour,
j'ai ceci dans une feuile, comment puis-je appliquer le code donné plus haut pour que sur le clic droit mon userform s'ouvre à proximité de la cellule active?

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

UserForm1.Show

Cancel = True

End Sub