Macro pour copier oter la protection coller protéger [Résolu/Fermé]

Signaler
Messages postés
2
Date d'inscription
lundi 9 mai 2016
Statut
Membre
Dernière intervention
9 mai 2016
-
Messages postés
2
Date d'inscription
lundi 9 mai 2016
Statut
Membre
Dernière intervention
9 mai 2016
-
Bonjour,
Je sèche...
Je souhaite à l'aide d'une macro copier une ligne sur la feuille 1, et la coller sur la première ligne vide de la feuille 2 qui est protégée.
Sans les instruction de "oter la protection et protéger" ça fonctionne et avec ça ne marche plus.

'copie des données'
Range("7:7").Select
Selection.Copy

Sheets("feuille2").Select
'oter la protection'
ActiveSheet.Unprotect "mot de passe"
'recherche première ligne vide '
derniere_ligne = Range("A65536").End(xlUp).Row
Rows(derniere_ligne + 1 & ":" & derniere_ligne + 1).Select

'colle les valeurs'
ActiveSheet.Paste
'protège la feuille'
ActiveSheet.Protect "mot de passe", True, True, True

merci de votre aide

1 réponse

Messages postés
17297
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
30 octobre 2020
4 341
Bonjour,

essaye comme cela

Sheets("Feuil2").Unprotect "mot de passe"
Sheets("Feuil1").Range("7:7").Copy
'recherche première ligne vide
Range("A65536").End(xlUp).Offset(1, 0).Select
'colle les valeurs
ActiveSheet.Paste
'protège la feuille
ActiveSheet.Protect "mot de passe"

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.
Messages postés
2
Date d'inscription
lundi 9 mai 2016
Statut
Membre
Dernière intervention
9 mai 2016

merci ça fonctionne !