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

[Thibault98]

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 ?

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) = Format(Now(), "dd/mm/yyyy")
  .Cells(LiGne, 10) = Format(Now(), "dd/mm/yyyy")
  End If
     If ActiveCell = "Achat" Then
  .Cells(LiGne, 9) = ""
  .Cells(LiGne, 10) = Format(Now(), "dd/mm/yyyy")
  End If
   If ActiveCell = "" Then
  .Cells(LiGne, 9) = ""
  .Cells(LiGne, 10) = ""

End If
End With
End If
End Sub

Merci,
Thibault

 

[JCGL]

Re : Code qui renvoie 09/02/2013

Bonjour à tous,

Peux-tu essayer en remplaçant :

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

par

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

A+ à tous

Edition : Salut David. Ravi de te croiser.

 

[david84]

Re : Code qui renvoie 09/02/2013

Bonsoir,
une idée en passant :as-tu essayé de remplacer le format "dd/mm/yyyy" par "mm/dd/yyyy" ?
A+
Eidt : bonsoir Jean-Claude

 

[Modeste geedee]

Re : Code qui renvoie 09/02/2013

Bonsour®

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 ?

la fonction Format renvoie un texte formatté (qui "by design" est interprété au moment de son introduction dans la feuille)
en fait c'est à la cellule qu'il faut affecter un format après lui avoir envoyé un nombre (format interne) représentant une date

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

 

[Thibault98]

Re : Code qui renvoie 09/02/2013

Bonjour et merci à tous, c'est parfait !

@+
Thibault