Problème Interior.ColorIndex

[Nanir]

Bonjour,

Voici mon cas, j'ai ce code ci-dessous :

If [Ingénieur!H33] = "Autre" Then
Worksheets("Ingénieur").Range("o33").Interior.ColorIndex = 43
Else
Worksheets("Ingénieur").Range("o33").Interior.ColorIndex = xlNone
End If

Tout fonctionne bien sauf lorsque je vérouille la feuille.
Lorsqu'elle est vérouillée, il y a une erreur d"éxécution 1004 : "impossible de définir la propriété Colorindex de la classe Intérior"... et "Worksheets("Ingénieur").Range("o33").Interior.ColorIndex = xlNone" apparait en jaune.

Que faire?
Merci pour votre aide.

 

[Staple1600]

Re : Problème Interior.ColorIndex

Bonjour

Voir du côté de UserInterfaceOnly

Exemple ici :Lien supprimé

 

[PascalXLD]

Re : Problème Interior.ColorIndex

Bonjour

Tu as 2 solutions

- tu deverouilles ta feuille en début de macro et tu la reverouilles en fin
- tu protèges ta feuille par macro avec la propriété userinterfaceonly à true (plein d'exemples sur le forum)

Bonne journée

 

[wilfried_42]

Re : Problème Interior.ColorIndex

Bonjour

Deproteger ta feuille en debut de macro et la reproteger à la fin

Worksheets("Ingénieur").UnProtect

Worksheets("Ingénieur").Protect

Si tu as un mot de passe :

Worksheets("Ingénieur").UnProtect PassWord:="Monmotdepasse"

Worksheets("Ingénieur").Protect PassWord:="Monmotdepasse"

Edit : Bonjour Jean marie, Pascal

 

[Nanir]

Re : Problème Interior.ColorIndex

Ok, merci pour votre aide.

Si je comprends bien, je dois déproteger la feuille en debut de macro et la reproteger à la fin à chaque fois que j'utilise la propriété colorindex?