Amélioration code VBA

[asset]

bonjour,

est ce que il serait possible d'améliorer une macro :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
On Error Resume Next
Cells(Target.Row, 1).Resize(, 4).Interior.ColorIndex = [etat].Find(Target, LookAt:=xlWhole).Interior.ColorIndex
End If
End Sub
le probleme de cette macro c'est que il ne se met pas a jour instantanément, serait il possible d'ameliorer ce code afin qu'il ce met a jour de suite ?

 

[CBernardT]

Re : Amélioration code VBA

Bonjour,

Essaye ces syntaxes et garde la meilleure :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
On Error Resume Next
Target.EntireRow.Range("A1😀1").Interior.ColorIndex = [etat].Find(Target, LookAt:=xlWhole).Interior.ColorIndex
On Error GoTo 0
End If
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
Dim C As Range
Set C = [etat].Find(Target, LookIn:=xlValues, LookAt:=xlWhole)
If Not C Is Nothing Then
Target.EntireRow.Range("A1😀1").Interior.ColorIndex = C.Interior.ColorIndex
End If
End If
End Sub