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

Fermé

Dominique - 5 août 2017 à 22:18
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 6 août 2017 à 07:53

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

A voir également:

Empêcher le déplacement d'un bouton de macro
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro recorder - Télécharger - Confidentialité
Historique déplacement google - Guide

3 réponses

Réponse 1 / 3

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
6 août 2017 à 07:53

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

Réponse 2 / 3

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 685
5 août 2017 à 22:35

Bonjour,

Tu devrais simplifier ainsi ta macro :

Sub Copiecellule()
'
' Copiecellule Macro
    Range("W9:W10").Copy , Windows("SiteRésultats.xlsm").ActiveSheet.Range("BN40")
End Sub

Réponse 3 / 3

eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 214
6 août 2017 à 01:18

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

Discussions similaires

Où est la touche SHIFT sur mon clavier d'ordi ?

Message "Un bloqueur de publicité empêche la lecture..."

Bouton ON OFF, O ou I ?

Quel est la touche shift sur le clavier

comment desactiver un bloqueur de pub

Discussions similaires

Newsletters