Discussion :

[laurent27530]

Bonjour,

Je recopie des date dans une feuille

Toutes les dates inférieures a 12 (jour) sont considérées en format date.

En revanche toute les dates supérieures ou égale a 13 sont dans le format général

Il faut que je valide la cellule pour que le bon format soit appliqué.

Avez vous une solution ?

Code POWERSHELL :

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

1
2
3
4
5
For L = 2 To Cpt
txtDate = CSng(CDate(Sheets("Temp").Range("B" & L)))
Sheets("TEMP_SUM").Range("A" & L) = Format(CDate(txtDate), "dd/mm/yyyy")
Sheets("TEMP_SUM").Range("A" & L).Activate
Next