Valider une date

[JCD]

Bonjour,
Avant de réinventer la roue, l'un d'entre vous aurait-il une macro permettant de dire si une date est valide.

Il y a bien l'instruction IsDate, mais elle laisse passer les dates au format US. Par exemple, 10/13/2002 est valide pour IsDate.

Merci d'avance

 

[Jean-Claude]

Salut JCD

et pourquoi pas un code du genre:

If Selection.NumberFormat = "m/d/yyyy" then

blablabla

endif


Bonne soirée Jean-Claude

 

[GM]

Bonsoir JCD et le forum

Si l'application écrit des dates formatées US "EcritDate1", et utilsée dans d'autres pays. Pour éviter une telle confusion, il suffit d'utiliser des formats nommés. Voir les exemples : "EcritDate2", "EcritDate3" cela assure la compatibilité dans Excel. met ça dans un module et lance la procédure SubEcritDate1


Sub EcritDate1()
' EcritDate1 Macro
' Macro enregistrée le 19/12/2002 par Moriceau Gérard
Today = Now()
Range("A1") = Format(Today, "mm/dd/yy")
Call EcritDate2
Call EcritDate3
End Sub

Sub EcritDate2()
' EcritDate2 Macro
' Macro enregistrée le 19/12/2002 par Moriceau Gérard
Today = Now()
Range("B2") = Format(Today, "Short Date")
End Sub

Sub EcritDate3()
' EcritDate3 Macro
' Macro enregistrée le 19/12/2002 par Moriceau Gérard
Today = Now()
Range("C3") = Format(Today, "Long Date")
End Sub

@+ Gérard