Inserer date dans cellule avec conditions OU

[VE2LY]

Re bonjour le forum.
Après avoir fait des recherches sur le sujet cité en titre j'ai bien trouvé des éléments de réponses qui fonctionnent très bien avec 1 cellule par ligne mais...

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Column
Case 2
Cells(Target.Row, 5) = Date
End Select
End Sub


...mais je cherche une équivalence qui ferai cela sur plusieurs cellules de ma même ligne mais pas toutes avec un OU et pas un ET Donc 1 ou l'autre des cellules A B ou C (pas D ni E) qui seraient modifiée générerons la date dans la case E.

J'espère avoir assez clairement expliqué mon problème, voir le fichier joint.
Merci de m'éclairer.

 

[Dranreb]

Bonsoir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Rows.Count > 1 Or Target.Columns.Count > 1 Then Exit Sub
If Intersect([A2:C5], Target) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target.EntireRow.Columns("E").Value = Date
Application.EnableEvents = True
End Sub

Bonne nuit.

 

[VE2LY]

Merci Beaucoup Dranreb
C'est exactement ce que je cherchais a obtenir. Je vais étudier le fonctionnement avec attention.
Grandement apprécié.