verrouiller cellule en fonction de sa couleur

[fabien114]

[Résolu] verrouiller cellule en fonction de sa couleur

Bonjour,

J'ai un tableau avec excel avec plus 50 onglets. Je souhaite sur chaque feuille : dé-protéger la feuille, deverrouiller les cellules avec la couleur 34, verrouiller les autres cellules et enfin protéger la feuille.

Voici mon code :

Sub ProtegerOnglets()
    For i = 1 To Worksheets.Count
        Worksheets(i).Unprotect
        For Each n In Worksheets(i).[A1:Z1000]
            n.Select
            If n.Interior.ColorIndex = 34 Then
                n.Locked = False
            Else
                n.Locked = True
            End If   
        Next
        Worksheets(i).Protect
    Next
End Sub

Ca fonctionne mais dés qu'il rencontre une cellule fusionnée j'ai cette erreur : "erreur d'éxécution 1004 : erreur définie par l'application ou par l'objet".

Merci d'avance 😉

 

[Efgé]

Re : verrouiller cellule en fonction de sa couleur

bonjour fabien114,
Peut être en enlevant le n.Select qui ne doit pas servir.
Cordialement

 

[fabien114]

Re : verrouiller cellule en fonction de sa couleur

bonjour fabien114,
Peut être en enlevant le n.Select qui ne doit pas servir.
Cordialement

Bonjour,
non, il est là juste pour voir ou ça bugait. J'ai essayé sans et idem.

 

[fabien114]

Re : verrouiller cellule en fonction de sa couleur

Bonjour,

Quelqu'un aurait une idée ?

Merci

 

[Pierrot93]

Re : verrouiller cellule en fonction de sa couleur

Bonjour,

essaye peut être ainsi :

        If n.Interior.ColorIndex = 34 Then
            n.MergeArea.Locked = False
        Else
            n.MergeArea.Locked = True
        End If

bonne journée
@+

 

[fabien114]

Re : verrouiller cellule en fonction de sa couleur

Bonjour,

Je viens de tester, ça fonctionne. Merci beaucoup 😉🙂