déplacer un CommandButton dans une feuille

[paul87]

Bonjour à tous, Bonjour le Forum,
est-il possible de déplacer un CommandButton dans une feuille, juste en tenant le click droit et glisser/déplacer/poser .(drag and drop)
et conserver sur ce meme CommandButton un double click ou lancer l'ouverture d'un UF..?
Merci pour vos conseils..
Paul

 

[carinae]

Re : déplacer un CommandButton dans une feuille

bonjour Paul87

si tu passes en mode creation tu ne peux pas deplacer ton bouton ?

 

[paul87]

Re : déplacer un CommandButton dans une feuille

re
bonjour carinae
bien sur que si ça fonctionne...
mais c'est justement ce que je ne veux pas..!!
je ne veux pas que l'utilisateur final ait acces au mode création..
juste pouvoir déplacer et utiliser le Commandbutton

 

[jeanpierre]

Re : déplacer un CommandButton dans une feuille

Bonjour paul87, carinae,

Simplement par clique gauche sur le bandeau bleu et on peut le mettre où on veut.

Par contre, pour interdire le mode Création, donc les menus d'excel. je m'en refuse....

Peux-tu préciser, là, car ce n'est pas très clair, enfin pour moi.

A te lire.

Jean-Pierre

 

[Spitnolan08]

Re : déplacer un CommandButton dans une feuille

Bonjour le fil,
salut JP,

Tu peux te tourner vers un des évènements de ce type :

Private Sub CommandButton2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    PosH = CommandButton2.Left
    PosV = CommandButton2.Top
    With ActiveSheet.Shapes("CommandButton2")
        .Left = X - PosH
        .Top = Y - PosV
    End With
End Sub

En t'amusant à jongler avec les valeurs à donner au déplacement...
Il y a déjà eu des fils sur le sujet sur le forum, d'ailleurs.

Cordialement

 

[paul87]

Re : déplacer un CommandButton dans une feuille

Re bonsoir à tous,
et merci à vous Spitnolan08, jeanpierre et carinae
dans l'idée c'est exactement ça,
à cette différence que je veux pouvoir prendre à un endroit et déplacer à un autre le bouton..!!! selon l'évolution des étapes de mon job..
tout en gardant sa fonctionnalité d'ouverture de UF sur double click
encore merci pour vos aides..

 

[paul87]

Re : déplacer un CommandButton dans une feuille

Bonjour à tous, Bonjour le Forum,
Finalement j'ai un peu modifié mon idée de départ,
maintenant je sélectionne la cellule cible et au click, CommandButton va se positionner correctement.
Mais ce que je voudrais et là je n'y arrive pas, c'est pouvoir selectionner un autre CommandButton (le test2par exemple,....mais j'en aurais au moins 50 dans mon appli finale) et pouvoir le/les déplacer lui aussi sur une cellule sélectionnée..
Comment faire...svp Merci
Paul

 

[paul87]

Re : déplacer un CommandButton dans une feuille

re-
si quelqu'un avait une idée por moi...
je seche ..lamentablement..
Merci

 

[Lii]

Re : déplacer un CommandButton dans une feuille

Bonsoir,

Un click sur le bouton à déplacer puis un click sur la cellule voulue. Voir si cela convient.

 

[paul87]

Re : déplacer un CommandButton dans une feuille

Bonsoir à tous et bonsoir le Forum,
Merci à toi Lii
ça marche trés bien et çà correspond à ce qu'il me fallait.
je souhaiterai rajouter la possiblité de creer des CommandButton au besoin.
j'ai donc mis un bouton qui ouvre un UF à remplir..
et c'est là que cela se complique...
je n'ai jamais fait de création d'objets et ne connais pas les commandes..
si quelqu'un pouvait m'aider svp
merci
Paul