Aide code date fixe VBA

Bonjour,
je me permets de vous demander de l'aide car je viens de faire mon premier code non sans difficultés, mais je n'arrive pas à obtenir ce que je souhaite.
Je souhaiterais que la date du jour s'affiche dans les colonnes C; E ;G etc lorsque je rentre des informations dans les colonnes B;D;F etc...
J'ai bien réussi à créer le code suivant mais je n'arrive pas à faire la suite :

Worksheet Change

Code:

---

1 2 3 4 5 6 7 8

Private Sub Worksheet_Change(ByVal Target As Range) Dim Time As Integer For Time = 2 To 100 If Cells(Time, "B").Value <> "" And Cells(Time, "C") = "" Then Cells(Time, "C") = Date & " " Cells(Time, "C").NumberFormat = "dd/mm/yyyy" Next Range("C:C").EntireColumn.AutoFit End Sub

---

Merci de bien vouloir me venir en aide.
Cordialement.
Marc

Bonjour,

Pas sur d'avoir bien compris, peut-être comme ça

Code:

---

1 2 3 4 5 6

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 And Target.Column Mod 2 = 0 Then Target.Offset(0, 1).NumberFormat = "dd/mm/yyyy" Target.Offset(0, 1).Value = Date End If End Sub

---

Il faut probablement limiter la plage en terme de lignes ....

Bonjour,

Citation:

---

Envoyé par Patrice740

Il faut probablement limiter la plage en terme de lignes ....

---

Et aussi, comme il n'est pas indiqué dans la demande, mais dans le code de celle-ci, empêcher le remplacement d'une date existante déjà en C, E, etc...
Donc :

Code:

---

1 2 3 4 5 6 7 8

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 And Target.Column Mod 2 = 0 Then If Target.Offset(0, 1).Value = vbNullString Then Target.Offset(0, 1).NumberFormat = "dd/mm/yyyy" Target.Offset(0, 1).Value = Date End If End If End Sub

---

Je vous remercie beaucoup Pikaju et Patrice 740:lol: , vous m'avez rendu un grand service.
Encore Merci.:lol: