Macros pour activer / désactiver Copier-Coller [Résolu]

adsens 12 Messages postés samedi 14 mars 2009Date d'inscription 19 avril 2017 Dernière intervention - 18 avril 2017 à 10:40 - Dernière réponse : f894009 12541 Messages postés dimanche 25 novembre 2007Date d'inscription 11 décembre 2017 Dernière intervention
- 20 avril 2017 à 08:01
Bonjour, j'ai besoin de votre aide s'il vous plait.

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é !!
Afficher la suite 
12Messages postés samedi 14 mars 2009Date d'inscription 19 avril 2017 Dernière intervention

5 réponses

Répondre au sujet
cs_Le Pivert 4765 Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut 12 décembre 2017 Dernière intervention - Modifié par cs_Le Pivert le 18/04/2017 à 12:03
+1
Utile
1
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
Cette réponse vous a-t-elle aidé ?  
adsens 12 Messages postés samedi 14 mars 2009Date d'inscription 19 avril 2017 Dernière intervention - 18 avril 2017 à 12:18
Merci énormément !
ça m'a beaucoup aidé !! T'es un génie :)
Commenter la réponse de cs_Le Pivert
f894009 12541 Messages postés dimanche 25 novembre 2007Date d'inscription 11 décembre 2017 Dernière intervention - 18 avril 2017 à 10:58
0
Utile
2
Bonjour,

vous avez deux fois la meme procedure avec un code different
Private Sub Workbook_SheetSelectionChange
adsens 12 Messages postés samedi 14 mars 2009Date d'inscription 19 avril 2017 Dernière intervention - 18 avril 2017 à 11:04
Bonjour, je sais que j'ai deux fois la même procédure, mais je n'ai aucune solution pour réparer ça !
Merci f894009
f894009 12541 Messages postés dimanche 25 novembre 2007Date d'inscription 11 décembre 2017 Dernière intervention > adsens 12 Messages postés samedi 14 mars 2009Date d'inscription 19 avril 2017 Dernière intervention - 20 avril 2017 à 08:01
Bonjour,

mais je n'ai aucune solution pour réparer ça !

Ah que si, vous ne devez avoir qu'une seule procedure avec du code pour distinguer les deux actions que vous voulez
Commenter la réponse de f894009