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