gourdin XLDnaute Impliqué 7 Juillet 2016 #1 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
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 XLDnaute Barbatruc Repose en paix 7 Juillet 2016 #2 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... Vote positif 0 Vote négatif
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 XLDnaute Impliqué 7 Juillet 2016 #3 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 Vote positif 0 Vote négatif
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 XLDnaute Impliqué 7 Juillet 2016 #4 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 Vote positif 0 Vote négatif
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 XLDnaute Barbatruc Repose en paix 7 Juillet 2016 #5 Re, Non !... Surtout pas les Select qui ne font que ralentir l'exécution du code inutilement !... VB: Sheets("FeuilB").Unprotect Sheets("FeuilA").Range("A1").Copy Sheets("FeuilB").Range("A1") Sheets("FeuilB").Protect Vote positif 0 Vote négatif
Re, Non !... Surtout pas les Select qui ne font que ralentir l'exécution du code inutilement !... VB: Sheets("FeuilB").Unprotect Sheets("FeuilA").Range("A1").Copy Sheets("FeuilB").Range("A1") Sheets("FeuilB").Protect
gourdin XLDnaute Impliqué 7 Juillet 2016 #6 OK OK pas de select ! Je retiendrai Merci Robert Vote positif 0 Vote négatif