Format Date

[michel2000]

Bonsoir Forum;

Dans un classeur j'ai trois feuilles (pour inscription des ventes) soit v_Janvier, v_fevrier et v_Mars.

Dans ces 3 feuilles la colonne "L" est de format DATE "m/d/yyyy".

Pour une raison que j'ignore par exemple la cellule "L12" à un moment donné
n'est plus de Format Date.

Pour être certain que cela ne se produise plus j'ai pensé inclure ce qui suit dans ThisWorkbook. J'aimerais connaitre votre opinion à savoir si ce qui suit
est correct ou encore s'il y a une autre façon de procéder?

Je rappelle que la colonne "L" de ces trois feuilles a déjà la propriété DATE. Mais je veux ajouter "une sécurité" au cas où Excel voudrait modifier le format.

Est-ce que cela vous est déjà arrivé?
Merci beaucoup de votre attention et bonne fine de soirée
Michel
---------------------------------------------------------
Sheets("v_Janvier").Select
Range("L7:L50").Select
Selection.NumberFormat = "m/d/yyyy"

heets("v_Fevrier").Select
Range("L7:L50").Select
Selection.NumberFormat = "m/d/yyyy"

Sheets("v_mars").Select
ActiveWindow.SmallScroll Down:=-9
Range("L7:L50").Select
Selection.NumberFormat = "m/d/yyyy"

 

[JNP]

Re : Format Date

Bonjour Michel2000 🙂,
Je pense que "L" est le résultat d'un calcul. Si ce calcul s'effectue sur des dates dans un autre format, ne serait-ce pas ce format qui est récupéré au moment du calcul ?
Sinon, ton code est juste, mais tu dois le passer à chaque fois, et l'utilisation du select alourdit le calcul, il vaudrait mieux mettre dans la procédure de chaque feuille :

Private Sub Worksheet_Calculate()
Range("L7:L50").NumberFormat = "m/d/yyyy"
End Sub

Bonne journée 😎

 

[James007]

Re : Format Date

Bonjour,

A côté de la propostion de JNP, qui demande à ce que le code soit dans chacune de tes feuilles, si tu veux utiliser This Workbook, il te faudrait un truc du genre

Private Sub Workbook_Open()
Dim sh As Worksheet 
For Each sh In Worksheets 
  sh.Range("L7:L50").NumberFormat = "m/d/yyyy"
Next 
End Sub

A +

 

[Pierrot93]

Re : Format Date

Bonjour à tous,

james, si tu veux mettre le code dans le module "thisworkbook" autant rester sur l'idée de JNP et utiliser l'événement, enfin c'est juste mon avis :

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
sh.Range("L7:L50").NumberFormat = "m/d/yyyy"
End sub

bonne journée
@+

 

[michel2000]

Re : Format Date

Bonjour JNP, Pierrot93 et James007

Je vous remercie beaucoup pour vos remarques très pertinentes qui font que maintenant mon problème est résolu.

Encore une fois Merci à vous trois
Michel