code macro permettant copier coller après déprotection feuille

[gourdin]

Bonjour,

Une question toute bête :

J'ai une macro qui réalise les actions suivantes :

- copie une cellule de la feuille A
- selectionne la feuille B
- déprotège la feuille B (dont toutes les cellules doivent restées vérouillées)

Je souhaite alors coller ma cellule mais c'est impossible

Existe t- il un petit code macro permettant de coller cette cellule après déprotection de la feuille B ?
Merci

 

[Robert]

Bonjour Gourdin, bonjour le forum,

Tu aurais pu au moins mettre le code !...
Sinon commence par déprotéger puis fait le copier/coller et reprotège pour firnir...

 

[gourdin]

Voici le code correspondant
En effet

Sheets("FeuilB").Unprotect
Sheets("FeuilA").Select
Range("A1").Select
Selection.Copy

Sheets("FeuilB").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("FeuilB").Protect

 

[gourdin]

Voici le code correspondant
En effet il faut déprotéger et reprotéger la feuille B mais je me demandais si il n'y avait pas d'autre solution

Sheets("FeuilB").Unprotect
Sheets("FeuilA").Select
Range("A1").Select
Selection.Copy

Sheets("FeuilB").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("FeuilB").Protect

 

[Robert]

Re,

Non !... Surtout pas les Select qui ne font que ralentir l'exécution du code inutilement !...

Sheets("FeuilB").Unprotect
Sheets("FeuilA").Range("A1").Copy Sheets("FeuilB").Range("A1")
Sheets("FeuilB").Protect

 

[gourdin]

OK OK pas de select !
Je retiendrai

Merci Robert