Bouton flottant

Bonjour

je viens vous car je souhaiterai créer un bouton qui suive le déplacement de ma feuille quand je descend ou monte ma feuille (scroll vertical)

j'ai trouvé plusieurs solutions , mais aucune ne me convient parfaitement

la 1ere : était de mettre le bouton et de figer la ligne , mais pas très esthétique

la 2eme : avec le code suivant :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Positionne le CommandButton sur la ligne active
With Me.CommandButton1
    .Left = Columns("J").Left
    .Top = ActiveCell.Top
    .Visible = True
End With
End Sub

mais le soucis c'est que je trouve les boutons du menu insérer commande font tres "chip"

je voudrais la même chose mais avec un bouton que je cré moi meme ,

est possible ?

merci par avance de vos réponses

ps: j'avais oublié de mettre le fichier joint

on dit "cheap" Crée une image et change ton commandbutton par le nom de ton image

Bonjour

Suis ce lien pour plus d'info --> Bouton Suiveur et télécharge le fichier que j'ai proposé le 21/03

Sinon essaie avec ce code à placer dans le feuille où se trouve le bouton:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Macro Dan
ActiveSheet.DrawingObjects(1).Top = Rows(ActiveWindow.ScrollRow).Top
End Sub

Une fois fait, descend dans ta feuille clique dans une cellule de ta feuille

Si ok, lors de ta réponse clique sur le V vert à coté du bouton EDITER pour clloturer le fil

Amicalement

ok merci cela fonctionne tres bien

j'ai un peu modifié le code , car je voulais le placer a un endroit spécial . je vous le laisse au besoin.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Macro Dan
With ActiveSheet.DrawingObjects(1)
    .Left = Columns("m").Left
    .Top = ActiveCell.Top
    .Visible = True
End With

End Sub