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
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