Bonjour à tous,
J'ai un bout de code qui fonctionne si je rentre une donnée dans la plage "plan". Ce code renvoie une couleur de fond suivant l'intitulé de la cellule.
Le problème est que l'intitulé n'est plus inscrit à la main mais par formule et là plus rien ne s'affiche.
Avez vous une idée de la modification à apporter?
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([plan], Target) Is Nothing Then
On Error Resume Next
Target.Interior.ColorIndex =
J'ai un bout de code qui fonctionne si je rentre une donnée dans la plage "plan". Ce code renvoie une couleur de fond suivant l'intitulé de la cellule.
Le problème est que l'intitulé n'est plus inscrit à la main mais par formule et là plus rien ne s'affiche.
Avez vous une idée de la modification à apporter?
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([plan], Target) Is Nothing Then
On Error Resume Next
Target.Interior.ColorIndex =
Code:
.Find(Target, LookAt:=xlWhole).Interior.ColorIndex
End If
End Sub
merci pour votre aide si possible.
JHA
Dernière édition: