Bouton flottant

Bonjour à tous le forum,

J'ai trouvé une idée qui fonctionne! pour faire flotter un commandbutton lorsqu'une cellule est collectionné.

le code ci dessou.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Count < 1 Then Exit Sub
  Me.CommandButton7.Top = Target.Top + 50
  Me.CommandButton7.Left = Target.Left - 0

End Sub

J'aurai aimé le faire fonctionner juste sur une plage de cellules (A2:A20)

J'ai plusieurs essai sans résultat.

Un peu d'aide svp

Merci d'avance Coco.

Bonsoir

Suis ce lien -->Bouton suiveur dans lequel je suggère de télécharger un fichier "bouton suiveur" ici --> https://forum.excel-pratique.com/excel/vba-useform-qui-suit-le-mouvement-des-scrolls-de-la-feuille-t22122-10.html en date du 21/03/2011

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

Amicalement

Bonsoir Dan,

Merci pour ton fichier qui doit être très utile, mais dans mon cas pas trop ce que je désire.

Re

Essaie comme ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count < 1 Then Exit Sub
If Not Intersect(Target, Range("A2:A20")) Is Nothing Then
  Me.CommandButton1.Top = Target.Top + 50
  Me.CommandButton1.Left = Target.Left - 0
End If
End Sub

Si ok, clique sur le v vert à coté du bouton EDITER lors de ta réponse afin de cloturer le fil

Crdlt

Bonjour Dan,

Merci ça fonctionne super.

Merci encore

Coco

Rechercher des sujets similaires à "bouton flottant"