Coller sur une feuille protégée

[Tom]

Bonjour, Bonne année à tous et à toutes


Je découvre ce site il y a quelque mois, étant débutant dans l'écriture de code VB, je m'éclate vraiment, rien qu'à naviguer et lire les différents sujets traités.

Ce n'est jamais assez les remerciements pour ceux qui font partager aux autres leus savoirs.


Voici mon probème du jour:

Private Sub CommandButton1_Click()

Range("A1😀15").Copy
Sheets("Feuil2").Unprotect
Sheets("Feuil2").Select
ActiveSheet.Paste
End Sub

Ma Feuil2 est protégée pour d'autres raisons
Ce code ne marche pas.

Erreur d'exécution '1004'
La méthode Paste de la Classe Worksheet a échoué

Quelqu'un peut m'aider ?


Merci

 

[Christophe]

Bonjour forum et bonjour Tom

Voici la marge a suivre, il te faut d'abord enlever la prectection, avant de faire le copy, paste, regarde ce que j'en ai fait;

Private Sub CommandButton1_Click()
Sheets("Feuil2").Unprotect
Range("A1😀15").Copy
Sheets("Feuil2").Select
ActiveSheet.Paste
Sheets("Feuil2").Protect
End Sub

 

[Tom]

Re,

Petite précision:

. Je copie depuis la Feuil1 courante vers Feuil2
. La protection de la Feuil2 est sans mot de passe pour l'instant


Merci

 

[Christophe]

bonjour tom et le forum

Correct, tu copies depuis la feuille1 vers Feuil2, mais tous depends de l'emplacement de ta cellule active en feuil2, tu retrouvera peux etre tes données coller en B2:F16

Quand a la protection et reste avec la mots de passe d'origine que tu as introduit dans outils protection

Voila

J'espere t'avoir aidé

 

[Christophe]

Correction, effectivement, ton mots de passe est oté, mais la feuille reste protege

 

[Tom]

Merci beaucoup Christophe...

C'est parfait


Le principe " il te faut d'abord enlever la prectection, avant de faire le copy, paste " n'a même traversée mon esprit.

ça fait quelques nuits que mon Erreur 1004 me casse les pied pour ce que je voulais faire.


A+