Bouton qui se déplace

[Dominique]

Bonjour à tous,
J'ai un petit soucis que je me permet de vous soumettre car je n'ai pas trouver de solution en cherchant sur la toile.
J'ai placé un CommandButton sur une feuille excel et je souhaiterais connaitre la macro qui permettrait à ce dernier de se déplacer (de haut en bas) lorsque je déplace ma feuille verticalement.
Je vous remercie d'avance pour votre aide.
Dominique

 

[excalibur]

bonjour dominique le forum si j ai bien compris une approche du pb Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As 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 - 250 ' valeur a modifier
LeftPos = LeftPos + ActiveWindow.UsableWidth - 500 'idem
Sheets('feuil1').OLEObjects('CommandButton1').Left = LeftPos
Sheets('feuil1').OLEObjects('CommandButton1').Top = TopPos
End Sub'salutations

 

[Dominique]

Bonjour Excalibur, le forum,
Je te remercie pour ton aide. Ta macro fonctionne parfaitement.
Bonne fin de journée.
Dominique