|
J'ai créé une macro qui se lance quand je clique sur un bouton. Le problème, c'est que ce bouton se déplace avec la feuille d'Excel, comme s'il était collé à une cellule. Comment faire pour qu'il soit fixe sur l'écran, pour que je puisse toujours le voir, quelque soit l'endroit où je me trouve dans la feuille?
Partie à placer dans un module de feuille... 
Option Explicit
'Michel
'http://www.excel-downloads.com/html/French/forum/messages/1_55575_55563.htm
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim TopPos As Long
Dim LeftPos As Long
Dim X As Long
Dim Y As Long
For X = 1 To ActiveWindow.ScrollRow - 1
TopPos = TopPos + Cells(X, 1).Height
Next X
For Y = 1 To ActiveWindow.ScrollColumn - 1
LeftPos = LeftPos + Cells(Y, 1).Width
Next Y
TopPos = TopPos + ActiveWindow.UsableHeight - 110
LeftPos = LeftPos + ActiveWindow.UsableWidth - 140
Sheets("Feuil1").OLEObjects("CommandButton1").Left = LeftPos
Sheets("Feuil1").OLEObjects("CommandButton1").Top = TopPos
End Sub
Date de création : 24/05/2005 - 19:23
Dernière modification : 25/05/2005 - 22:07
Catégorie : Divers
Page lue 3832 fois
 Prévisualiser la page
 Imprimer la page
|
OOo
OOo
Membres: 1661
Membre en ligne: 0
Anonymes en ligne: 82
Haut 
