Discussion :

[linkcr15]

Bonjour,

Afin de pouvoir verouiller mes feuilles Excel tout en faisant fonctionner mes macros, je souhaites enlever tous mes .Select dans mon code. Cependant j'ai un problème lors de la refonte d'une copie de plage. Voici mon code avant :

Code :

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

1
2
3
4
5
Plage = "A1:M" & derniereLigneTableau
Sheets("Demandes").Activate
Range(Plage).Select
Selection.Copy
Usr_Affiche.Spsheet_Demande.Range("A1").Paste

Que j'ai donc remplacé par :

Code :

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

Sheets("Demandes").Range("A1:M" & derniereLigneTableau).Copy Usr_Affiche.Spsheet_Demande.Range("A1")

Mais mon nouveau code m'affiche l'erreur :

Erreur d'éxécution '1004'
La méthode Copy de la classe Range à échoué

Je ne comprends pas où est mon erreur, est-ce que quelqu'un peut m'aider svp?

[jfontaine]

Bonjour,

Afin de pouvoir verouiller mes feuilles Excel

A tout hasard, la plage de destination ne serait pas protégée?

EDIT : Si la plage de destination est protégée, il est normal d'avoir une erreur 1004

[ZebreLoup]

Et avec :

Code :

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

1
2
Sheets("Demandes").Range("A1:M" & derniereLigneTableau).Copy
Usr_Affiche.Spsheet_Demande.Range("A1").Paste

[linkcr15]

jfontaine : Non ma feuille (ni ma plage) n'est pas protégée pour le moment, c'est ce que je souhaites faire justement!

ZebreLoup : Je test ça je te redis.

Merci à vous deux