[Résolu]Code qui renvoie 09/02/2013

Format(Now(), "dd/mm/yyyy")

Cliquez pour agrandir...

Format(Now(), "mm/dd/yyyy")

Cliquez pour agrandir...

Thibault98 à dit:

Bonsoir,

J'ai trouvé par hasard un code qui m'intéresse, je l'ai collé dans une feuille qui s'appelle "exemple" puis en colonne C avec "donnée validation" j'ai créé une liste avec deux options.

Lorsque je sélectionne un élément dans cette liste une ou deux dates apparaissent, ça fonctionne bien sauf que les dates devraient apparemment être = à la date du jour or EXCEL renvoi 09/02/2013.


Comment résoudre ce problème ?

Cliquez pour agrandir...

Private Sub Worksheet_Change(ByVal Target As Range)
Dim LiGne As Integer
If Target.Column = 3 Then
LiGne = ActiveCell.Row
With Sheets("Exemple")

  If ActiveCell = "Naissance" Then
  .Cells(LiGne, 9) = Now()
  .Cells(LiGne, 10) = Now()
  End If
  If ActiveCell = "Achat" Then
  .Cells(LiGne, 9) = ""
  .Cells(LiGne, 10) = Now()
  End If
  If ActiveCell = "" Then
  .Cells(LiGne, 9) = ""
  .Cells(LiGne, 10) = ""
  End If
  .Cells(LiGne, 9).NumberFormat="dd/mm/yyyy"
  .Cells(LiGne, 10).NumberFormat="dd/mm/yyyy"

End With
End If
End Sub