[Excel] - protection cellule

**Chewi** · 14/02/2007, 11h37

Bonjour pour certains et Re pour les autres,

Quelqu'un peut-il me dire la raison pour laquelle ma cellule "Macellule" ne se verrouille pas?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Public Sub transfert()

Application.ScreenUpdating = False
Dim Mafeuille As Worksheet
Dim Macellule As Range
With Workbooks("Progr.xls").Sheets("MemoiresUFS")
    Set Mafeuille = Workbooks(.Range("H3").Value).Sheets(.Range("H2").Value)
    Set Macellule = .Range("H1")
End With       '1
With Workbooks("Progr.xls").Sheets("accueil")
    Mafeuille.Unprotect
    Mafeuille.Range(Macellule) = .[C1]
    Mafeuille.Range(Macellule).Offset(1, 0) = .[C2]
    Mafeuille.Range(Macellule).Offset(2, 0) = .[C3]
    Mafeuille.Range(Macellule).Offset(3, 0) = .[C4]
    Mafeuille.Range(Macellule).Offset(-1, 0) = .[B2]
    Mafeuille.Range(Macellule).Offset(-2, 0) = .[A4]
    If .[A5] = "AV" Then
        Mafeuille.Range(Macellule).Offset(-4, 0) = .[A3]
        Mafeuille.Range(Macellule).Offset(-5, 0) = .[A2]
        Mafeuille.Range(Macellule).Offset(-6, 0) = .[A1]
    End If

End With

With Workbooks("Progr.xls").Sheets("MemoiresUFS")
Workbooks(.Range("H3").Value).Activate
End With

Mafeuille.Activate
Macellule.Locked = True
Range(Macellule).Offset(0, 1).Activate
Mafeuille.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

Application.ScreenUpdating = True
End Sub

Si je regarde sa valeur avec un espion, au point '1, elle prend bien la référence de ma cellule active et à la fin de mon code, j'ai comme valeur "Out of context"

Merci,

Chewi

**cwain** · 14/02/2007, 14h09

Bonjour,
J'essaie de reproduire ton code, mais ignare que je suis

, je ne sais pas ce que veulent dire les crochets [C1] etc... et le code bloque à la première de ces lignes. Eclaireras-tu ma lanterne

pour que je puisse t'aider ?

**helios77** · 14/02/2007, 14h32

A mon avis, tu devrais plutot faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range(Macellule).Locked = True

**AlainTech** · 14/02/2007, 14h37

Envoyé par helios77

A mon avis, tu devrais plutot faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range(Macellule).Locked = True

Non, car Macellule est un Range.

Par contre, je crois comprendre le but de la manoeuvre et notre ami pourrait essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range(Macellule.Value).Locked = True

**helios77** · 14/02/2007, 14h39

Ah oui c'est vrai tu as sans doute raison

**Chewi** · 14/02/2007, 16h48

Ouskel'nord:

Quelques explications:

Je travaille dans deux classeurs:
Un qui me sert de "software" (Progr.xls) et l'autre (variable) qui est traité (Monclasseur). Toutes mes macros et mémoires sont stockées dans Progr.xls.

Lorsque je quitte le fichier traité, je mémorise Monclasseur actif, Mafeuille active et Macellule active dans les cellules H1, H2 et H3 de la feuille "MemoiresUFS" du classeur "Progr".

Il reprend donc dans ce code les valeurs mémorisées dans H1,H2,H3 pour réactiver et transférer à l'endroit où j'étais.

Avec ceci:
Citation:

With Workbooks("Progr.xls").Sheets("MemoiresUFS")
Set Mafeuille = Workbooks(.Range("H3").Value).Sheets(.Range("H2").Value)
Set Macellule = .Range("H1")
End With '1
With Workbooks("Progr.xls").Sheets("accueil")

Il reprend les valeurs mémorisées.

Macellule n'est donc pas dans:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks("Progr.xls").Sheets("MemoiresUFS")

Mais je vais y rechercher les valeurs pour référencer Macellule.

J'avoue que c'est tordu mais je préfère passer par des cellules que de mémoriser les variables.

alors que ma feuille dépend de
Citation:
Workbooks(.Range("H3").Value).Sheets(.Range("H2").Value)

Non, mais elle y reprend les valeurs stockées.
Si tu veux d'autes éclaircissements...

AlainTech:

Impeccable, ma cellule est bien protégée.

Mais peux-tu m'expliquer la différence? (Donne un poisson à un homme...)

Merci à tous ceux qui se sont penchés dessus!

Chewi