Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

validation des données en couleur

titoffe60

XLDnaute Junior
Bonjour à tous

Je suis en train de créer un planning et j'ai beaucoup d'infos à mettre donc j'utilise des couleurs pour mieux me repérer et pour tout le monde qui vont l'utiliser

L'onglet 2014 lui fonctionne car je part de cette base

Mais quand je fais un copier coller avec liaison sur l'onglet 2014(2) et que je change les infos sur 2014 les couleurs ne suivent pas sur l'onglet 2014(2). Les infos oui mais pas les couleurs.

Le code est

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A1:FF165], Target) Is Nothing Then
On Error Resume Next
If Not Intersect([FF165], Target) Is Nothing Then Target.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = [F].Find(Target, LookAt:=xlWhole).Interior.ColorIndex
Target.Interior.ColorIndex = [M].Find(Target, LookAt:=xlWhole).Interior.ColorIndex
Target.Interior.ColorIndex = [P].Find(Target, LookAt:=xlWhole).Interior.ColorIndex
Target.Interior.ColorIndex = [A].Find(Target, LookAt:=xlWhole).Interior.ColorIndex
Target.Interior.ColorIndex = [D].Find(Target, LookAt:=xlWhole).Interior.ColorIndex
Target.Interior.ColorIndex = [Date].Find(Target, LookAt:=xlWhole).Interior.ColorIndex
End If
End Sub


Pouvez vous m'aidez car vraiment galère a trouvez seul
Titoffe60
 

Pièces jointes

  • Validation couleurs 2 .xls
    257.5 KB · Affichages: 57

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…