Macros pour activer / désactiver Copier-Coller
Résolu
adsens
Messages postés
11
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
Bonjour, j'ai besoin de votre aide s'il vous plait.
j'ai ces deux bouts de codes dans ThisWorkbook
Tout de suite après
le premier c'est une macro pour désactiver le Copier coller, le deuxième c'est pour l'activer.
Quand j’exécute le code j'ai ce message erreur :"Nom ambigu détecté".
Merci pour votre aide très précieuse car là je suis bloqué !!
j'ai ces deux bouts de codes dans ThisWorkbook
Sub Desable_Copy().
Dim oCtrl As Office.CommandBarControl
For Each oCtrl In Application.CommandBars.FindControls(ID:=21)
oCtrl.Enabled = False
Next oCtrl
For Each oCtrl In Application.CommandBars.FindControls(ID:=19)
oCtrl.Enabled = False
Next oCtrl
Application.CellDragAndDrop = False
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
With Application
.CellDragAndDrop = False
.CutCopyMode = False 'Clear clipboard
End With
End Sub
Tout de suite après
Sub Enable_Copy()
Dim oCtrl As Office.CommandBarControl
For Each oCtrl In Application.CommandBars.FindControls(ID:=21)
oCtrl.Enabled = True
Next oCtrl
For Each oCtrl In Application.CommandBars.FindControls(ID:=19)
oCtrl.Enabled = True
Next oCtrl
Application.CellDragAndDrop = True
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
With Application
.CellDragAndDrop = True
.CutCopyMode = True 'Clear clipboard
End With
End Sub
le premier c'est une macro pour désactiver le Copier coller, le deuxième c'est pour l'activer.
Quand j’exécute le code j'ai ce message erreur :"Nom ambigu détecté".
Merci pour votre aide très précieuse car là je suis bloqué !!
2 réponses
-
Bonjour,
Supprime les 2
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Ensuite suit ce tutoriel pour lancer tes 2 macros avec un raccourci clavier
Sub Desable_Copy() et Sub Enable_Copy()
http://www.info-3000.com/vbvba/raccourciclavier.php
@+ Le Pivert -
Bonjour,
vous avez deux fois la meme procedure avec un code differentPrivate Sub Workbook_SheetSelectionChange
