Copie de données sur feuille protégé

[hutch57]

Bonjour le forum
J'ai un problème pour copier des données sur une feuille protégé quand je clique sur un bouton de macro
sur mon premier bouton pas de problème voici le code

With Sheets("sauvegarde")
.EnableSelection = xlNoRestrictions
.Unprotect Password:=""
Derlig2 = .Range("A65000").End(xlUp).Row + 1
Range(.Cells(Derlig2, 1), .Cells(Derlig2 + NbLignes - 1, 7)) = Tablo2
.EnableSelection = xlNoSelection
.Protect Password:="", Contents:=True, UserInterfaceOnly:=True, Scenarios:=True
End With

Mais pour les 2 autres ca ne fonctionne pas a moins d'enlever la protection des cellules ce qui n'est pas le but
Fichier ci joint

Merci
Cdt
Hutch

 

[phlaurent55]

Re : Copie de données sur feuille protégé

bonsoir hutch,

Mais pour les 2 autres ca ne fonctionne pas a moins d'enlever la protection des cellules ce qui n'est pas le but

Et pourtant, tu n'as pas d'autre choix que d'enlever la protection au début du code et ne pas oublier de la remettre en fin de code
à+
.

 

[Paritec]

Re : Copie de données sur feuille protégé

bonsoir Hutch
ton fichier en retour dis moi si c'est ce que tu veux
bonne soirée
papou

 

[hutch57]

Re : Copie de données sur feuille protégé

Re bonsoir le forum
Merci Papou c'est tout bon
A+
Cdt
Hutch

 

[kjin]

Re : Copie de données sur feuille protégé

Re,

Mais pour les 2 autres ca ne fonctionne pas a moins d'enlever la protection des cellules ce qui n'est pas le but

Je ne vois pas pourquoi ni à quelle fin, il suffit de déprotéger puis reprotéger la feuille

Sub Macro1()
With Sheets("Wind up")
    .Unprotect
    .Range("B1:B4").Value = Range("B6:B9").Value
    .Range("B6:C9").Value = Range("B11:C14").Value
    .Range("D8").Value = Range("D18").Value
    
'    Application.ActivePrinter = "Canon MP620 series Printer sur Ne02:"
'    .PrintOut Copies:=1, ActivePrinter:= _
'            "Canon MP620 series Printer sur Ne02:", Collate:=True
    .Protect
End With

End Sub

Edit: Salut tout le monde, un ptit coup de pompe...
A+
kjin