introduire des données dans un feuille protégée

[clav]

Hello,

J'essaie de coller des données depuis une feuille non-protégée vers une feuille protégée(data) avec le code suivant :

Rows('3:3').Select
Selection.Copy
Sheets('data').Select
Range('A1').Select
Range('A1').End(xlDown).Offset(1, 0).Select
ActiveSheet.Unprotect
ActiveSheet.Paste
ActiveSheet.Protect
Range('a1').End(xlDown).Offset(1, 0).Select
End Sub


Ca fonctionne tres bien la premiere fois que je le fais, la feuille est déverouillée, les données sont collées, puis la feuille est re-protégée... Mais la 2eme fois que je le fais ca ne marche plus et j'ai un message d'erreur (run time error '1004' : Paste method of Worksheet class failed) et le debuggage souligne la ligne 'ActiveSheet.Paste'...
Si j'enleve les instructions de protection de la feuille 'ActiveSheet.Unprotect' et 'ActiveSheet.Protect', la macro fonctionne tres bien...

Quel est le probleme?
Merci

Jerome

 

[MichelXld]

bonsoir Jerome

j'espere que cette adaptation pourra t'aider

Worksheets('data').Unprotect
Worksheets('Feuil1').Rows('3:3').Copy
Worksheets('data').Activate
Worksheets('data').Paste _
Destination:=Worksheets('data').Range('A1').End(xlDown).Offset(1, 0)
Worksheets('data').Protect


bonne soirée
MichelXld