Bonjour
Pourrait on me détailler le rôle de chaque instruction ?
Le nom "SCAN" est défini pour H4
je ne connais pas cette structure [ ]
merci
Pourrait on me détailler le rôle de chaque instruction ?
Le nom "SCAN" est défini pour H4
je ne connais pas cette structure [ ]
merci
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = [scan].Address Then
Set C = Columns(2).Find(Target.Value, , xlValues, xlWhole)
Application.EnableEvents = False
If Not C Is Nothing Then
' c.Interior.ColorIndex = 35
[J4].Offset(, 1) = Target.Value
[J5].Offset(, 1).Offset(1) = C.Offset(, 1).Value
C.Offset(, 3) = "OK"
Else
[J4:J5] = ""
End If
Application.EnableEvents = True
End If
End Sub