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!

[Phil333250]

Bonjour,

Ta cellule J2 est-elle déprotégée ?
Il semble que non.
Donc tu dois déprotéger ta feuille => ActiveSheet.Unprotect, puis la reprotéger => ActiveSheet.Protect

Philippe

[lisepouliot]

Je te remercie de l'aide que tu m'apporte. Alors toutes les cellules (même la J2 est protégée) en jaune ont déjà été protégé dans "Révision", "Protégé la feuille" mais comment lorsque je clique sur "Archivage et nouvelle" que j'ai préalablement affecté cette macro, il y a cette erreur. Si je ne protège pas ma feuille le bouton "Archivage et nouvelle" fonction très bien. Je joins à cet envoi mon fichier si tu désires y voir ce qui ne va pas. Je sais que ce n'est pas habituel de charger des fichiers mais je t'assure ce fichier n'est pas un virus et n'est pas protégé actuellement afin que tu puisse le consulter.

Facture_Original.xlsm

[Nain porte koi]

...Mais lorsque je verrouille ma feuille il y a ce message d'erreur...

Ce message est normal, la J2 cellule étant "verrouillée" quand vous activez la protection ça interdit toute modification dans les cellules verrouillées.
Soit vous désactivez la protection de la feuille comme le suggère Phil333250 avant de modifier la cellule J2, soit vous déverrouillez la cellule J2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ActiveSheet.Unprotect
Sheets("Facture").Range("J2").Value = Sheets("Facture").Range("J2").Value + 1
ActiveSheet.Protect

[Phil333250]

Bonjour lisepouliot

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub Archivage_Pha()
 
  Sheets("Archivage_Facture").Activate  ' La feuille Archivage_Facture est activée, ce qui permet d'alléger le code
  ligne = Range("A2").End(xlDown).Row + 1
  Range("A" & ligne).Value = Sheets("Facture").Range("D2").Value
  Range("B" & ligne).Value = Sheets("Facture").Range("D4").Value
  Range("C" & ligne).Value = Sheets("Facture").Range("D5").Value
  Range("D" & ligne).Value = Sheets("Facture").Range("C10").Value
  Range("E" & ligne).Value = Sheets("Facture").Range("C11").Value
  Range("F" & ligne).Value = Sheets("Facture").Range("C12").Value
  Range("G" & ligne).Value = Sheets("Facture").Range("C13").Value
  Range("H" & ligne).Value = Sheets("Facture").Range("C14").Value
  Range("I" & ligne).Value = Sheets("Facture").Range("C15").Value
  Range("J" & ligne).Value = Sheets("Facture").Range("D36").Value
  Range("K" & ligne).Value = Sheets("Facture").Range("D37").Value
  Range("L" & ligne).Value = Sheets("Facture").Range("D38").Value
  Range("M" & ligne).Value = Sheets("Facture").Range("D39").Value
 
  Sheets("Facture").Activate 'on active la feuille Facture
  Range("A21:B35").ClearContents ' => Attention, la colonne Taux horaire n'est pas nettoyée
 
  ActiveSheet.Unprotect
  Range("J2").Value = Range("J2").Value + 1
  ActiveSheet.Protect
 
  Range("D2").ClearContents
  Range("A18:C19").ClearContents
 
End Sub

Cela fonctionne.

Philippe

[Philippe Tulliez]

Bonjour,
Pour information, en utilisant l'argument UserinterfaceOnly de la méthode Protect avec comme valeur True, on protège la feuille pour les utilisateurs mais pas pour le VBA
Il suffit de placer cette ligne avant l'écriture.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Archivage_Facture").Protect Password:="", UserinterfaceOnly:=True

[Nain porte koi]

Bonjour,
Pour information, en utilisant l'argument UserinterfaceOnly de la méthode Protect avec comme valeur True, on protège la feuille pour les utilisateurs mais pas pour le VBA
Il suffit de placer cette ligne avant l'écriture.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Archivage_Facture").Protect Password:="", UserinterfaceOnly:=True

Merci pour l'info Philippe, on en apprend tous les jours