Protection incompatible

Re à tous,

J’ai soucis avec une barre de coloriage qui ne fonctionne pas lorsque je protège la feuille.

Question :

Y a t’il ou pas un autre moyen de protéger la feuille sans passer par Outils/Protection ?

Voici le message d’alerte :

Erreur d’exécution ‘1004’ :

Impossible de définir la propriété ColorIndex de la classe Interior.

Voici le code que j’utilise dans un module :

Sub Coloriage(p)
   For Each C In Selection

       C.Value = Range("couleurs")(p).Value
       C.Interior.ColorIndex = Range("couleurs")(p).Interior.ColorIndex
       'Range("couleurs")(p).Copy C

   Next C
End Sub

Par avance merci.

Cdlt,

.

Bonsoir,

Si ton mot de passe est à blanc, essaie comme ceci :

Sub Coloriage(p)
Activesheet.unprotect
   For Each C In Selection 
       C.Value = Range("couleurs")(p).Value 
       C.Interior.ColorIndex = Range("couleurs")(p).Interior.ColorIndex 
       'Range("couleurs")(p).Copy C 
   Next C
Activesheet.protect
End Sub 

Amicalement

Dan

Re,

Merci Nad-Dan, c’est parfait. Il m’a fallu mettre ce mm code sur les autres macros mais ça marche.

Cdlt,

.