Inserer date dans cellule avec conditions OU

VE2LY · 3 Février 2017

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 · 3 Février 2017

Bonsoir.

VB:

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 · 3 Février 2017

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

Inserer date dans cellule avec conditions OU

VE2LY

XLDnaute Nouveau

Pièces jointes

Dranreb

XLDnaute Barbatruc

VE2LY

XLDnaute Nouveau

Discussions similaires