Discussion :

[lisepouliot]

Bonjour à tous, j'ai créer une facture avec certaines cellules protégées. Lorsque j'archive celle-ci sans protéger ma feuille mon archivage fonctionne très bien. Mais lorsque je verrouille ma feuille il y a ce message d'erreur décrit ainsi 3e ligne en gras vers la fin :

Sub Archivage()
ligne = Sheets("Archivage_Facture").Range("A2").End(xlDown).Row + 1
Sheets("Archivage_Facture").Range("A" & ligne).Value = Sheets("Facture").Range("D2").Value
Sheets("Archivage_Facture").Range("B" & ligne).Value = Sheets("Facture").Range("D4").Value
Sheets("Archivage_Facture").Range("C" & ligne).Value = Sheets("Facture").Range("D5").Value
Sheets("Archivage_Facture").Range("D" & ligne).Value = Sheets("Facture").Range("C10").Value
Sheets("Archivage_Facture").Range("E" & ligne).Value = Sheets("Facture").Range("C11").Value
Sheets("Archivage_Facture").Range("F" & ligne).Value = Sheets("Facture").Range("C12").Value
Sheets("Archivage_Facture").Range("G" & ligne).Value = Sheets("Facture").Range("C13").Value
Sheets("Archivage_Facture").Range("H" & ligne).Value = Sheets("Facture").Range("C14").Value
Sheets("Archivage_Facture").Range("I" & ligne).Value = Sheets("Facture").Range("C15").Value
Sheets("Archivage_Facture").Range("J" & ligne).Value = Sheets("Facture").Range("D36").Value
Sheets("Archivage_Facture").Range("K" & ligne).Value = Sheets("Facture").Range("D37").Value
Sheets("Archivage_Facture").Range("L" & ligne).Value = Sheets("Facture").Range("D38").Value
Sheets("Archivage_Facture").Range("M" & ligne).Value = Sheets("Facture").Range("D39").Value

Sheets("Facture").Range("A21:B35").ClearContents
Sheets("Facture").Range("J2").Value = Sheets("Facture").Range("J2").Value + 1
Sheets("Facture").Range("D2").ClearContents
Sheets("Facture").Range("A18:C19").ClearContents

End Sub

Que dois-je ajouté pour régler le problème? Je joins également une image de la feuille à protéger les cellules en jaune sont toutes protégées.


Je vous souhaite de Joyeuses Pâques!