Macro excel

Fermé
tarpon - 14 janv. 2008 à 09:02
 tarpon - 17 janv. 2008 à 13:46
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.
A voir également:

3 réponses

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
1
Merci Néné et bravo pour ton site
0
UsulArrakis Messages postés 7405 Date d'inscription vendredi 28 mars 2003 Statut Contributeur Dernière intervention 27 janvier 2022 3 184
14 janv. 2008 à 12:16
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
0
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
0