[Excel] - protection cellule

Version imprimable

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:

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

14/02/2007, 14h09
cwain

Bonjour,
J'essaie de reproduire ton code, mais ignare que je suis :pleure:, 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 :idea: pour que je puisse t'aider ?
14/02/2007, 14h32
helios77

A mon avis, tu devrais plutot faire

Code:

Range(Macellule).Locked = True
14/02/2007, 14h37
AlainTech

Citation:

Envoyé par helios77

A mon avis, tu devrais plutot faire

Code:

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:

Range(Macellule.Value).Locked = True
14/02/2007, 14h39
AlainTech

Citation:

Envoyé par cwain

je ne sais pas ce que veulent dire les crochets [C1]

Notation abrégée (et plus légère pour l'interpréteur) pour Range("C1").
14/02/2007, 14h39
helios77

Ah oui c'est vrai tu as sans doute raison
14/02/2007, 16h48
Chewi

Ouskel'nord:

Quelques explications: :mouarf:

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:

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:

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.

Citation:

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
14/02/2007, 19h57
AlainTech

Comme je l'ai écrit, Macellule est un Range (suite au Set...) qui est une instance de la cellule H1 de la feuille MemoiresUFS.
Avec

Code:

Macellule.Locked = True

tu Lock cette cellule-là (H1).

Or, MemoiresUFS.[H1] contient l'adresse de la cellule que tu veux locker.
Il suffit donc d'écrire

Code:

Range(Macellule.Value)

pour que ce contenu (l'adresse) se retrouve entre les parenthèses de Range.

J'espère avoir été assez clair...
14/02/2007, 20h56
Chewi

Ok,

Il est vrai que le principe n'est pas foncièrement compliqué, je pensais en fait que je prenais la valeur de la cellule et non la cellule:aie:

Merci pour les explications;)