placement d'USF

[Toutou]

Bonjour à tous,
Sur une Feuille excel, un bouton fait apparaître un usf au milieu de l'écran. Or je voudras qu'il apparaisse dans la coin supérieur gche de l'écran. Après des petites recherches sur le forum, je suis tombé sur une question presque identique d'Albert. Dans la réponse qui lui a été adressée, j'ai pu voir que l'on pouvait choisir l'emplacement du usf à l'aide d'un InputBox. Mais je voudrais que pour mon programme cela se fasse automatiquement, j'ai tenter d'adapter le code à mon problème ce qui donne :

Private Sub CommandButton1_Click()
Dim place As Range
usf.Top = Worksheets('Feuil1').Range('A1').Top
usf.Left = Worksheets('Feuil1').Range('A1').Left
usf.Show

End Sub

Malheureusement rien ne se passe et le usf apparait automatiquement au milieu de l'écran...
Quelqu'un peut-il me dire ou est mon erreur SVP?
D'avance merci, bonne soirée,
@+
Toutou
😉

 

[deudecos]

Salut Toutou, le forum

Tu fais un bouton droit sur ton usf et proprietes et tu cherches startup position
et tu choisi default windows

Ca te le colle en haut a gauche de facon automatique

Bonne soiree

Olivier

 

[MichelXld]

bonjour Toutou , bonjour Olivier

en complément de la solution d'Olivier , cela donne par macro

Me.StartUpPosition = 3


bonne soirée
MichelXld

 

[Toutou]

Bonsoir le forum
Bonsoir michel, bonsoir Olivier,
Merci a vous deux pour votre rapidité et votre efficacité,
bonne soirée, a +
Toutou