Le problème

Bonjour, j'ai un classeur dans lequel j'aimerai avoir un bouton qui "bouge" en fonction de la cellule où je suis... Je ne pense pas que cela soit possible mais bon... on ne sait jamais...

La solution

Pour ceux qui ne savent pas créer le bouton, lire l'astuce en entier, sinon aller directement au code VBA

Alors si j'ai bien compris, vous aimeriez un bouton qui se déplace en même temps que votre souris... Alors c'est possible en utilisant du VBA. Par contre, ce ne sera pas en fonction du déplacement de votre souris mais en fonction de la cellule que vous activez (ou sélectionnez, ça veut dire la même chose...)

Tout d'abord, il faut créer un bouton. On peut créer le bouton à partir de deux barres d'outils : la barre d'outils formulaire et la barre d'outils de contrôles. C'est cette dernière dont nous avons besoin...

Pour afficher cette barre d'outils de contrôles,

Une fois que vous avez votre barre d'outils, cliquez sur l'icône permettant de créer un bouton :

et ensuite créez votre bouton. Normalement, vous devriez avoir quelque chose de ce genre :

Nous devons connaitre le nom de notre Bouton.

Attention, il ne s'agit pas du nom dans le bouton...

Pour connaitre son nom, cliquez sur la petite enveloppe à coté de l'équerre dans la barre d'outils, comme ceci:

Là, vous devriez avoir une fenetre de ce style :

Repérez bien le nom que vous avez en première ligne, car c'est ce nom que vous devrez mettre dans la macro....

Ensuite voici le code nécessaire à mettre dans le code source de la page (PAS DANS UN MODULE) :

1
2
3
4
5
6
7
8
9

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 ' Positionne le CommandButton sur la ligne active
 With Me.CommandButton1 'nom du bouton
    .Left = 240 ' à modifier pour déplacer sur le sens de la longueur
    .Top = ActiveCell.Top
    .Visible = True
End With
End Sub
 

Testez une fois que vous avez entré votre code VBA...

Si cela ne fonctionne pas, n'oubliez pas de décocher l'équerre bleu dans la barre d'outils de contrôles...