Copier-coller vers une feuille protégée [Résolu]

[d0n32]

Bonjour à toutes et à tous,

Après lecture de plusieurs topics sur le sujet, je poste, car je ne trouve pas de solutions spécifiques à mon cas.

Je souhaite coller une valeur d'une feuille Excel vers une autre (même classeur), cette dernière étant protégée.

A l'aide de l'enregistreur de macro, j'ai un bout de code du type :

Code :

1
2
3
4
5
6
7
8
9
10
 
'On est dans la feuille 1
Range("C15").Copy
    Sheets("Feuil2").Activate
    ActiveSheet.Unprotect ("test")
    Range("B8").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
 
 
    ActiveSheet.Protect Password:="test", DrawingObjects:=True, Contents:=True, Scenarios:=True

Un message d'erreur '400' apparaît au niveau de la ligne Range("B8").Select..
Il me semble pourtant bien avoir enlevé la protection de ma feuille !

Auriez-vous une idée du pourquoi du comment ?

Merci d'avance

[mercatog]

Ton problème vient des Select/Activate (inutiles)

Code :

1
2
3
4
5
6
7
8
Sub Test()
 
With Worksheets("Feuil2")
    .Unprotect "test"
    .Range("B8").Value = Worksheets("Feuil1").Range("C15").Value
    .Protect "test"
End With
End Sub

Sinon, Tu peux protéger ta feuille comme ceci (et pas besoin de déprotéger protéger pour y écrire)

Code :

Worksheets("Feuil2").Protect "test",UserInterfaceOnly:=True

[d0n32]

Merci beaucoup pour ces informations très intéressantes (et utiles !)
En m'inspirant directement de ce que tu m'as donné dans ta réponse,j'écris un peu plus loin:

Code :

1
2
3
4
5
6
With Worksheets("Feuil2")
            .Unprotect Password:="test"
            If ind mod(3) <> 0 Or ind = 0 Then
                 .Range("H18").Offset(ind * 4, 0).Value = Worksheets("Feuil1").cel.Offset(0, -1).Value
 
....

Et l'erreur "Propriété ou méthode non gérée par cet objet" A la dernière du code écris ci-dessus. Cel est appelé dans une boucle for. Je ne vois pas d'erreurs de syntaxe sautant a priori aux yeux, il doit bien y en avoir une cependant..?

Edit : Le problème vient plus précisément de l'expression

Code :

Worksheets("Feuil1").cel.Offset(0, -1).Value

J'utilise cel dans une boucle, qui débute comme suit :

Code :

For Each cel In Worksheets("Dimensionnement Permutation").Range("I12:I17")

Merci encore pour votre aide

[mercatog]

Mets la partie de ton code en entier

[d0n32]

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
For Each cel In Worksheets("Dimensionnement").Range("I" & 11 + nprec & ":I" & 11 + n - 1)
 
    If cel.Value = Range("H3").Value Then 
 
        With Worksheets("Permutation 12kV")
            .Unprotect Password:="test"
            If ind Mod (3) <> 0 Or ind = 0 Then
            .Range("F18").Offset(ind * 4, 0).Value = Worksheets("Dimensionnement").cel.Offset(0, -1).Value
            Else
            .Range("F18").Offset(ind * 4 + 2, 0).Value = Worksheets("Dimensionnement").cel.Offset(0, -1).Value
            End If
            .Protect Password:="test", DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
     ElseIf cel.Value = Range("H4").Value Then
...

et ça bloque à la 6ème ligne donc, dans la partie droite de l'expression.

[mercatog]

Code :

.Range("F18").Offset(ind * 4, 0).Value = cel.Offset(0, -1).Value

cel est une variable appartenant déjà à la feuille Dimensionnement

PS: Attention ici, toujours indiquer à quel feuille appartient la cellule

Code :

If cel.Value = Range("H3").Value Then

H3 de quelle feuille?

Il fallait mettre

Code :

If cel.Value = Worksheets("LeNoDeLaFeuille").Range("H3").Value Then

pour ne pas se soucier de la feuille active

[d0n32]

Effectivement...
C'est d'autant plus étrange que j'avais rajouté Worksheets("Dimensionnement") parce que j'avais justement un problème.
Mais je viens de l'enlever, et ça fonctionne nickel..

Merci