renvoyer la date

marc77 · 29 Avril 2006

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å · 29 Avril 2006

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 · 29 Avril 2006

Bonjour Mita et le forum

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

Encore Merci
Marc

renvoyer la date

marc77

Guest

Mytå

Guest

marc77

Guest

Discussions similaires

renvoyer la date

marc77

Guest

Mytå

Guest

marc77

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency