imposer une couleur au dessus d'une MFC

[fr832]

Bonsoir à tous, voila ma question
j'ai un planning avec trois MFC qui me colorie les jours fériés, les vendredi et les samedi et dimanche.

Par dessus ces couleurs j'ai associé ce code

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect([planning], Target) Is Nothing Then
    On Error Resume Next
    Target.Interior.ColorIndex = [couleurs].Find(Target, LookAt:=xlWhole).Interior.ColorIndex
  End If
End Sub

qui me colore les cellule en fonction des choix de ma liste déroulante.

Mon problème est qui si la cellule est déja mise en couleur par la MFC elle reste de la couleur de la MFC.

Est il possible de modifier mon code de façon à ce qu'il prenne le dessus à la MFC?
PAr avnce merci pour vos lumières.

 

[fr832]

Re : imposer une couleur au dessus d'une MFC

re bonsoir, une question également lorsque j'active la protection de ma feuille le code ne fonctionne plus également merci d'avance.

 

[Pierrot93]

Re : imposer une couleur au dessus d'une MFC

Bonjour,

A ma connaissance, pas possible de prendre le dessus sur une MFC, le seul moyen que je vois serait de supprimer cette MFC le cas échéant...

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([planning], Target) Is Nothing Then
    Target.FormatConditions.Delete
On Error Resume Next
    Target.Interior.ColorIndex = [couleurs].Find(Target, LookAt:=xlWhole).Interior.ColorIndex
  End If
End Sub

pour que le code puisse s'exécuter sur une feuille protégée, il faut que celle-ci soit protégée via le code, en utilisant l'argument "userinterfaceonly"...
Code ci-dessous à placer dans le module "thisworkbook", se déclenche à l'ouverture du classeur...

Private Sub Workbook_Open()
Feuil1.Protect "toto", userinterfaceonly:=True
End Sub

bonne journée
@+

 

[fr832]

Re : imposer une couleur au dessus d'une MFC

bonjour et merci pour les infos pierrot93 une bonne journée à toi amitiés.🙂