Bonjour,
La macro fonctionne très bien quand la feuille bd n'est pas protègée, quand elle est protégée ça ne passe pas a l'endroit
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Pourtant j"ai déprotégé et reprotégé dans la macro !!!
Sub Modification()
'
' Modification Macro
If MsgBox("Confirmation de la modification de la carte,si des données sont supprimées la cellule en vert activation pour supprimer des données doit être activée. ", vbYesNo, "Modification") = vbYes Then
ActiveSheet.Unprotect
Range("A4D4").Select
Selection.Copy
Sheets("Bd").Select
ActiveSheet.Unprotect
Range("A" & [param_no_ligne] + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("Formule").Select
Application.CutCopyMode = False
Selection.Copy
Range("DE" & [param_no_ligne] + 1).Select
ActiveSheet.Paste
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
True
Sheets("Consultation").Select
Range("O12:W12").Select
Selection.ClearContents
Range("O13:R14").Select
Selection.ClearContents
Range("S14:Z14").Select
Selection.ClearContents
Range("O15:Z32").Select
Selection.ClearContents
Range("O12").Select
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
True
End If
End Sub
Merci de votre aide, je n'arrive pas à comprendre!!!!
La macro fonctionne très bien quand la feuille bd n'est pas protègée, quand elle est protégée ça ne passe pas a l'endroit
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Pourtant j"ai déprotégé et reprotégé dans la macro !!!
Sub Modification()
'
' Modification Macro
If MsgBox("Confirmation de la modification de la carte,si des données sont supprimées la cellule en vert activation pour supprimer des données doit être activée. ", vbYesNo, "Modification") = vbYes Then
ActiveSheet.Unprotect
Range("A4D4").Select
Selection.Copy
Sheets("Bd").Select
ActiveSheet.Unprotect
Range("A" & [param_no_ligne] + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("Formule").Select
Application.CutCopyMode = False
Selection.Copy
Range("DE" & [param_no_ligne] + 1).Select
ActiveSheet.Paste
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
True
Sheets("Consultation").Select
Range("O12:W12").Select
Selection.ClearContents
Range("O13:R14").Select
Selection.ClearContents
Range("S14:Z14").Select
Selection.ClearContents
Range("O15:Z32").Select
Selection.ClearContents
Range("O12").Select
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
True
End If
End Sub
Merci de votre aide, je n'arrive pas à comprendre!!!!