empêcher le déplacement d'un bouton de macro

Question

Bonjour, 

J'ai créé une  macro qui  copie  une  cellule  dans une  autre  lorsqu'il est cliqué sur un bouton formulaire.  Lorsque  le  bouton est  sélectionné  il est possible  de le  déplacer. Je souhaiterais pouvoir faire en  sorte  que  le  déplacement de ce bouton ne  soit  plus possible. Existe-t-il un moyen ?

Par avance  merci.

Le corps de la  macro  est le  suivant :


Sub Copiecellule()
'
' Copiecellule Macro
'

'
    Range("W9:W10").Select
    Selection.Copy
    Range("BL26").Select
    Application.Left = -12.5
    Application.Top = 7.75
    Windows("SiteRésultats.xlsm").Activate
    ActiveWindow.SmallScroll ToRight:=12
    Range("BN40").Select
    Application.Left = 49.75
    Application.Top = 14.5
    ActiveSheet.Paste
End Sub

Configuration: Windows / Firefox 54.0

gbinforme · Answer

Bonjour, 

Tu devrais simplifier ainsi ta macro :
Sub Copiecellule()
'
' Copiecellule Macro
    Range("W9:W10").Copy , Windows("SiteRésultats.xlsm").ActiveSheet.Range("BN40")
End Sub

eriiic · Answer

Bonjour,

empecher son déplacement je ne pense pas.
Mais le ramener à sa place dès que l'utilisateur clique n'importe ou c'est possible. Il se lassera avant excel.
eric

cs_Le Pivert · Answer

Bonjour,

Une manière de procéder:

Option Explicit
Sub Bouton1_Clic()
Dim B As Object
With Worksheets("Feuil1") 'a adapter
Set B = .Shapes("Bouton 1") 'a adapter
End With
B.Top = "100" 'a adapter
B.Left = "100" 'a adapter
MsgBox "Je reviens toujours a ma place!"
End Sub

Empêcher le déplacement d'un bouton de macro

3 réponses

Discussions similaires

Newsletters