renvoyer la date

[marc77]

Bonsoir le forum

J'ai un code qui me renvoie la date en colonne E à la saisie de données dans les colonne A B C et D.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 5 Then
Cells(Target.Row, 5) = Date
End If
End Sub

j'aimerais qu'il me renvoie la date quand je saisie des données seulement dans c et d.

Merci d'avance Marc

 

[Mytå]

Salut Marc77 et le forum

Deux façons de faire :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column =3 or Target.Column =4 Then
Cells(Target.Row, 5) = Date
End If
End Sub

OU

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

Mytå

 

[marc77]

Bonjour Mita et le forum

Je te remercie, c'est ce que je rechercher.

Encore Merci
Marc