Bonjour à tous,
pour interdire le copier coller j'ai utilisé Application.cutcopymode= false dans tout le classeur. Après, je la réactive à chaque que j'ai besoin de faire un copier coller.
Seulement, cette astuce marche dans la macro "modification" et ne marche pas dans la macro "enregistrement" ci-dessous. Y a t il quelque chose que je n'ai pas vu ?? Merci d'avance
Sub modification()
Application.CutCopyMode = True
Range("E2:Z2").Select
Selection.Copy
Sheets("Recap").Select
Range("E" & [param_no_ligne] + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Cons").Select
Application.CutCopyMode = False
Range("G15:G30").Select
Selection.ClearContents
Range("I15:I23").Select
Selection.ClearContents
End Sub
Sub Enregistrement()
Application.CutCopyMode = True
Sheets("Recap").Select
Rows("2:2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("FicheEval").Select
Range("C2").Value = Now
Range("A2:Z2").Select
Selection.Copy
Sheets("Recap").Select
Range("A2").Select
Application.CutCopyMode = True
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("bd").Select
Range("F" & [param_no_ligne] + 2).Value = "ok"
Range("A" & [param_no_ligne] + 2 & ":" & "E" & [param_no_ligne] + 2).Select
Selection.Interior.ColorIndex = 15
Selection.Font.Italic = True
Sheets("FicheEval").Select
Range("D1328").Select
Selection.ClearContents
Range("I20:I28").Select
Selection.ClearContents
Call Aller_suivant
'Sheets("bd").Select
'Range("A" & [param_no_ligne] + 3).Select
End Sub
pour interdire le copier coller j'ai utilisé Application.cutcopymode= false dans tout le classeur. Après, je la réactive à chaque que j'ai besoin de faire un copier coller.
Seulement, cette astuce marche dans la macro "modification" et ne marche pas dans la macro "enregistrement" ci-dessous. Y a t il quelque chose que je n'ai pas vu ?? Merci d'avance
Sub modification()
Application.CutCopyMode = True
Range("E2:Z2").Select
Selection.Copy
Sheets("Recap").Select
Range("E" & [param_no_ligne] + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Cons").Select
Application.CutCopyMode = False
Range("G15:G30").Select
Selection.ClearContents
Range("I15:I23").Select
Selection.ClearContents
End Sub
Sub Enregistrement()
Application.CutCopyMode = True
Sheets("Recap").Select
Rows("2:2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("FicheEval").Select
Range("C2").Value = Now
Range("A2:Z2").Select
Selection.Copy
Sheets("Recap").Select
Range("A2").Select
Application.CutCopyMode = True
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("bd").Select
Range("F" & [param_no_ligne] + 2).Value = "ok"
Range("A" & [param_no_ligne] + 2 & ":" & "E" & [param_no_ligne] + 2).Select
Selection.Interior.ColorIndex = 15
Selection.Font.Italic = True
Sheets("FicheEval").Select
Range("D1328").Select
Selection.ClearContents
Range("I20:I28").Select
Selection.ClearContents
Call Aller_suivant
'Sheets("bd").Select
'Range("A" & [param_no_ligne] + 3).Select
End Sub