Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel empecher copier coller

empecher copier coller

3 réponses
Avatar
sasha
bonjour,
j'ai trouvé une macro pour empecher le copier coller, mais elle ne marche
pas- et plus j'avance et moins je comprends la programmation...
merci de votre aide

Sub CopierColler()
On Error GoTo Erreur

Range("C18").Select
Selection.Copy
Windows("Tableau2.xls").Activate
Sheets("Feuil2").Range("C19").Select

ActiveSheet.Paste
Application.CutCopyMode = False
Exit Sub

Erreur:
MsgBox "PAS DE COPIER COLLER!"
End Sub

--
sasha
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonjour.
Si tu veux empêcher la copie, mets :
Application.CutCopyMode = False
avant la ligne :
ActiveSheet.Paste
Cordialement.
Daniel
"sasha" a écrit dans le message de news:

bonjour,
j'ai trouvé une macro pour empecher le copier coller, mais elle ne marche
pas- et plus j'avance et moins je comprends la programmation...
merci de votre aide

Sub CopierColler()
On Error GoTo Erreur

Range("C18").Select
Selection.Copy
Windows("Tableau2.xls").Activate
Sheets("Feuil2").Range("C19").Select

ActiveSheet.Paste
Application.CutCopyMode = False
Exit Sub

Erreur:
MsgBox "PAS DE COPIER COLLER!"
End Sub

--
sasha


Avatar
sasha
merci ça va beaucoup mieux-
--
sasha



Bonjour.
Si tu veux empêcher la copie, mets :
Application.CutCopyMode = False
avant la ligne :
ActiveSheet.Paste
Cordialement.
Daniel
"sasha" a écrit dans le message de news:

bonjour,
j'ai trouvé une macro pour empecher le copier coller, mais elle ne marche
pas- et plus j'avance et moins je comprends la programmation...
merci de votre aide

Sub CopierColler()
On Error GoTo Erreur

Range("C18").Select
Selection.Copy
Windows("Tableau2.xls").Activate
Sheets("Feuil2").Range("C19").Select

ActiveSheet.Paste
Application.CutCopyMode = False
Exit Sub

Erreur:
MsgBox "PAS DE COPIER COLLER!"
End Sub

--
sasha







Avatar
sasha
eh bien non , ça ne marche pas - je me suis emballée un peu trop vite..
--
sasha



bonjour,
j'ai trouvé une macro pour empecher le copier coller, mais elle ne marche
pas- et plus j'avance et moins je comprends la programmation...
merci de votre aide

Sub CopierColler()
On Error GoTo Erreur

Range("C18").Select
Selection.Copy
Windows("Tableau2.xls").Activate
Sheets("Feuil2").Range("C19").Select

ActiveSheet.Paste
Application.CutCopyMode = False
Exit Sub

Erreur:
MsgBox "PAS DE COPIER COLLER!"
End Sub

--
sasha