Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Coller sur une feuille protégée

T

Tom

Guest
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("A115").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
 
C

Christophe

Guest
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("A115").Copy
Sheets("Feuil2").Select
ActiveSheet.Paste
Sheets("Feuil2").Protect
End Sub
 
C

Christophe

Guest
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é
 
T

Tom

Guest
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+
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…