Position d'un userform

Kickback · 21 Février 2005

Bonjour,

J'ai créé deux userform apparaissant à l'ouverture d'un classeur excel. Cependant les deux s'affichent en plein milieu, l'un sur l'autre, or je souaiterais que ceux-ci apparaissent l'un en dessous de l'autre et sur la droite de la feuille. Mais je n'arrive pas à trouver le code nécessaire à cette execution. Merci d'avance.

sousou · 21 Février 2005

Bonjour kickback

Les propriétés left et top du userform doivent te suffir, mais attention.
Cela ne fonctionne que si tu les initialise avant la méthode show, ou si elles ne sont pas a 0 dans les propriétés de ton user.

Je ne m'explique pas très bien pourquoi d'ailleur!

Private Sub UserForm_Initialize()
UserForm1.Left = 10
UserForm1.Top = 200
UserForm1.Width = 100
End Sub

Kickback · 21 Février 2005

Effectivement j'obitens un message d'erreur indicant qu'il manque un object 424 et qui pointe sur la fonction show. Pour le moment je suis bloqué là-dessus.

petchy · 21 Février 2005

bonjour
essaye se code que j'ai trouvé sur excelabo

Code:

 Sub Afficher()
With UserForm1
    .StartUpPosition = 0
    .Left = Application.UsableWidth - .Width
    .Top = Application.UsableHeight - .Height
    .Show
End With
End Sub

Iznogood1 · 25 Août 2016

Bonjour

ou alors modifie ton code associé à test texbox

Code:

Private Sub TextBox7_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'fm_CalendrierCellMinMax.Show
  Dim f  As New fm_CalendrierCellMinMax
  f.StartUpPosition = 0
  f.Left = TextBox7.Left + TextBox7.Width + TextBox7.Parent.Left
  f.Top = TextBox7.Top + TextBox7.Parent.Top
f.Show
End Sub

Private Sub TextBox8_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'fm_CalendrierCellMinMax.Show
  Dim f  As New fm_CalendrierCellMinMax
  f.StartUpPosition = 0
  f.Left = TextBox8.Left + TextBox8.Width + TextBox8.Parent.Left
  f.Top = TextBox8.Top + TextBox8.Parent.Top
  f.Show
End Sub

Si... · 25 Août 2016

Salut

TEMAGOULTFARID · 30 Août 2019

petchy à dit:
bonjour
essaye se code que j'ai trouvé sur excelabo

Code:

Sub Afficher() With UserForm1 .StartUpPosition = 0 .Left = Application.UsableWidth - .Width .Top = Application.UsableHeight - .Height .Show End With End Sub

merci beaucoup

Position d'un userform

Kickback

Guest

sousou

XLDnaute Barbatruc

Kickback

Guest

petchy

XLDnaute Occasionnel

Iznogood1

XLDnaute Impliqué

Si...

XLDnaute Barbatruc

TEMAGOULTFARID

XLDnaute Occasionnel

Discussions similaires