Position d'un userform

[Kickback]

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]

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]

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]

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

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

 

[Iznogood1]

Bonjour

ou alors modifie ton code associé à test texbox

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...]

Salut

 

[TEMAGOULTFARID]

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

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

merci beaucoup