Empêcher le déplacement d'un bouton de macro
Dominique
-
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
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
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
A voir également:
- Empêcher le déplacement d'un bouton de macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Historique déplacement google - Guide
- Bouton reinitialisation pc - Guide
- Diagnostic bouton photo - Accueil - Outils
- Que veut dire le bouton off - Forum PC portable
3 réponses
Bonjour,
Une manière de procéder:
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
