macro excel

Question

Bonjour.
J’ai fais un petit programme avec Excel 2003, il y quelques macro dont une qui consiste à colorer les cellules sélectionnées voici la formule : 
With Selection. Interior
        .ColorIndex = 8
        .Pattern = xlSolid
    End With
    End Sub

Tout fonctionne bien, mais lorsque je protège la feuille, (les cellules pouvant être colorées ne sont pas protégées bien sur) un message apparait.
Erreur d’exécution 1004 Impossible de définir la propriété Color index de la classe intérior 
Les autres macros fonctionnent.
Comment faire fonctionner cette macro tout en protègent la feuille.

Merci d’avance.

UsulArrakis · Answer

salut
voici une macro qu'on a faite pour moi 
il faut peut être rajouter "c." avant "Interior.ColorIndex"
Sub ChangementcouleurGB()
For Each c In Selection
If c.Interior.ColorIndex = 15 Then c.Interior.ColorIndex = 34
Next c

End Sub

tarpon · Answer

merci UsulArrakis

Ce n'est pas exactement ce que cherchais mais ta macro peut me servir.
J'ai trouvé comment procéder il faut autoriser la modification du format des cellules le problème, cela autorise la modification de toutes les cellules non protégées.

bonne journée

néné · Answer

Bonjour

ce que tu peux faire c'est de déproteger ta feuille avant la coloration des cellules puis de reprotéger ta feuille à la fin

Sub Colorier()
'
' Macro2 Macro
' Macro enregistrée le 14/01/2008 par ROBERT René         http://utilsfr.new.fr
'
ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False

'ta procédure de coloration

 ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Macro excel

3 réponses

Discussions similaires

Newsletters