re
et oui sur certains Pcs je ne sais pas pourquoi pour que le numberformat soit appliqué il faut le faire quand la cellule est vide
si c'est générique(une colonne ou ligne entière) applique le avant de remplir ton tableau manuellement
si c'est aléatoire (une cellule par ci par la )
fait le dynamiquement
exemple pour la cellule A1
1 2 3 4 5 6 7 8
| Sub test()
With ActiveSheet.Cells(1, 1)
.clear'si tu n'a pas d'autre formatage tel que des bordures ou font sinon c'est clearcontent
'ou tu vide la cellule avant d'appliquer le numberformat
.NumberFormat = "dd/mm/yyyy"
.Value = CDate("25/05/2019")
End With
End Sub |
a noter que j'aurais pu écrire
With ActiveSheet.Range("A1")
Partager