Bonjour Marion, Minick, Lord Nelson et le forum
Tu as une belle démo (comme toujours) de @Thierry qui peut peut être te convenir sur le fil suivant:
Lien supprimé
Ou bien ci-dessous un code trouvé sur le site de VERITI:
____________________________
"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 à coller dans une 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
"______________"
Bonne journée à tous
@+
Pascal