[Toutes versions] Protection sur une partie des cellules provoque une erreur à l'éxécution de la macro [Résolu]

[fowlie]

Bonjour à tous,
Le principal est dans le titre... J'ai une feuille excel, dans laquelle certaine cellule ne doivent pas être modifier par l'utilisateur (mais les autres oui). Cependant j'ai un macro qui utilise ces cellules non modifiables en modifie d'autres. J'ai donc protégé mes cellules avec outils/Protection et ma macro me dit "Erreur d'éxécution 1004 : Impossible de définir la propriété ColorIndex de la classe Interior"

Erreur que je n'ai pas lorsque mes cellules ne sont pas protégé.

aprés de nombreuses recherches sur différents forum j'ai testé plusieurs codes consistant à déprotéger les cellules, éxécuter la macro, et reprotéger les cellules, mais sans succés ....
avec le code :

Code :

1
2
3
   Sheets("Feuil3").Unprotect "pwd" .....
.....
....    Sheets("Feuil3").Protect "pwd"

ou le code :

Code :

   Worksheets("Feuil3").Protect userinterfaceonly:=True, Password:="pwd"

j'ai l'erreur "Erreur d'éxécution 9 : L'indice n'appartient pas à la sélection"

Pour infos je voudrais bloquer la modification des cellules A4 à L53 uniquement ...

Voici mon code dans son ensemble :

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
37
38
Private Sub CommandButton1_Click()
  ' Sheets("Feuil3").Unprotect "pwd"
   Worksheets("Feuil3").Protect userinterfaceonly:=True, Password:="pwd"
    For i = 5 To Range("A" & Rows.Count).End(xlUp).Row
        For j = 13 To 24 ' Range("A1").End(xlToRight).Column + 1
            If Cells(i, j).Value = 1 Then
                    Cells(i, j).Interior.ColorIndex = 15
                ElseIf Cells(i, j).Value = 2 Then
                    Cells(i, j).Interior.ColorIndex = 48
                ElseIf Cells(i, j).Value = 3 Then
                    Cells(i, j).Interior.ColorIndex = 16
                Else
                     Cells(i, j).Interior.ColorIndex = xlNone
            End If
            If Cells(i, j) > 0 Then
                Select Case Cells(3, j)
                    Case "CM"
                        If (Cells(i, 9).Value < Cells(4, j).Value) Then
                            Cells(i, j).Interior.ColorIndex = 3
                        End If
                    Case "CF"
                        If (Cells(i, 10).Value < Cells(4, j).Value) Then
                            Cells(i, j).Interior.ColorIndex = 3
                        End If
                    Case "AM"
                        If (Cells(i, 11).Value < Cells(4, j).Value) Then
                            Cells(i, j).Interior.ColorIndex = 3
                        End If
                    Case "RL"
                        If (Cells(i, 12).Value < Cells(4, j).Value) Then
                            Cells(i, j).Interior.ColorIndex = 3
                        End If
                End Select
            End If
        Next
    Next
   ' Sheets("Feuil3").Protect "pwd"
End Sub

Je vous remercie d'avance pour votre aide. Vu le nombres de personnes qui ont eu le même problème, je vais bien finir par trouver la solution =)

[BlueMonkey]

Bonjour,

J'ai passer le code sur une feuille avec quelques valeurs en A:A sans reproduire le problème.

j'ai l'erreur "Erreur d'éxécution 9 : L'indice n'appartient pas à la sélection"

Avoir le numéro de ligne où l'erreur se produit serait utile à trouver l'origine du problème.
Peut être qu'avoir un exemple de contenu du fichier sera nécessaire également.

[BytesKey]

Salut Fowlie

Utilise la fonction

Code :

1
2
3
4
5
.UnProtect
 
'Code '
 
.Protect

Dans tes macros et il n'y aura plus de problème

BytesKey

[fowlie]

Merci pour vos réponses,

@BytesKey : J'ai essayé et cette fois l'erreur est "Erreur de compilation : Référence incorrecte ou on qualifiée"

@BlueMonkey : Lorsque je fais débogage, l'erreur d'éxécution 9 se trouve sur la ligne

Code :

Sheets("Feuil3").Unprotect "pwd"

ou

Code :

Worksheets("Feuil3").Protect userinterfaceonly:=True, Password:="pwd"

Et la cellule concernée par l'erreur 1004 est la première testé par la boucle (enfin je suppose) cad la cellule à la ligne 5, colonne 13 soit la cellule M5

Je ne peux pas fournir l'excel dans son ensemble, j'essai d'un refaire un test (avec l'erreur) et de vous le donner

[corona]

Bonjour,
Erreur classique.
Tu exécutes sans doute ton code avec un autre classeur ouvert et la feuille "Feuille3" n'est pas présente dans ce classeur.
Ce code fonctionne parfaitement si la feuille nommée F1 existe et renvoie erreur 9 dans le cas contraire

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
Public wkb As Workbook, sht As Worksheet
Const nSheet As String = "F1"
Sub MainTest()
 Set wkb = ThisWorkbook: Set sht = wkb.Worksheets(nSheet)
 sht.Protect userinterfaceonly:=True, Password:="Toto"
 pWrite
 sht.Unprotect "Toto"
End Sub
Sub pWrite()
 Dim wCol As Single, wRow As Single
 For wRow = 2 To 9
  For wCol = 1 To 4
  sht.Cells(wRow, wCol) = wRow & "./." & wCol
  Next
 Next
End Sub

[fowlie]

je me sens stupide

C'était bien la Feuil3 mais renomée "calcul", seulement dans visual basic comme c'est marqué Feuil3(Calcul) je pensais que vba comprendrais que je mette Feuil3 ... Visiblement non

en tout cas merci beaucoup corona

[corona]

Ravi que ce soit résolu.
L'idéal est de bien structurer son programme.
Cela évite des surprises.
Déclarer ces variables objets en début de module et ne jamais oublier de déclarer explicitement Classeur et feuille utilisée pour éviter d'écrire par accident sur la feuille active qui ne serait pas celle souhaitée.