Re : recherche avec coloriage de cellule
j'ai moi même trouvé la solution à mon pb mais ça ne marche sue deux colonnes je sais pas trop pourquoi. Quelqu'un pourrait-il examiner ce code pour moi?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
p = Application.Match(Target, Application.Index([courtier], , 1), 0)
m = Application.Match(Target, Application.Index([matricule], , 1), 0)
g = Application.Match(Target, Application.Index([garantie], , 1), 0)
o = Application.Match(Target, Application.Index([opération], , 1), 0)
If Not IsError(p) Or Not IsError(g) Or Not IsError(m) Or Not IsError(o) Then
Target.Offset(0, 0).Interior.ColorIndex = 4
Else
Target.Offset(0, 0).Interior.ColorIndex = 3
End If
End If
End Sub
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
For Each c In [A2:F13]
p = Application.Match(c, Application.Index([courtier], , 1), 0)
m = Application.Match(c, Application.Index([matricule], , 1), 0)
g = Application.Match(Target, Application.Index([garantie], , 1), 0)
o = Application.Match(Target, Application.Index([opération], , 1), 0)
If Not IsError(p) Or Not IsError(g) Or Not IsError(m) Or Not IsError(o) Then
c.Offset(0, 0).Interior.ColorIndex = 4
Else
c.Offset(0, 0).Interior.ColorIndex = 3
End If
Next c
Application.ScreenUpdating = True
End Sub