Discussion :

[Markus54]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Patrice740]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ....

[pijaku]

Bonjour,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Markus54]

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